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Einleitung 


Anwendungen für jedermann 


Es gibt Leute, die haben sich den C 64 gekauft, ein wenig 
die Tastatur getestet, vielleicht noch ein paar Spiele erwor¬ 
ben, aber ihn dann so langsam in der Ecke verschwinden las¬ 
sen. Fragt man sie dann, warum sie nichts mehr mit dem Com¬ 
puter machen, sieht man manchmal nur ein Schulterzucken 
oder es kommen resignierte Äußerungen wie »Ich kann ja 
nichts vernünftiges mit ihm anfangen.« Bohrt man dann noch 
etwas weiter und macht vielleicht sogar einige Vorschläge, 
dann kommt sehr oft ein »ja, das wäre interessant, könnte ich 
gebrauchen«. 

Wir haben für Sie eine Menge interessanter Anwendungen 
herausgepickt. Bei einigen werden Sie sicherlich sofort 
sagen »Her damit, das brauch ich«. Und damit möglichst viele 
der gleichen Meinung sind, präsentieren wir Ihnen Pro¬ 
gramme für die verschiedensten Anwendungen. 


Fundgrube für Statistiker 

Der Hobby-»Manager« unter Ihnen wird einige Programme ent¬ 
decken, die ihn lebhaft interessieren werden. Da ist zum Beispiel 
die Aktienverwaltung, die Sie auf dem laufenden hält über die 
derzeitigen und künftigen Aktienkurse Damit Sie Trends schnell 
erkennen können, vielleicht sogar schneller als das Fernsehen, 
erstellt der Wahlhelfer eine eigene Hochrechnung. Die Grafik- 
Erweiterung setzt die Daten der beiden Programme um in 
schöne, anschauliche Bilder. Als Besitzer des Printer/Plotters VC 
1520 erhalten Sie ebenfalls ein Grafikpaket, mit dem Sie echte 
Business-Grafik erstellen können. 





Wer den Pfennig nicht ehrt... 

Sollten Sie Probleme haben mit dem leidigen Thema Buch¬ 
führung, werden Sie nicht alleine gelassen. Und als jemand, 
der seine Finanzen im Griff hat oder bekommen will, kommt 
Ihnen die Haushaltskasse vielleicht gerade recht. Wollen Sie 
ein Auto kaufen und eine fundierte Entscheidung treffen, sind 
Sie mit Autokosten bestens informiert. 

Ist Ihnen etwa als stolzer Kleinunternehmer die jährliche 
Inventur ein Dorn im Auge? Ärgern Sie sich nicht mehr, wir 
helfen Ihnen mit Ordnung im Lager. Und damit Sie Ihre Kun¬ 
den, Bekannten oder wen auch immer ohne große Mühe mit 
Rechnungen oder vorerst einmal mit Kostenvoranschlägen 
bombardieren können, kommt der Rechnungshelfer gerade 

33a? 


recht. Was Sie dann sonst noch an Daten haben, wird mit der 
sehr leistungsfähigen Dateiverwaltung Datei total kinder¬ 
leicht aber vor allen Dingen sehr effektiv verwaltet. 


Aus Naturwissenschaft und Technik 

Zwei Mathematikprogramme werden Ihnen viel Arbeit 
ersparen. Hauptsächlich auf dem Gebiet der numerischen 
Mathematik und der Vektorrechnung, also schon hochkali- 
brige Sachen. Mit MeBboy bauen Sie sich als begeisterter 
Bastler ein Meßgerät für Kapazitäten und Widerstände für 
sage und schreibe unter zehn Mark. Sie sparen dabei meh¬ 
rere Hunderter. 

Sollte Ihnen aber klare Technik zu trocken sein und Sie 
mehr ins Reich der Biologie hineinschnuppern möchten, 
machen Sie sich doch einmal Ihren eigenen Fruchtwein! 
Absolut glykolfrei und schmecken tut er auch. Der C 64 hilft 
Ihnen dabei. 


Spezialitäten für Drucker 

Textmaster ist ein Textverarbeitungsprogramm speziell für 
den Commodore-Drucker MPS 801/803. Deutsche Um¬ 
laute, eigene Zeichensätze, Hoch- und Tiefschrift sowie 
Randausgleich sind nur einige der tollen Möglichkeiten von 
Textmaster. Und damit Sie auch gleich die richtige Übung 
beim Schreiben bekommen, macht das Trainingsprogramm 
fürs Maschinenschreiben in kurzer Zeit einen Fachmann 
aus Ihn- mit besten Noten. 


Hinein in die Mailboxen! 

Als Spezialist für Datenfernübertragung (DFÜ) kommt 
Ihnen vielleicht das Terminalprogramm Proterm bekannt vor. 
In diesem Sonderheft finden Sie eine nochmals verbesserte 
Version des Super-Terminal-Programms. Da bleiben keine 
Wünsche mehr offen. Das gleiche gilt für die Maitbox für 
jedermann. Endlich können Sie auch angerufen werden. 
Das spart nicht nur Telefonkosten, sondern bringt auch eine 
ganze Menge frischer Informationen und neue Freunde. Indi¬ 
vidualisten können sich mit Mailbox-Basic eine eigene Mail¬ 
box konstruieren. (gk) 


Disketten und Kassettenservice 

Wer keine Zeit oder keine Lust hat, alle Programme 
selbst in mühevoller Kleinarbeit abzuschreiben, kann 
wieder auf den bewährten Diskettenservice zurück¬ 
greifen. Und auch der Datasetten-Besitzer wird 
bedient. Alle Programme befinden sich auf zwei vollge¬ 
packten Disketten beziehungsweise vier Kassetten 
und sind nur zusammen erhältlich. Die Disketten 
kosten ebenso wie die Kassetten zusammen nur 
34,90 Mark. 

Bitte verwenden Sie für Ihre Bestellung die beigefügte 
Postscheckzahlkarte zur Überweisung des Rechnungs¬ 
betrages. 

Disketten: Bestellnummer L6 85 S7D / 34,90 Mark 
Kassetten: Bestellnummer L6 85 S7K / 34,90 Mark 
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Bild 1. Die Anschaffungskosten zu einem eigenen Auto bestimmen nur zu einem Teil die wirkliche finanzielle Belastung. 
Kaufen Sie nicht nur nach Gefühl, sondern auch mit Verstand. (Seite 106) 



Bild 2. Für ein Meßgerät dieser Güte müssen normaler¬ 
weise mehrere hundert Mark auf den Tisch gelegt werden. 
Hier sind Sie mit 10 Mark dabei. (Seite 128) 



Bild 3. Nicht nur Millionäre verfolgen die Entwicklung der 
Aktienkurse. Es macht auch Spaß, nur zum Vergnügen am 
Börsenspiel mitzumachen. (Seite 144) 


RELIGIONEN 



1 17 * ROEM.-KATH. CHRISTEN 

2 8 x EUANGEL ISCHE CHRISTEN 

3 4 x ORTHODOXE CHRISTEN 

4 14 x MOSLEMS 

5 12 x HINDUS 

6 6 x BUDDHISTEN 

7 2 x SCHINTOISTEN 

8 0.4 x ISTRAELITEN 
3 36.6 x SONSTIGE 


Bild 4. Ob in der Schule oder beim Studium, im Beruf oder 
für’s Hobby, überall kann man grafische Auswertungen 
gebrauchen. (Seite 159) 


19.46.34 2 „k B ru c c H H BECHMU " e COM 

CDU SPD FDP 6RUENE ANDERE 

85 41.3X42.6X 8.1 X T.0 X 0.TX 

? 42 43 8 7 0 

i -1 *2 0 -1 0 
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19.46.34 Ier™ c cÄ bechhu " b COM 

CDU SPD FDP 6RUENE ANDERE 

8143.1 X 41.1 X 7.5 Y. 8.0 V. 8.5 X 

8541.3 X 42.6 X 8.1 X 7.8 X 8.7 X 

GEWINN ♦ VERLUST <XPUNKT£> 

-1.7 *1.5 *8.6 -1 *8.2 


m — —_ 



HE I TER HIT T rtSTE <0°AUSDRUCK) 

WEITER MIT TASTE <A=AUSDRUCK> 


Bild 5. Bundestagswahlen sind sicher die wichtigsten Wahlen. Aber in jedem Land, in jeder Stadt und Gemeinde und 
in fast jedem Verein wird gewählt. Mit »Wahlhochrechnung« erhalten Sie eine übersichtliche Auswertung der Ergeb¬ 
nisse. (Seite 154) 



















































































































Eintipphilfe 


C 64/VC 20 


Checksummer 
64 V3 - Neu 

Der Checksummer 64 V3 überprüft 
jede Basic-Zeile direkt nach der Ein¬ 
gabe, erkennt Fehleingaben und auch 
Vertauschungen von Zahlen und Zif¬ 
fern, und erspart deshalb eine auf¬ 
wendige Fehlersuche. 

Der Checksummer 64 V3 ist ein kleines Maschinenpro¬ 
gramm. das Sie sofort unterrichtet, ob Sie die jeweilige Pro¬ 
grammzeile korrekt eingegeben haben. 

So gehen Sie vor: 

1. Programm abtippen und speichern. 

2. Starten mit RUN 

3. Nach kurzer Zeit sehen Sie am Bildschirm: 

CHECKSUMMER 64, CHECKSUMMER AKTIVIERT, 

AUSSCHALTEN MIT POKE 1,55, ANSCHALTEN MIT POKE 
1,53, READY. 

4. Anschalten des Checksummer 64 V3 mit POKE 1,53. 

5. Test: Geben Sie in einer freien Zeile ein: »1 REM« und 
drücken die RETURN-Taste. Am Bildschirm oben links sollten 
Sie die Prüfsumme <63> sehen. 

6. Geben Sie ein Listing aus unserem Heft ein. Nach jeder 
Zeile wird die Zahl, die im Listing in Klammern < > steht, in 
den Bildschirm eingeblendet. Stimmen die Zahlen nicht über¬ 
ein, so liegt vermutlich ein Eingabefehler vor. Die Zahl in den 
Klammern, und auch die Klammern selbst, dürfen beim 
Abtippen nicht mit eingegeben werden! 

7. Dieser neue Checksummer 64 V3 bemerkt, im Gegen¬ 
satz zu den bisherigen, auch Vertauschungen von Zahlen und 
Buchstaben. 

8. Unsere Basic-Listings enthalten keine Steuerzeichen 
mehr. Diese werden ersetzt durch Klartext und stehen zwi¬ 
schen geschweiften Klammern. Deshalb sind weder die 
Klammern noch was dazwischen steht, abzutippen, sondern 
die in Tabelle 1 aufgeführten Tasten zu drücken. Auf Ihrem 
Bildschirm erhalten Sie dann wieder die entsprechenden 
Grafikzeichen (siehe Bild 1 und 2). 

9. Alle Grafikzeichen werden ebenfalls ersetzt durch unter¬ 
strichene oder überstrichene Großbuchstaben. Unterstri¬ 
chene Buchstaben bedeuten, daß Sie die SHIFTTaste und 
den angegebenen Buchstaben drücken müssen, überstri¬ 
chene jedoch die Commodore-Taste mit dem Buchstaben. 
Auch hier erhalten Sie am Bildschirm das entsprechende Gra¬ 
fikzeichen und nicht etwa das im Listing erkennbare Zeichen 
(siehe Bild 1 und 2). 

Die Leerzeichen zwischen den einzelnen Basic-Befehlen 
können beim Abtippen entfallen (ohne Einfluß auf die Check¬ 
summe zu nehmen). Dies ist besonders bei speicherkriti¬ 
schen Programmen wichtig. Ebenso müssen Zeilen, die mehr 
als 80 Zeichen pro Zeile enthalten, mit den bekannten Abkür¬ 
zungen für die Basic-Befehle (siehe auch das Handbuch zum 
C64, Anhang D, Seite 130) eingegeben werden. 

Checksummer VC 20 V3 

Der Checksummer VC 20 V3 ist im Prinzip genauso auf¬ 
gebaut wie der Checksummer 64. Da beim VC 20 jedoch 
nicht die Möglichkeit besteht, das ROM softwaremäßig zu mo¬ 
difizieren, mußte ein anderer Weg als beim Commodore 64 
gewählt werden, um die Checksumme zu generieren. 


CTRL steht für Control-Taste, so bedeutet [CTRL-A], daß Sie die 

Control-Taste und die Taste »A« drücken müssen. Im folgenden steht: 

(DOWN) 

Taste neben rechtem Shift, Cursor unten 

(UP) 

Shift-Taste & Taste neben rechtem Shift; Cursor hoch 

(CLRJ 

Shift-Taste & 2. Taste ganz rechts oben 

[INST] 

Shift-Taste & Taste ganz rechts oben 

(HOME) 

2. Taste von ganz rechts oben 

(DEL) 

Taste ganz rechts oben 

(RIGHT) 

Taste ganz rechts unten 

ILEFT) 

Shift-Taste & Taste unten rechts 

(SPACE) 

Leertaste 

(Fl) 

grauer Tastenblock rechts 

(F3) 

grauer Tastenblock rechts 

(F5) 

grauer Tastenblock rechts 

(F7) 

grauer Tastenblock rechts 

(F2J 

grauer Tastenblock rechts 8 Shift 

(F4) 

grauer Tastenblock rechts 8 Shift 

(F6) 

grauer Tastenblock rechts 8 Shift 

(F8) 

grauer Tastenblock rechts 8 Shift 

(RETURN) 

Shift-Taste 8 Return 

(BLACK) 

Control-Taste & 1 

(WHITE) 

Control-Taste & 2 

(RED) 

Control-Taste & 3 

(CYAN) 

Control-Taste 8 4 

(PURPLE) 

Control-Taste 8 5 

(GREEN) 

Control-Taste 8 6 

(BLUE) 

Control-Taste 8 7 

(YELLOW) 

Control-Taste 8 8 

(RVSON) 

Control-Taste 8 9 

(RVOFF) 

Control-Taste 8 0 

(ORANGE] 

Commodore-Taste 8 1 

(BROWN) 

Commodore-Taste 8 2 

(UG.RED) 

Commodore-Taste 8 3 

(GREY1) 

Commodore-Taste 8 4 

(GREY 2) 

Commodore-Taste 8 5 

h IG GREEN) 

Commodore-Taste 8 6 

[ljO.BLUE] 

Commodore-Taste 8 7 

[GREY 3) 

Commodore-Taste 8 8 

Wenn Sie sich erst einmal an die in Klartext geschriebenen Steuerzei- 

chen gewöhnt haben, werden Sie den Vorteil dieser Schreibweise 

erkennen. Der zu dem jeweiligen Steuerzeichen gehörende Klartext 

ist so verfaßt, daß Sie leicht die Taste beziehungsweise die Tasten- 

kombination finden, die Sie drücken müssen. 

Tabelle 1. Die Steuerbefehle im Klartext 


Es gelten folgende Sonderregelungen bei der Benutzung 
des Checksummer VC 20: 

— Das Programm ist im Kassettenpuffer abgelegt. 

— Angeschaltet wird der Checksummer VC 20 mit »SYS 
955«. 

— Abschaltung wird mit »SYS 58459« vollzogen. 

Achtung: Nehmen Sie keine Kassetten-Operationen vor, 

wenn der Checksummer VC 20 eingeschaltet ist. Da das 
Betriebssystem den Kassettenpuffer mit Daten belegt, kann 
der Checksummer VC 20 überschrieben werden. Wollen Sie 
deshalb ein Programm auf (von) Kassette abspeichern 
(laden), so müssen Sie erst den Checksummer VC 20 
abschalten. 

Als Sicherung wird bei der Initialisierung geprüft, ob das 
zuletzt angesprochene Peripherie-Gerät der Kassettenre¬ 
corderwar. Ist das der Fall, so werden die Betriebssystemrou¬ 
tinen LOAD und SAVE für die Benutzung gesperrt. Der Rech¬ 
ner meldet bei Aufruf einer dieser beiden Routinen READY, 
ohne weitere Aktionen durchzuführen. Diese Sicherung kann 
man nach der Tipparbeit aufheben, wenn man den Check¬ 
summer VC 20 mit SYS 58459 abschaltet. Weiterhin wird 
dann durch gleichzeitiges Drücken der Tasten »Run-Stop & 
Restore« erreicht, daß die Betriebssystemroutinen LOAD und 
SAVE wieder eingerichtet werden. 

— Bei Benutzung einer Diskettenstation brauchen Sie nicht 
darauf zu achten, daß bei LOAD beziehungsweise SAVE der 
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Checksummer VC 20 überschrieben wird, da der Kassetten¬ 
puffer für die Diskettenstation normalenweise nicht genutzt 
wird. Deshalb können Sie die beiden Routinen weiterhin nor¬ 
mal nutzen, sofern der Rechner bei der Initialisierung des 
Checksummer VC 20 feststellt, daß das zuletzt angespro¬ 
chene Peripherie-Gerät nicht der Kassettenrecorder war. 

— Bedingt durch den anderen Aufbau des Checksummer VC 
20 wird anders als beim Checksummer 64 nach der LOAD- 

Routine keine Checksumme ausgegeben. 

— Wird eine Zeile gelöscht, also eine Zahl zwischen 0 und 
65999 eingegeben, und danach Return gedrückt, so wird 
eine Checksumme ausgegeben, die aber keine Bedeutung 
hat. 

Sie können die Programme auch weiterhin ohne den Check¬ 
summer eintippen. (F. Lonczewski/gk) 

Hinweis: |13 SPACEj bedeutet 13mal die Leertaste drücken 

1 REM ******************************* 

2 REM * * 

3 REM * CHECKSUMMER 64 V3 * 

4 REM * * 

5 REM * WRITTEN MAERZ 1985 BY * 

6 REM * * 

7 REM * FRANK LONCZEWSKI * 

8 REM * * 

9 REM ******************************* 

10 PRINT"<CLR,11SPACE,RVSON1CHECKSUMMER 64 

V3IRV0FF>“ 

11 PRINT“C2D0WN,9SPACE>EINEN MOMENT, BITTE 

12 FOR 1=828 TO 864:READ A:POKE I,A:PS=PS+ 

A+l:NEXT I 

13 IF PSO5802 THEN PRINT"PRUEFSUMMENFEHLE 
R IN ZEILEN 20-22":END 

14 SYS 828:PS=0:FOR 1=58464 TO 58583:READ 
A:POKE I,A:PS=PS+A+1:NEXT I 

15 IF PS016267 THEN PRINT"PRUEFSUMMENFEHL 
ER IN ZEILEN 22-30":END 

16 POKE 1,53:POKE 42289,96:POKE 42290,228 

17 PRINT"<4D0WN,9SPACE JCHECKSUMMER AKTIVIE 
RT. " 

18 PRINT"C2D0WNJAUSSCHALTEN : POKE1,55" 

19 PRINT"{DOWN1ANSCHALTENT2SPACE>: P0KE1.5 
3":NEW 

20 DATA 169,0,133,254,162,1,189,93,3,133,2 
55,160,0,177,254 

21 DATA 145,254,136,208,249,230,255,165,25 
5,221,95,3,208,238,202 

22 DATA 16,230,96,160,224,192,0,160,2,169, 
0,170,133,254,177 

23 DATA 95,240,40,201,32,208,3,200,208,245 
,133,255,138,41,7 

24 DATA 170,240,14,72,165,255,24,42,105,0, 

202.208.249.133.255 

25 DATA 104,170,232,165,255,24,101,254,133 
,254,76,111,228,192,4 

26 DATA 48,219,19B,214,165,214,72,162,3,16 
9,32,157,1,4,189 

27 DATA 212,228,32,210,255,208,12,0,92,72, 
32,201,255,170,104 

28 DATA 144,1,138,96,202,16,228,166,254,16 
9,0,32,205,189,169 

29 DATA 62,32,210,255,104,133,214,32,108,2 

29.169.141.32.210.255 

30 DATA 76,128,164,9,60,18,19 

© 64'er 

Dieser neue Checksummer 64 V3 erkennt auch 
Vertauschungen von Zahlen 


21 PRINT"CCLR,SPACE,RVSONJCHECKSUMMER V3 V 
C—20(RVQFFJ“ 

22 PRINT"(2DOWNJEINEN MOMENT, BITTE..." 

23 FOR 1=827 TO 1019:READ A:POKE 1,A 

24 PS=PS+A+1:NEXT I 

25 IF PS<>24464 THEN PRINT“(DOWNJPRUEFSUMM 
ENFEHLER !":END 

26 SYS 981:PRINT"CHECKSUMMER AKTIVIERT." 

27 PRINT"AN :SYS9B1" 

28 PRINT"(DQWNJAUS:SY558459, BEI CAS-T4SPA 
CEJSETTE ZUSAETZLICH(5SPACE1RUN/STOP $< 
RESTORE" 

29 PRINT"(DOWNJBEI AKTIVIERTEM CHECK-SUMME 
R KEIN"; 

30 PRINT" CASSETTEN-BETRIEB (LOAD, SAVE)<2 
SPACEJERLAUBT'":NEW 

31 DATA 32,95,3,134,122,132,123,32,115,0,1 

70,240,243,162,255 

32 DATA 134,58,144,10,162,0,134,255,32,121 
,197,76,225,199,162 

33 DATA 1,134,255,76,156,196,166,255,224,1 
,240,3,76,96,197 

34 DATA 160,2,169,0,170,133,254,177,95,240 
,40,201,32,208,3 

35 DATA 200,208,245,133,253,138,41,7,170,2 
40,14,72,165,253,24 

36 DATA 42,105,0,202,208,249,133,253,104,1 
70,232,165,253,24,101 

37 DATA 254,133,254,76,119,3,192,4,48,219, 
198,214,165,214,72 

38 DATA 162,3,169,32,157,1,4,189,209,3,32, 
210,255,202,16 

39 DATA 242,166,254,169,0,32,205,221,169,6 
2,32,210,255,104,133 

40 DATA 214,32,135,229,169,141,32,210,255, 
162,0,134,255,240,148 

41 DATA 9,60,18,19,169,59,141,2,3,169,3,14 
1,3,3,165 

42 DATA 186,201,1,208,16,169,116,141,48,3, 
141,50,3,169,196 

43 DATA 141,49,3,141,51,3,173,136,2,141,17 
0,3,96 

- 

© G4 'er 

Der neue Checksummer VC 20 V3 erkennt auch 
Vertauschungen von Zahlen 


5 PRINT CHRS(14) <242> 

10 PRINT"<CLR>" <254> 

20 PRINT" ■ B*tt******3H**3Ht****3**3****3*ifi i'' <130> 

30 PRINT"{4D0WN,2SPACEJXEST(SPACE,BLUE,6SP 

ACE>" <022> 

6 64'er 


Bild 1. So könnte ein Teil eines Listings abgedruckt sein. In 
Zeile 10 müssen Sie nach den Anführungsstrichen die 
CLEAR/HOME-Taste drücken und nicht die Klammern mit 
dem Wort CLR. In Zeile 20 drücken Sie nach den Anführungs¬ 
strichen die Commodore-Taste und den Buchstaben Q, 
gefolgt von mehreren SHIFT- und Stern-Tasten und zum 
Schluß die Commodore-Taste und den Buchstaben W. In 
Zeile 30 ist es viermal die Cursor-nach-unten-Taste, gefolgt 
von zweimal die Leertaste, dann SHIFT und T und normal EST, 
zum Schluß noch einmal die Leertaste, die Farbtaste Blau 
(Control und 7) und sechsmal die Leertaste. Zeile 40 besteht 
lediglich aus mehreren Grafikzeichen, die mit der Commo¬ 
dore-Taste und B erzeugt werden. 


10 REM»*»»»»»»***»*** 
t1 REM* » 

12 REM* CHECKSUMMER * 

13 REM* * 

14 REM* V3 VC20 * 

15 REM* * 

16 REM* WRITTEN * 

17 REM* MAERZ 1985 * 

18 REM* BY * 

19 REM*F. LONCZEWSKI* 

20 REM*************** 


5 PRINTCHR*<14) 

10 PRINT" 

20 PRINT" I-I 1 

30 PRINT"SWMKI I EST 3 

40 PRINT"V.V«V.V. , .V. , . r .V.V.V*V.V.Vri-.Vi 


Bild 2. Auf dem Bildschirm oder Ihrem Drucker sieht das 
Listing (Bild 1) so aus. 
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Eintipphilfe 


C 64 


MSE - Abtippen 
sicher und 
leicht gemacht 

Ähnlich wie der »Checksummer« ist 
auch der MSE ein Hilfsmittel bei der 
Eingabe von Listings, diesmal jedoch 
bei reinen Maschinensprache-Pro¬ 
grammen. 

Im Gegensatz zum »Checksummer« aber ist die Eingabe 
nicht ohne den MSE möglich. Der MSE verringert die Tipp¬ 
arbeit um ein Drittel und schließt Fehleingaben vollkommen 
aus. Außerdem können Sie die Werte blind eingeben, ohne 
andauernd auf den Bildschirm schauen zu müssen. Dies wird 
durch akustische Meldungen realisiert. 

MSE ist ein Maschinenspracheditor, mit dem ein Vertippen 
ausgeschlossen ist. Eine abgetippte Zeile wird nur angenom¬ 
men, wenn sie richtig ist. Eine Checksumme am Ende jeder 
Zeile prüft, ob die richtigen Werte in der richtigen Zeile an der 
richtigen Stelle stehen. Wenn nicht, ertönt ein Warnsignal, 
und man beseitigt den Fehler. 

War die Zeile korrekt, erklingt ein Gong, und die nächste 
Zeilennummer wird ausgegeben. Damit ist also auch »blin¬ 
des« Eintippen möglich; Sie können sich voll auf den Text kon¬ 
zentrieren. 

So arbeitet man mit MSE 


Angaben mehr erforderlich. Das Programm kann dann ganz 
normal wieder geladen und gestartet werden. Wenn Sie nicht 
alles auf einmal tippen wollen, können Sie jederzeit unterbre¬ 
chen und den eingetippten Teil mit »CTRL-S« abspeichern. 
Merken Sie sich aber unbedingt die Adresse, wo Sie aufge¬ 
hört haben. Wollen Sie Weiterarbeiten, laden und starten Sie 
MSE wieder. 

Geben Sie auf die Frage nach der Startadresse aber jetzt 
»L« ein, um Ihr Teilprogramm zu laden. Jetzt können Sie 
mit »CTRL-N« die Adresse eingeben, an der Sie weitertippen 
müssen. Wenn Sie sich nicht gemerkt haben, wie weit Sie 
gekommen sind, geben Sie nach dem Laden »CTRL-M« ein. 

Auf die Frage nach der Startadresse antworten Sie mit der 
Anfangsadresse, die links in der Kopfzeile auf dem Bildschirm 
steht. Nun wird Ihr Programm aufgelistet. Mit »SPACE« wird 
das Listen fortgesetzt, mit »STOP« abgebrochen. Das Ende 
Ihres Programmteils erkennen Sie sehr einfach daran, daß nur 
noch der Wert »AA« in der Zeile steht. Die Adresse dieser 
Zeile müssen Sie anschließend mit »CTRL-N« eingeben. Das 
Programm ist nur mit »STOP/RESTORE« zu verlassen. Spei¬ 
chern Sie aber vorher unbedingt immer Ihren Text ab. 
Hinweise zum Abtippen 

Vor dem Abtippen oder späteren Wiederladen des MSE- 
Laders müssen Sie unbedingt folgende Zeile eingeben: 
POKE 43,1: POKE 44,32: POKE 8192,0: NEW 

Starten Sie das Programm mit RUN. Fehlerhafte Zeilen wer¬ 
den angezeigt und müssen korrigiert werden, bis der Lader 
zum »READY« durchläuft. Jetzt müssen Sie das fertige MSE- 
Programm abspeichern. Dazu brauchen Sie nur »RETURN« 
zu drücken, weil die erforderlichen Angaben schon auf dem 
Bildschirm stehen. (Kassettenbesitzer müssen in Zeile 343 
die letzte Zahl in »1« abändern.) Ab jetzt können Sie »MSE 
V, 1 o« direkt, also ohne den DATA-Lader, benutzen. MSE VI.0 
vViiü ganz normal mit »,8« geladen (keine POKEs notwendig). 

(N. Mann / D. Weineck / gk) 


Laden und starten Sie MSE. Zuerst wird der Programm¬ 
name und die Start- und Endadresse erfragt. Diese Angaben 
entnehmen Sie dem Kopf des jeweiligen abgedruckten 
Listings. Geben Sie diese Daten bitte äußerst exakt ein! 
MSE meldet sich dann mit der Zeilennummer der ersten Zeile. 
Wenn Sie die Zeile richtig eingegeben haben, erscheint die 
nächste Zeilennummer und so weiter bis zum Ende. Zum 
Schluß wird das fertige Programm mit »CTRL-S« auf Diskette 
oder Kassette abgespeichert. Dazu sind keine weiteren 


MSE-Befehle: 

DEL löscht die letzte Eingabe 

CTRL-S speichert das eingetippte Programm ab. 

CTRL-L lädt ein Programm. Start- und Endadresse werden 
automatisch ermittelt. 

CTRL-M listet den Speicherinhalt. Abbruch mit STOP-Taste, weiter mit 
Leertaste 

CTRL-N erlaubt die Eingabe einer neuen Adresse zum Weitertippen. 
CTRL-P gibt ein MSE-Listing auf dem Drucker aus. 


100 rem **************************** <091 > 

110 REM * • <159> 

120 REM * MSE LADER * <206> 

130 REM * * <179> 

220 REM **************************** <211> 

230 REM <036> 

240 DIM H(75): FÜR 1=0 TO 9 <113> 

250 H(48+I)=I: H(65+1)=1+10:NEXT <041> 

260 FOR 1=2048 TO 3755 : READ A# <198> 

270 H=ASC(LEFT*(A*,1)):L=ASC(RIGHT*(A*,1)) <199> 
280 D=H(H)*16+H(L):S=S+D:POKE I,D <219> 

290 A=A+1:IF A<20 THEN NEXT:A=-1 <141> 

300 PRINT " ZEILE:1000+Z; <011> 

310 READ V :Z=Z+1:IF V=S THEN 330 <21B> 

320 PRINT"PRUEFSUMMENFEHLER !":STOP <138> 

330 IF A<0 THEN 341 <221> 

340 S=0:A=0:PRINT:NEXT <046> 

341 PRINT"CCLRJPS43,1:PS.44,8:Pfl45,172:PA46 

,14 <010> 

342 POKE 631,19:POKE 632,13:POKE 633,13:PO 

KE 198,3 <249> 


343 PRINT"<3D0WN>SAVE"CHRS(34)"MSE V1.0"CH 

R*(34>",8 <171> 

344 END <092> 

350 REM : <111> 

360 REM ****************** <149> 

370 REM * DATA * <078> 

380 REM ****************** <169> 

390 REM : <151> 

1000 DATA 00,0B , 08,0A, 00,9E , 32,30,36,31, 00 

,00,00,A2,08,A9,36,85,A4,A9, 1247 <119> 

1001 DATA 08, B5 , A5, A9,00,85 , A6, A9, B0,85, A7 

,A0,00,B1,A4,91,A6,C8,D0,F9, 2888 <054> 

1002 DATA E6, A5, E6, A7, CA, D0, F2, A9,36,85,01 

,4C,00,B0,20,D1,B1,A9,06,8D, 2787 <144> 

1003 DATA 21,D0,A9,03,8D,20,D0,8D,86,02,A0 

,B3,A9,74,20,FF,Bl,A0,83,A9, 2667 <237> 

1004 DATA B9,20,FF,Bl,A0,00,20,CF,FF,99,01 

,02,CB,C9,0D,D0,F5,8B,F0,D2, 2912 <217> 

1005 DATA C0,0F,90,02,A0,0E,BC,00,02,20,EA 

,B1,A0,B3,A9,CF,20,FF,B1,20, 2323 <013> 

1006 DATA BE,B4,85,FC,85,62,20,BE,B4,85,FB 


Der MSE zum bequemen Abtippen von Assemblerprogrammen. Beachten Sie 
den Checksummer auf Seite 6. 


G4er-onllne.de 
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,85,61,20,A7,B4,D0,20,A0,B3, 2864 <199> 

1007 DATA A9,E5,20,FF, B1,20,8E,B4,85,60,20 

,8E,B4,85,5F,20,A7,B4,D0,0A, 2624 <09t> 

1008 DATA A5,61,C5,5F,A5,62,£5,60,90,06,20 

,43,B3,4C,3A,B0,A9,AA,A0,00, 2379 <167> 

1009 DATA 91,FB,E6,FB,D0,02,E6,FC,20,3F,B2 

,90,EF,4C,FB,B4,A2,02,86,58, 3118 <132> 

1010 DATA A9,A6,A0,9D,20,F2,B1,20,E4,FF,F0 

,FB,C9,30,90,0C,C9,47,B0,0B, 2970 <231> 

1011 DATA C9,3A,90,0B,C9,41,B0,07,C9,14,D0 

,0F,4C,0B,B1,20,D2,FF,A6,58, 2322 <121> 

1012 DATA 95,F7,C6,58,D0,D2,60,AE,8D,02,F0 

,26,C9,0C,D0,03,4C,0B,B6,C9, 2685 C057> 

.013 DATA 13,D0,03,4C,BB,B5,C9,0D,D0,03,4C 

,BA,B4,C9,10,D0,03,4C,6B,B5, 2282 <225> 

1014 DATA C9,0E,D0,06,20,5F,B4,4C,64,B1,4C 

,92,B0,A5,F9,20,02,B1,0A,0A, 2132 <208> 

1015 DATA 0A,0A,B5, I F9,A5,F8,20,02,B1,05,F9 

,60,C9,3A,90,02,69,08,29,0F, 1930 <092> 

1016 DATA 60,A6,59,E0,08,90,1F,A6,58,E0,02 

,B0,06,20,D2,FF,4C,aE,B0,C6, 2509 <188> 

1017 DATA 59,A0,14,A9,92,20,F2,B1,CA,D0,FA 

,84,57,68,68,4C,8B,B1,A6,D3, 2891 <197> 

1018 DATA E0,08,B0,03,4C,92,B0,20,D2,FF,A6 

,58,E0,02,90,09,C6,59,20,02, 2468 <049> 

1019 DATA FF,C6,58,D0,F9,4C,8E,B0,48,4A,4A 

,4A,4A,20,59,B1,68,29,0F,C9, 2419 <035> 

1020 DATA 0A, 90,02,69,06,69,30,4C , D2 , FF , A2 

,FC,9A,20,Dl,B1,20,48,B2,20, 2261 <073> 

1021 DATA EA,B1,20,9F,B2,A5,FC,20,4E,Bl,A5 

,FB,20,4E,B1,20,ED,Bl,A9,3A, 2860 <148> 

1022 DATA A0,20,20,F2,B1,A9,00,65,59,20,8E 

,B0,20,ED,Bl,A4,59,20,EF,B0, 2530 <233> 

1023 DATA 91,FB,CB,84,59,C0,08,90,EC,20,10 

,B2,A9,12,20,D2,FF,20,8E,B0, 2657 <105> 

1024 DATA 20,EF,B0,C5,FF,F0,0D,20,43,B3,A9 

,14,A0,14,20,F2,B1,43,A2,B1, 2665 <034> 

1025 DATA A9,92,20,D2,FF,20,33,B2,20,E0,B2 

,20,3F,B2,90,9F,4C,8B,B5,A9, 2648 <123> 

1026 DATA 93,20,D2,FF,A2,00,A9,03,9D,00,D8 

,9D,00,D9,9D,00,DA,9D,00,DB, 2476 <237> 

1027 DATA E8, D0, EF , 60, A9,0D , 2C, A9,20,4C , D2 R 

,FF,20,D2,FF,98,4C,D2,FF,20, 2965 <160> 

1028 DATA E4,FF,F0,FB,60,84,5D,85,5C,A0,00 

,B1,5C,F0,06,20,D2,FF,C8,D0, 3100 <077> 

1029 DATA F6,60,A5,FB,85,5A,A0,00,84,5B,Bl 

,FB,18,65,5A,85,5A,90,02,E6, 2606 <156> 

1030 DATA 5B,06,5A,26,5B,C8,C0,08,90,EC,A5 

,5A,65,5B,85,FF,60,18,A5,FB, 2467 <219> 

1031 DATA 69,08,85,FB,90,02,E6,FC,60,A5,FB 

,C5,5F,A5,FC,E5,60,60,A0,B3, 3106 <183> 

1032 DATA A9,FB,20,FF,B1,A0,01,B9,00,02,20 

,D2,FF,CC,00,02,C8,90,F4,A9, 2692 <098> 

1033 DATA 10,ED,00,02,AA,20,ED,Bl,CA,D0,FA 

,A5,62,20,4E,B1,A5,61,20,4E, 2453 <236> 

1034 DATA Bl,20,ED,B1,A5,60,20,4E,B1,A3,5F 

,20,4E,Bl,A9,9F,20,D2,FF,20, 2575 <038> 

1035 DATA EA,B1,24,5E,10,01,60,A9,12,20,D2 

,FF,A2,28,20,ED,B1,CA,D0,FA, 2646 <161> 

1036 DATA A9,92,4C,D2,FF,A5,D6,C9,16,80,01 

,60,A9,A0,85,A4,A9,78,85,A6, 2945 <204> 

1037 DATA A9,04,85,A5,85,A7,A2,13,A0,27,B1 

,A4,91,A6,88,10,F9,CA,F0,19, 2671 <208> 

1038 DATA 18, A5, A4,69,28,85 , A4,90,02, E6 , A5 

,18,A5,A6,69,28,85,A6,90,E0, 2503 <251> 

1039 DATA E6,A7,4C,B6,B2,A9,91,4C,D2,FF,A9 

,0F,8D,1B,D4,A9,00,8D,05,D4, 2776 <000> 

1040 DATA A9,F7,8D,06,D4,A9,11,8D,04,D4,A9 

,32,8D,01,D4,A9,00,8D,00,D4, 2413 <126> 

1041 DATA A0,80,20,09,B3,A9,10,8D,04,D4,60 

,A2,FF,CA,D0,FD,8P,D0,FB,60, 2914 <240> 

1042 DATA A9,0F,8D,18,D4,A9,2D,BD,05,D4,A9 

,A5,8D,06,D4,A9,21,8D,04,D4, 2385 <119> 

1043 DATA A9,07,8D,01 ,D4,A9,05,80,00,D4,A0 

,FF,20,09,B3,A9,20,BD,04,D4, 2250 <07B> 

1044 DATA A9,00,8D,01,D4,8D,00,04,60,38,20 

,F0,FF,8A,48,98,48,18,A0,06, 2179 <175> 

1045 DATA A2,1B,20,F0,FF,A0,B4,A9,0A,20,FF 

,Bl,20,12,B3,20,E4,FF,F0,FB, 2931 <093> 

1046 DATA A2,1D,A9,14,20,D2,FF,CA,D0,FA,68 

,AB,68,AA,18,4C,F0,FF,0D,0D, 2704 <0BB> 

1047 DATA 0D,20,20,20,20,20,20,20,4D,41,33 

»43,48,49,4E,45,4E,53,50,52, 1144 <216> 

1048 DATA 41,43,48,45,20,2D,20,45,44,49,54 

,4F,52,20,0D,0D,20,20,20,20, 1023 <038> 


1049 DATA 20,20,20,20,56,4F,4E,20,4E,2E,4D 

,41,4E,4E,20,26,20,44,2E,57, 1128 <206> 

1050 DATA 45,49,4E,45,43,4B,00,0D,0D,0D,20 

,20,20,50,52,4F,47,52,41 ,4D, 1102 <U7> 

1051 DATA 4D,4E,41,4D,45,20,3A,20,00,0D,0D 

,20,20,20,53,54,41,52,54,41, 1073 <095> 

1052 DATA 44,52,45,53,53,45,20,3A,20,24,00 

,0D,0D,20,20,20,45,4E,44,41, 1014 <129> 

1053 DATA 44,52,45,53,53,45,20,20,20,3A,20 

,24,00,92,05,20,50,52,4F,47, 1171 <217> 

1054 DATA 52,41,4D,4D,20,3A,20,00,12,20,20 

,2A,2A,2A,20,46,41,4C,53,43, 1024 <027> 

1055 DATA 48,45,20,45,49,4E,47,41,42,45,20 

,2A,2A,2A,20,20,92,00,0D,0D, 1058 <098> 

1056 DATA 2A, 2A, 2A , 20,45,4E, 44,45,20,2A, 2A 

,2A,00,13,05,20,20,12,44,92, 920 <148> 

1057 DATA 49,53,4B,20,4F,44,45,52,20,12,54 

,92,41,50,45,0D,00,13,20,20, 1151 <035> 

1058 DATA 49,2F,4F,20,2D,20,46,45,48,4C,45 

,52,00,20,01,Bl,20,48,B2,A0, 1606 <012> 

1059 DATA B3 , A9, CF, 20 , FF, B1 ,20 , BE , B4,85, FC 

,20,BE,B4,B5,FB,C5,61,A5,FC, 3207 <251> 

1060 DATA E5,62,90,23,A5,FB,C5,5F,A5,FC,E5 

,60,B0,19,20,A7,B4,D0,14,60, 2860 <112> 

1061 DATA 20,A7,B4,F0,0C,B5,F9,20,A7,B4,F0 

,05,85,FB,4C,EF,B0,68,68,20, 2749 <088> 

1062 DATA 43,B3,4C,5F,B4,20,CF,FF,C9,4C,D0 

,09,20,D1,B1,20,48,B2,4C,0 B, 2372 <046> 

1063 DATA B6,C9,0D,60,A9,00,85,5E,20,5F,B4 

,20,EA,B1,20,0D,B5,24,5E,30, 2042 <120> 

1064 DATA 05,20,E4,FF,F0,FB,20,E1,FF,F0,26 

,20,9F,B2,24,5E,10,09,20,4E, 2435 <198> 

1065 DATA B5,20,0D,B5,20,60,B5,20,33,B2,20 

,3F,B2,90,D7,A0,B4,A9,28,20, 2190 <207> 

1066 DATA FF,B1,20,E4,FF,C9,0D,D0,F9,A9,00 

,85,5E,A5,61,85,FB,A5,62,85, 3056 <240> 

1067 DATA FC,20 ,E0 ,B2,4C, 64 ,B1 , A5 ,FC, 20,4E 

,B1,A5,FB,85,FF,20,4E,Bl,A9, 3003 <221> 

1068 DATA 20,A0,3A,20,F2,B1,A0,00,20,ED,B1 

,B1,FB,20,4E,B1,C8,C0,08,90, 2566 <070> 

1069 DATA F3,20,ED,Bl ,24,5E,30,03,A9, 12,2C 

j 9,20,20,D2,FF,20,10,B2,A5, 2190 <059> 

1070 DATA FF,20,4E,B1,A9,92,20,02,FF,4C,EA 

,B1,A9,FF,85,B8,85,B9,A9,04, 3073 <029> 

1071 DATA 85 , BA, 20 , C0 , FF , A2 , FF , 4C , C9 , FF , 20 

,CC,FF,A9,FF,4C,C3,FF,20,5F, 3315 <189> 

1072 DATA B4,A9,B0,85,5E,20,4E,B5,20,48,B2 

,A2,24,A9,2D,20,D2,FF,CA,D0, 2596 <111> 

1073 DATA FA,20,EA,Bl,20,EA,Bl,20,60,B5,4C 

,C1,B4,20,B8,B5,A6,5F,A4,60, 2812 <015> 

1074 DATA A9,61,20 , DB , FF , B0,0A , 20 , B7 , FF , 29 

,BF,D0,03,4C,FB,B4,A9,01,20, 2577 <201> 

1075 DATA C3,FF,20,6B,B6,A0,B4,A9,4F,20,FF 

,Bl,20,F9,B1,4C,FB,B4,20,68, 2921 <237> 

1076 DATA B6,A9,37,A0,B4,20,FF,Bl,20,F9,B1 

,A2,08,C9,44,F0,06,A2,01,C9, 2717 <213> 

1077 DATA 54,D0,F1,A9,01,A8,20,BA,FF,A0,00 

,E0,01,F0,1A,A9,40,80,20,02, 2403 <101> 

1078 DATA A9,3A,8D,21,02,B9,01,02,99,22,02 

,C8,CC,00,02,90,F4,CS,C8,D0, 2182 <127> 

1079 DATA 0C,B9,01,02,99,20,02,C8,CC,00,02 

,D0,F4,98,A2,20,A0,02,4C,BD, 201B <025> 

1080 DATA FF, 20, B8 , B5 , A5 , BA, C9,08,90,33, A6 

,B9,86,57,A9,01,20,C3,FF,A9, 2800 <022> 

1081 DATA 60,85 , B9,20, C0 , FF , B0,2B, A5, BA, 20 

,B4,FF,A5,B9,20,96,FF,20,A5, 2911 <053> 

1082 DATA FF,85,61,A5,90,4A,4A,B0,13,20,A5 

,FF,85,62,20,AB,FF,A5,57,85, 2663 <214> 

1083 DATA B9,A9,00,20,D5,FF,90,03,4C,A3,B5 

,86,5F,84,60,A5,BA,C9,01,D0, 2639 <131> 

1084 DATA 0A , AD , 3D , 03,85,61, AD, 3E , 03,85,62 

,4C,FB,B4,A9,13,20,D2,FF,A2, 2300 <120> 

1085 DATA IC,20,ED,Bl,CA,D0,FA,60, 1230 <214> 

6 B4'er 


MSE (Schluß). Dieses Listing können Sie (müssen 
aber nicht) mit dem neuen Checksummer 64 V3 in 
diesem Heft eingeben. 








Anwendung 


C 64 


Minitutor 64 

Was sich des öfteren hochtrabend als 
»Sprachtrainer« bezeichnet, setzt den 
Computer lediglich als didaktischen 
Datenverwalter ein, ohne daß die 
Maschine eine Ahnung von Sprache 
hat. Mit dem folgenden Programm ver¬ 
hält es sich etwas anders: es ist in der 
Lage, Sprache zu simulieren! 

Mal ehrlich: Wenn Ihnen ein Englischlehrer die Pistole auf 
die Brust setzen und Sie fragen würde »Wie lautet das present 
perfect continuous von live in der 3. Person Plural?« - Könn¬ 
ten Sie Ihren Gegner dann mit einem spontanen »They have 
been living« entwaffnen? - Wirklich? 

Aber das heißt noch lange nicht, daß Sie sich jetzt einiges an 
Tipparbeit sparen können. Denn wenn Sie so fit im englischen 
Zeitensystem sind, daß Sie kein Trainingsprogramm mehr 
brauchen, dann können Sie das folgende Programm vielleicht 
als Beschäftigungstherapie für Nachhilfeschüler einsetzen... 

Das Programm Minitutor ist in der Lage, aus der Vorgabe von 
Person, Zeit und Verb alle möglichen Zeitstufen im Englischen 
zu erzeugen. Dieser erzeugte Satz wird aber nicht verraten, 
sondern soll vom Anwender anhand der Vorgaben rekon¬ 
struiert werden. Sind Computer und Anwender einer Mei¬ 
nung, so gibt’s Zuckerbrot, ansonsten winkt die Peitsche in 
Form von Fehlerpunkten und es ist eine Intensivkur mit Gram¬ 
matikbüchern zu empfehlen. Doch kommen wir zu den Fein¬ 
heiten: 


Automatische Vergangenheit 


Nach dem Start meldet sich das Programm (Listing 1) mit 
einem Menü. Zur Auswahl stehen A;L;E (hat nichts mit Bier zu 
tun!). 

»E« wie Ende braucht wohl nicht näher erläutert werden. 

»A« wie Anleitung ruft eine Bildschirmseite auf, die die wich¬ 
tigsten Regeln für den Umgang mit dem Programm erklärt. 

»L« steht, wie soll es anders sein, für LERNEN. 

Zunächst muß die zu lernende Lektion erstellt werden. Es 
wird also gefragt, welche Zeiten und Personen geprüft wer¬ 
den sollen. Der Anwender braucht hier nur 21mal J(a) oder 
N(ein) drücken. 

Danach kann man eingeben, wie viele Fragen gestellt wer¬ 
den sollen. Eine 0 als Eingabe führt zu einer endlosen Frage¬ 
rei, die nur durch ein eindeutiges »ENDE« statt einer Lösung 
abgebrochen werden kann (oder durch entnervtes Durchbei¬ 
ßen der Versorgungsleitungen). 

Weiterhin kann man wählen, ob man zur Beantwortung belie¬ 
big viel Zeit haben will (Eingabe = 0), ansonsten wird nach 
Ablauf der angegebenen Zeit ein Fehlversuch angerechnet! 
Und jetzt geht der Streß erst richtig los: 

Nun werden freundlicherweise Zeit, Person und Verb, per 
Zufall bestimmt, angezeigt, nachdem die Lösung intern schon 
feststeht (Merke: der Computer hat immer Recht!!!). 

Der Schüler möge nun bitte die richtige Form angeben, er 
hat drei Versuche: 


»Wie lautet das present von try in der 3. Person Singular?« 
Eingabe: »it trys« - Der Lehrer wendet sich angesichts dieses 
Fehlers mit Grausen ab, aber der Computer, freundlich wie er 
ist, gibt einen kleinen Lösungshinweis und deutet mit einem 
Pfeil den Beginn des Fehlers an: 

it trys 

t 

Hier beginnt der Fehler. 

Der Schüler versucht’s nochmal: »it tris«. Das ist auch nicht 
ganz das Wahre. Die nächste Hilfestellung zeigt die Struktur 
des ganzen Satzes als Punktmuster an, wobei für jeden Buch¬ 
staben ein Punkt steht: ».«. 

Und wenn das nicht geholfen hat, wird dem Schüler ein 
Minuspunkt gutgeschrieben und die nächste Frage folgt. 

Hat er aber richtigerweise »ittries« eingegeben, gibt's zwar 
keinen Fehlerpunkt, aber die nächste Frage kommt trotzdem. 
Blickt der Schüler gar nicht mehr durch, kann er auch, statt 
eine Lösung einzugeben, um »HILFE« rufen. Dies zeigt ihm 
die Anleitungsseite und kehrt dann zur Frage zurück. Dabei 
werden aber eventuell vorhandene Hilfestellungen über¬ 
schrieben. 


Freundliche Fehleranzeige 


Dieses Spielchen wiederholt sich so lange, bis entweder die 
gewünschte Anzahl von Übungen überlebt wurde oder dem 
Spuk mit »ENDE« ein solches gemacht wird. 

Dann kommt die Abrechnung: 

Auf zwei Nachkommastellen genau erhält der Schüler seine 
Fehlerquote und dazu noch eine Tabelle, die zeigt, wo die Feh- 
lefäSJftraten. Die horizontalen Zahlen bedeuten die Zeitstufe, 
die vertikalen die Person. 

Ein »X« an den Schnittpunkten bedeutet, daß in dieser Kombi¬ 
nation ein oder mehrere Fehler gemacht wurden. 

Wer seinen (Miß-)Erfolg gerne schwarz auf weiß hat, kann 
sich die Tabelle samt Kommentar auch auf den Drucker aus¬ 
geben lassen (Dev.=4). 

Und schon landet man wieder im Menü. Wer noch nicht genug 
hat, kann die gleiche Lektion nochmal bearbeiten, er spart 
sich 21 Tastendrücke und braucht nur noch Anzahl der Übun¬ 
gen und Zeitbegrenzung neu wählen, oder aber eine neue 
Lektion zusammenstellen. 

Das war die Datenverwaltung, nun zur sprachlichen Seite 
des Programmes: 

Das Unterprogramm ab Zeile 410 kann 15 verschiedene 
Zeitstufen des Englischen erzeugen. Dabei kommt es weni¬ 
ger auf den tatsächlichen Gebrauch in der Alltagssprache an, 
sondern darauf, daß die Hilfsverben an den richtigen Stellen 
sitzen und daß, wenn nötig, Buchstaben wegfallen, ersetzt 
oder verdoppelt werden. 

Die grammatischen Regeln, die hierbei beachtet werden, 
möchte ich an dieser Stelle nicht erläutern, denn darüber 
kann man eine ganze wissenschaftliche Arbeit schreiben. 
Verarbeiten kann die Routine zwar jedes englische Verb, für 
den Minitutor wurden jedoch nur schwache und regelmäßige 
Verben vorgesehen. (Deswegen auch das »Mini-«.) 

Um auch unregelmäßige Verben zu verarbeiten, müßte 
zunächst noch eine Liste mit den Ausnahmen erstellt werden. 
Der C 64 verkraftet zwar deren Umfang, dieser umfaßt aber 
eine Liste mit mehr als 200*4 Elementen, und sowas läßt 
sich nur schwer veröffentlichen. 

Noch einige Spielregeln: 

Das Programm verwendet als Pronomen für die 3. Person 
Singular »it«, obwohl auch »he,she« möglich wären. Die in der 
Anleitung angegebenen Personalpronomen »l,you,it,we,you, 
they« für die 1. Person Singular bis 3. Person Plural sind unbe- 
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Anwendung 


dingt zu verwenden, da etwas anderes nicht akzeptiert wird. 
Das gilt auch für Abkürzungen: »l’m, l’ve« müssen als »I am, I 
have « ausgeschrieben werden. Auch werden Tippfehler vom 
Programm als Fehler gewertet! 

Das /EF hinter der Zeitbezeichnung steht übrigens für 
expanded form, das heißt die »-ing«-form (progressive, conti- 
nuous form), zum Beispiel »I am living« = present/ef von live 
in der 1. Person Singular. 

Technisches: 

1. Die Eingabe dürfte kein Problem sein. Lediglich in den 
Zeilen 420 und 450 muß mit allen Kürzungstricks gearbeitet 
werden, es sei denn, man macht aus ihnen je zwei Zeilen. 

2. Aufgrund der vielen Strings ist ein Compilerdurchlauf 
recht nützlich. Über den Listingservice wird auch eine compi- 
lierte Version erhältlich sein. 

3. Wem 5940 mögliche Sätze nicht ausreichen, der kann 
auch den Wortschatz ab Zeile 558 erweitern. Er muß aller¬ 


dings darauf achten, daß die Verben keine Ausnahmen von 
den Regeln sind, und daß in Zeile 20 immer der richtige Wert 
zugewiesen wird. 

(Michael Anton/og) 


Zur Entstehung des Programms: 

Das Programm Minitutor entstand aus einer Zwischenprüfungsar¬ 
beit in Linguistik an der Universität Stuttgart, wo ich mich anglisti- 
scher und germanistischer Studien befleißige. Inhalt dieser Arbeit 
war ein Vergleich der deutschen und englischen Zeitenbildung 
anhand von Computermodellen. Aus dieser Arbeit wurden die Zeilen 
410 - 490 fast unverändert übernommen und in den «didaktischen* 
Rahmen eingefügt, wobei allerdings die Berücksichtigung der unre¬ 
gelmäßigen Verben herausfallen mußte. Die hierzu notwendige Ver¬ 
gleichsliste umfaßt ein sequentielles File mit einer Größe von 20 Dis¬ 
kettenblöcken. (M. Anton) 


0 REM •*■»•*■****•***■»***#*******■*•*«■***#** 

* * 

<244> 

FF >NLEITUNG"sPRINT"{DOWN,15RIGHT,RVSON > 
L{RVOFF >ERNEN" 

< 133> 

2 REM » MINITUTOR C64 * 


70 PRINT"{DOWN,15RIGHT,RVSON>E{RVOFF>NDE“ 

<223> 

* # 

<232> 

72 GET T*sIF T*=""THEN 72 

<019> 

4 REM * 1985 BY * 


74 IF T*="A"THEN GOSUB 496bGOTO 62 

< 103> 

* MICHAEL ANTON * 

<235> 

76 IF T*="L"THEN 90 

<056> 

6 REM * HERM.ESSIG STR 106 * 


78 IF T*="E"THEN END 

<0B3> 

* 7141 SCHWIEBERDINGEN * 

< 141 > 

80 GOTO 72 

< 0 B 2 > 

B REM » <07150)/31576 « 


82 8 

<058> 

* * 

<250> 

B4 ■ 

<060> 

9 REM ********************************** 

<046> 

86 REM LEKTION ERSTELLEN 

<067> 

12 : 

<244> 

88 3 

<064 > 

14 : 

<246> 

90 IF UZ=0 THEN 94 

<173> 

16 REM INIT 

< 1B6> 

92 INPUT"{CLR,5DOWN>GLEICHE LEKTION NOCHMA 


18 3 

<250> 

L <{RVSONIJ<RVOFF>/{RVSON>N<RVOFF>> "jT 


20 VA=65 : REM ANZAHL VERBEN 

<073> 

*sIF T*="J"THEN 132 

< 100 > 

22 s 

<254> 

94 PF-V" {CLR,DOWN,7RIGHT,YELLOWJLEKTION Z 


24 DIM ZB*<15),FT*<15,6),EZ<15) 

<035 > 

USAMMENSTELLENs" 

<097> 

26 EP*= " ED ": EC*=" ING": PP*= " HAD ":CP*=" BEEN " 
s CF*="BE":HF*="WILL":HC*="WOULD" 

<1B9> 

96 PRINT“{GREEN,2D0WNJS0LL DAS"3PRINT"C3D0 
WN1GEPRUEFT WERDEN?{4SPACE> <{RVSONJJ{RV 


28 FP»= " HAVE " s PS* < 1) = " I " « PS* < 2 > = "YOU"s PS* < 


OFF >/{RVSON >N{RVOFF >)" 

< 192> 

3)="IT"sPS*<4>="WE".-PS*<5)="YOU" 

< 123> 

98 FOR 1 = 1 TO 153 EZ CI)=0s NEXT IsPRINT“{YEL 


30 PS* ( 6 ) ="THEY" 3 CI* (1) = " AM" s CI* <2) ="ARE” s 


LOW>“ 

<105> 

C1*<3) = "IS"bC1*(4) — “ARE" 3 CI* (5)="ARE" 

<176> 

100 FOR 1 = 1 TO 15« POKE ZE, 6 sPOKE SP.lsSYS 


32 C1* < 6 )="ARE":C2* <1> ="WAS"s C2* < 2 > = “ WERE “ 


PR3 PRINT CL* 

<184> 

s C2*<3> ="WAS"s C2* <4>="WERE" 

<035> 

102 POKE ZE ,6 s POKE SP.lsSYS PRsPRINT ZB*<I 


34 C2*(5)="WERE"3 C2* < 6 > =“WERE"s HP* <1)="HAV 


) 

<158> 

E"3 HP*(2)="HAVE"s HP*(3)—"HAS" 

<205> 

104 BET T*lIF T*=""THEN 104 

<013> 

36 HP* (4) ="HAVE" s HP* (5) =''HAVE" s HP* ( 6 ) ="HAV 


106 IF T*="N"THEN 112 

<098> 

E“ 

< 126> 

108 IF T*="J"THEN EZ<I)=l3GOTO 112 

<212> 

38 PB* (1)="1. PERSON SING.“sPB*<2>="2.PERSO 


110 GOTO 104 

<166> 

N SING. •• 3 PB* <3>="3. PERSON SING." 

<011> 

112 NEXT I 

< 196> 

40 PB*<4>="1.PERSON PLUR.":PB*(5)="2.PERSO 
N PLUR."3 PB*( 6 )="3.PERSON PLUR." 

< 163> 

114 POKE ZE,4sPOKE SP,5s5YS PRsPRINT“{GREE 
N>DIE{YELLOW >" 

< 105> 

42 ZB*<1)="PRESENT"3 ZB*(2)="PAST"sZB*<3)=" 


116 FOR 1 = 1 TO 6 :EP <I)=0:NEXT I 

<128> 

PRESENT PERFECT"sZB*(4)="PAST PERFECT" 

<091> 

118 FOR 1 = 1 TO 6 s POKE ZE, 6 :P 0 KE SP.lsSYS P 


44 ZB* <5)="FUTURE"3 ZB*( 6 )="FUTURE PERFECT“ 


RbPRINT CL* 

<053> 

3 ZB* <7> ="CONDITIONAL I" 

<005> 

120 POKE ZE, 6 :POKE SP.lsSYS PRsPRINT PB*(I 


46 ZB*(8)="C0NDITI0NAL II ” :ZB*(9)="PRESENT 


> 

<096> 

/EF"s ZB* <10)="PAST/EF" 

<0B6> 

122 GET T*sIF T*= " "THEN 122 

<158> 

48 ZB*(11) =" PRESENT PERFECT/EF“ : ZB* ( 12)="P 


124 IF T*="N"THEN 130 

<100> 

AST PERFECT/EF"3 ZB* < 13)="FUTURE/EF" 

< 161 > 

126 IF T*="J"THEN EP(I)=lsGOTO 130 

< 118> 

50 ZB*(14)“"CONDITIONAL I/EF" 8 ZB* < 15)="CON 


128 GOTO 122 

< 152> 

DITIONAL II/EF" 

< 176> 

130 NEXT IsPRINT"{GREEN,8D0WN}" 

<099> 

52 ZE=214:SP=211s PR=58640 : CL*="<37SPACE>" 

<228> 

132 MA=0s T=0s FOR 1 = 1 TO 15sMA=MA+EZ < I ) sNEX 


54 s 

<030> 

T IsFOR 1 = 1 TO 6 3 T=T+EP ( I ) s NEXT I 

<127> 

56 3 

<032> 

134 IF MA=0 OR T=0 THEN PRINT"{WHITE>WAS S 


58 REM MENU 

<084> 

OLL DER QUATSCH?{GREENJ“sUZ=0sGOSUB 33 


60 3 

<036> 

BsGOTO 90 

<249> 

62 POKE 53280,0sPOKE 53281,0 

< 190> 

136 T=0sMA=0 

< 189> 

64 PRINT"{CLR.5DOWN,10RIGHT,CYAN>M INIT 
U T 0 R" 

<050> 

138 INPUT “ ANZAHL DER FRAGENS <0=BELIEBIG) " 
jMAsIF MA<0 THEN PRINT"{UP} " 5 3GOTO 138 

<178> 

66 PRINT"{3D0WN.8RIGHT,ORANGE>1985 BY MICH 
AEL ANTON" 

<124> 

140 PRINT"{DOWN}ZEITBEGRENZUNG FUER EINGAB 
E (IN SEK. )“ 

<243> 

68 PRINT"{YELLOW,5D0WN,15RIGHT,RVSQN>A<RVO 


142 INPUT" <0=KEINE> ";TsIF T<0 THEN PRINT 


Listing des »Minitutor«. Bitte beachten Sie die Eingabehinweise auf Seite 6. 
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"<3UP»";: GOTO 140 

< 121 > 

246 

GOSUB 338 

<255> 

144 

T—T»60 

<245> 

248 

PRINT CHR*(147> 

< 021 > 

146 

PRINT“<DOWN,5RIBHT»ALLES KLAR! !!“sG05U 


250 

PRINT"(LIG.BLUE,SPACE»ES BEDEUTEN IN D 



B 338 

< 176> 


ER FEHLERTABELLE:" 

<178> 

148 

s 

<124> 

252 

PRINT 

<098> 

150 

: 

<126> 

254 

PRINT"(5SPACE»HÖRIZONTAL(4SPACE»-( 6 SPA 


152 

REM ABFRAGEN 

< 010 > 


CE»VERTIKAL" 

<176> 

154 

: 

<130> 

256 

PRINT"1=PRESENT TENSE(4SPACE 3 =1 = 1.PERS 


156 

FZ=0:UZ=0:FOR 1=1 TD 15:FOR J=1 TO 6 «F 



ON SINGULAR" 

<190> 


T*<I,J>=“H":NEXT J:NEXT I 

< 022 > 

258 

PRINT"2=PAST TENSE(7SPACE3=2=2.(2SPACE 


158 

UZ=UZ+1:PQKE 53280,11sPOKE 53281,0 

< 194> 


»#( 8 SPACE»#“ 

<255> 

160 

Z=INT(RND(TI)*15)+1:IF EZ(Z>=0 THEN 16 


260 

PRINT"3=PRESENT PERFECT(2SPACE»=3=3.(2 



0 

< 186> 


SPACE »*( 8 SPACE »#" 

< 138 > 

162 

P=INT(RND(TI)* 6 )+1tIF EP(P>=0 THEN 162 

<193> 

262 

PRINT"4=PAST PERFECT(5SPACE»=4=1.(2SPA 


164 

VN=INT(RND(TI)*VA)+1:RESTOREr FOR 1=1 T 



CE J#(4SPACE»PLURAL" 

<067> 


0 VN«READ VI*!NEXT I 

< 180> 

264 

PRINT"5=FUTURE (11SPACE»=5=2. (2SPACE»(t ( 


166 

GOSUB 414:GOSUB 388sVS=0 

<081> 


7SPACE»#" 

<035> 

168 

PRINT“(CLR,DOWN,3RIGHT.LIG.BLUEJWIE LA 


266 

PRINT" 6 =FUTURE/PERFECT(3SPACE» = 6 = 6 .(2S 



UTET DAS(SPACE,YELLOW»“ S ZB*(Z> 

<214> 


PACEJ#(7SPACE)#" 

<076> 

170 

PRINT “ <LIG.BLUE,SPACE > VON(SPACE,YELLOW 


268 

PRINT"7=C0NDITI0NAL I (4SPACE»SC-C-CJC.C.C.C. 



>“ 5 GF*; “ (LIG.BLUE.SPACE»IN DER(SPACE,Y 



££££££££££££", 

<245> 


ELLOW »“ ; PB* ( P) 5 “(LIG.BLUE,SPACE »?": PRI 


270 

PRINT " 8 =CONDITIONAL II<3SPACE»=“ 

<136> 


NT“(GREEN»” 

<165> 

272 

PRINT " 9=PRESENT/EF(7SPACE »=H=RICHTIG(2 


172 

GOSUB 352 

<020> 


SPACE3BZW." 

<206> 

174 

IF L*="HILFE"THEN GOSUB 496:GOTO 168 

<249> 

274 

PRINT ” 10=PAST/EF(9SPACE »=(2SPACE »NICHT 


176 

IF L*=“ENDE“THEN UZ=UZ-1:G0T0 214 

< 125> 


GEPRUEFT" 

<045> 

178 

IF L*=A*THEN GOSUB 322:PRINT"(LIG.BLUE 


276 

PRINT"11=PRESENT PERF./EF=“ 

< 103> 


,2D0WN»RICHTIG! !!": GOSUB 338:GOTO 204 

<098 > 

278 

PRINT “ 12=PAST PERF./EF(3SPACE»=Ä=HIER 


180 

IF L*="TIMEOUT " THEN PRINT"(LIG.BLUE,3S 



TRATEN" 

<237 > 


PACE»VIEL ZULANGE UEBERLEGT !!" 

<227> 

280 

PRINT"13=FUTURE/EF(7SPACE »=(2SPACE »FEH 


182 

PRINT"(LIG.BLUE,3SPACE»DAS WAR FALSCH. 



LER AUF" 

<214> 


GOSUB 326 : VS=VS+1 

<252> 

282 

PRINT“14=C0NDITIONAL I/EF=" 

<229> 

184 

IF VS>1 THEN 192 

< 141 > 

284 

PR I NT "15=C0NDITI ONAL 11/ EF ?££££££££££££ 


186 

IF L*="TIMEOUT"THEN 190 

<163> 


cg-gccccc" 5 

<011> 

188 

GOSUB 398:PRINT L*:PRINT TAB(FP-1 );"T" 


286 

PRINT"(33SPACE»= M.A." 

< 186> 


:PRINT“HIER BEGINNT DER FEHLER!" 

<123> 

288 

PRINT"EF BEDEUTET EXPANDED FORM, ALSO( 


190 

PRINT"VERSUCHEN SIE ES NOCHMAL:(GREEN, 



2SPACE»=" 

< 108> 


DOWN»“:GOTO 172 

< 115> 

290 

PRINT"PROGRESSIVE ODER '-ING ' FORM!!!< 


192 

IF VS=3 THEN 196 

<069> 


2SPACE»= 1985" 

< 199> 

194 

PRINT"(D0WN5VERSUCHEN SIE ES MAL DAMIT 

nr 

292 2° INT" r-ßßccß.cßs.c.c.ccj:j:^cßß^cj^cc.cßcj:£.c 



:" : PRINT H*"(UP,GREEN» ": GOTO 172 

<211 >~ 


.-./CCCCCC"; 

<208> 

196 

PRINT"(YELLOW,2D0WN»ALLER FALSCHEN DIN 


294 

IF DP=1 THEN GOSUB 306:GOTO 62 

<20B> 


GE WAREN DREI," 

< 115> 

296 

GOSUB 338:GOTO 62 

<031 > 

198 

PRINT"JETZT IST ES MIT DEM SPIEL VORBE 


298 

3 

<020> 


I ! ! ” 

< 189> 

300 

S 

<022> 

200 

PRINT"(LIG.BLUE,DOWN»RICHTIG WAERE GEW 


302 

REM HARDCOPY 

<020> 


ESEN: (GREEN»".-PRINT A*" (LIG. BLUEJ" 

<024> 

304 

1 

<026> 

202 

FZ=FZ+1:FT*<Z,P>="£":GOSUB 338 

<225 > 

.306 

OPEN 1,4:OPEN 2,3:PRINT"(HOME}“; 

<244> 

204 

IF UZ<MA OR MA=0 THEN 158 

< 171 > 

308 

FOR 1=1 TO 25:FOR J=1 TO 20:GET#2,T*IP 


206 

1 

<1B2> 


RINT CHR*(20) ; :GET#2,L* 

<138> 

208 

8 

< 184> 

310 

PRINT CHR* ( 157)CHR* ( 148)T*L*j:PRINT#1, 


210 

REM FEHLERAUSWERTUNG 

<000> 


T*L*; : NEXT J: PRINT#1 : NEXT I 

<070> 

212 

s 

< 188> 

312 

CLOSE 2:CLOSE 1:RETURN 

<251 > 

214 

IF UZ=0 THEN 62 

<034> 

314 

3 

<036> 

215 

PRINT"(CLR,9D0WN»WUENSCHEN SIE DIE BEW 


316 

: 

<038> 


ERTUNG AUF“ 

<208 > 

318 

REM FARBSPIELE 

<244> 

216 

INPUT"(DOWN , RVSONJD(RVOFF»RÜCKER ODER ( 


320 

: 

<042> 


SPACE,RVBONJB(RVOFF » ILOSCHIRM “; T* 

<063> 

322 

FOR 1=1 TO 2:FOR J=1 TO 15:P0KE 53280, 


218 

DP=0:IF T*="D"THEN DP=1 

< 116> 


J: FOR V=1 TO 50:NEXT VlNEXT J : NEXT I 

< 113> 

220 

POKE 53280,5:POKE 53281,0:PRINT"(CLR»" 


324 

POKE 53280,5:RETURN 

<222> 


:K*=" " 

<100> 

326 

POKE 53281,0:FOR 1=1 TO 20:FOR J=1 TO 


222 

PZ=INT(FZ/UZ*10000+.51/100:IF PZ>40 TH 



15:POKE 53280,J : NEXT J:NEXT I 

<063> 


EN POKE 53280,2:K*=” NICHT “ 

<177> 

328 

POKE 53280,2:POKE 53281,11 : RETURN 

<207> 

224 

PRINT" IN "UZ" AUFGABEN WURDEN" 

<031 > 

330 

: 

<052> 

226 

PRINT FZ” FEHLER GEMACHT .“ I PRINT 

< 144> 

332 

i 

<054> 

228 

PRINT" DAS IST EINE FEHLERQUOTE VON” 

<093> 

334 

REM WARTEN 

< 171 > 

230 

PRINT PZ“ PROZENT. ": PRINT 

<198> 

336 

3 

<058> 

232 

PRINT“IN DER SCHULE HAETTEN SIE MIT DI 


338 

PRINT"(DOWN,5RIGHT»BITTE EINE TASTE DR 



ESEM" 

<208> 


UECKEN" 

<047> 

234 

PRINT"ERGEBNIS”K*"BESTANDEN! !!”: PRINT: 


340 

WAIT 198 , 1 : POKE 198,0 

<112> 


PRINT 

< 161 > 

342 

RETURN 

<146> 

236 

PRINT " (2D0WN.YELLOW,4SPACE >=( 19SPACE31 


344 

t 

<066> 


11111 ” 

<204 > 

346 

3 

<068 > 

238 

PRINT"(4SPACE» = 12345678901 


348 

REM INPUT 

<083> 


2 3 4 5 " 

<061 > 

350 

| 

<072> 

240 

PRINT" Fjl££+cßßßc££cj:scccj:ßßj:ccj:ßcj:cßßc 


352 

TI *=“ 000000":L*="":POKE 204,0 

<168> 


■C-C.C.C" 

<022> 

354 

GET T* 

<206> 

242 

FOR J=1 TO 6:PRINT J t TAB(41 “ = “|: FOR 1= 


356 

IF T*=CHR* < 13)THEN 376 

<241 > 


1 TO 15:PRINT" "FT* < I,J >;: NEXT I:PRINT 


358 

IF T*< >CHR* ( 20 > THEN 362 

<090> 


: NEXT J 

<081 > 

360 

IF LEN(L*)>=1 THEN PRINT CHR*(20) j: L*= 


244 

IF DP=1 THEN GOSUB 306:GOTO 248 

<Z12> 


LEFT*(L*,LEN(L*)-1):GOTO 354 

<210> 


HO 
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362 

IF T*=""THEN 370 

<215> 

484 

A*=PS*(P>+" "+HC*+“ "+CF*+" "+CC*:RETU 


364 

IF T*=CHR*(32)THEN 36B 

<090> 


RN 

<041 > 

366 

IF ASC(TO<65 OR ASC(T*>>90 THEN 370 

<067> 

486 

A#=PS*(P)+" "+HCS+" "+FP*+" "+CP*+" "+ 


368 

L*=L*+T*:PRINT T*; 

<189> 


CC*:RETURN 

<249> 

370 

IF T=0 THEN 354 

< 14S> 

488 

s 

<210> 

372 

IF TI<T THEN 354 

<165> 

490 

s 

<212> 

374 

L*="TIMEOUT" 

<057 > 

492 

REH ANLEITUNG 

<009> 

376 

IF PEEK(207)THEN 376 

<141> 

494 

8 

<216> 

378 

POKE 204,1sRETURN 

<238> 

496 

CB=PEEK(53280):CP=PEEK(53281):CC=PEEK( 


380 

z 

<102> 


646) 

<080> 

382 

s 

< 104> 

498 

POKE 53280,1:POKE 53281,1:PRINT CHR*(1 


384 

REH HILFESTELLUNGEN 

<073> 


47) j 

< 157> 

386 

s 

< 108> 

500 

PRINT"<BLACK>ERLAUBTE TASTEN:" 

<079> 

388 

H*="" 

<191> 

502 

PRINT"--" 

< 129> 

390 

FOR 1=1 TO LEN(A*):T*=MID*((A*>,1,1) 

<081 > 

504 

PRINT"AUSWAHL IH MENU:<3SPACE)A,L,E" 

<201 > 

392 

IF T*OCHR*(32)THEN H*=H*+" . " : GOTO 396 

<037> 

506 

PRINT"LEKTION ERSTELLEN: J,Nj0-9.RETUR 


394 

H*=H*+CHR*(32) 

<102> 


N" 

<214> 

396 

NEXT I:RETURN 

<086> 

508 

PRINT"FEHLERAUSWERTUNG:{2SPACEJD BEWIR 


398 

FP=0:FOR 1 = 1 TO LEN(L*> 

<208> 


KT HARDCOPY" 

< 109> 

400 

IF MID*(L*,I,1)=MID*(A*,I,1)THEN 404 

<241 > 

510 

PRINT"SATZEINGABE:<7SPACE JBUCHSTABEN+R 


402 

FP=I:I=LEN(L*>+2 

<026> 


ETURN" 

<162> 

404 

NEXT IiRETURN 

<094> 

512 

PRINT" (19SPACE)- 

<040> 

406 

s 

< 128> 

514 

PRINT"-HILFE-- ZEIGT DIESE ANLEITUNG" 

< 163> 

408 

s 

< 130 > 

516 

PRINT" ENDE' - BEENDET FRAGESCHLEIFE" 

<210> 

410 

REH SATZ ERZEUGEN 

<190> 

518 

PRINT"- 


412 

s 

<134> 


"1 

<246 > 

414 

X*=RIGHT*(V1*,2>:X1*=LEFT*(X*,1):X2*=R 


520 

PRINT"HILFESTELLUNGEN:“ 

< 146> 


IGHT*(X*,1> 

< 173> 

522 

PRINT"-" 

<151? 

416 

IF LEN(V1*>>3 THEN X0*=MID*(V1*,LEN(VI 


524 

PRINT" - f - MARKIERT BEGINN DES FEHLERS 



S)-2,l) 

<062> 



<035> 

418 

IF X2*="E"THEN 426 

< 169> 

526 

PRINT" - .PUNKT-BUCHTABE“ 

<120> 

420 

IF X2*="T"0R X2*="P"0R X2*="G"0R X2*=" 


528 

PRINT"- 



B"OR X2*=''R"DR X2*="N"DR X2*="M"0R X2* 



n . 

» 

<000> 


="L"THEN 428 

<065> 

530 

PRINT"DREI VERSUCHE FUER JEDE FRAGE!!! 


422 

IF X2*="Y“THEN 436 

<209> 


" 

< 117> 

424 

GOTO 440 

<186> 

532 

PRINT"TIPPFEHLER GELTEN ALS FEHLER'•!! 


426 

GF*=V1*:V1*=LEFT*(VI*,LEN(Vl*>-1>: PF*= 



'* 

<098> 


V1*+EP*5 PT*=PF*:CC*=V1*+EC*:GOTO 442 

< 122> 

534 

PRINT" /EF BEDEUTET '-ING‘-FORM (PROGR 


428 

IF Xl*="A“OR Xl*=“E"OR Xl*="I"OR Xl*=" 



ESSIVE.)“j 

<219> 


0"0R X1*="U"THEN 432 

<209> 

536 

PRINT"ANGEGEBEN WERDEN ZEIT,PERSON UND 


430 

GOTO 440 

<192? 

3fTLin 

B." 

< 174> 

432 

IF X0*=“A"OR X0*="E"DR X0*="I"OR X0*=" 


538 

PRINT"GEFRAGT IST NACH KORREKTEM MINIM 



0"0R X0*="U"THEN 440 

<085? 


ALSATZ , '* 

<084 > 

434 

GF*=V1 *: V1 *=V 1 *+X2* : PF*»V 1*+EP* :PT*=PF 


540 

PRINT"Z.B. * I HAVE LIVED’." 

< 160> 


*:CC*=V1*+EC*!GOTO 442 

<192? 

542 

PRINT"ERLAUBTE PERSONALPRONOMEN:" 

<026> 

436 

IF Xl*="A"OR Xl*="E“OR Xl*=“I"OR Xl*=" 


544 

PRINT" I , YOU , IT , WE , YOU , THEY 



0*’0R X1*="U"THEN 440 

< 169> 


. « 

<187> 

438 

GF*=V1*!CC*=V1*+EC* tPF*=LEFT*(V1*,LEN( 


546 

PRINT"- 



VI*)-1)+"I"+EP*:PT*=PF*:GOTO 442 

<159? 


-“! 

<01B> 

440 

6 F*=V1*:PF*=GF*+EP*:PT*=PF*:CC*=GF*+EC 


548 

PRINT"(9SPACE,RVS0N)BITTE TASTE DRUECK 



* 

<183> 


EN CRVOFF >“; 

<234 > 

442 

IF Z>8 THEN 446 

< 129> 

550 

WAIT 198,1:POKE 198,0 

<068> 

444 

ON Z GOTO 44B,460,462,464,466,468,470, 


552 

POKE 532B0,CB:POKE 53281,CP:POKE 646,C 



472 

<080> 


C:RETURN 

<154? 

446 

ON Z-8 GOTO 474,476,478,480,482,484,48 


554 

: 

<022> 


6 

<200> 

556 

8 

<024> 

448 

A*=PS*(P>+" "+GF*:IF P<>3 THEN RETURN 

< 141 > 

558 

REM WORTLISTE 

<013? 

450 

IF X2*= u O"OR X2*="S"0R X2*="X"OR(Xl*= u 


560 

8 

<028 > 


C"OR X1*="S"AND X2*="H")THEN A*=A*+"ES 


562 

DATA STAY,REMAIN,PASS,LEARN,STUDY,SWIT 



RETURN 

<054> 


CH,LOCK,JUMP,TURN,WATCH,LIVE,PRINT 

<002> 

452 

IF X2*< >"Y"THEN A*=A*+"S“sRETURN 

<069? 

564 

DATA KISS,TRY,STATE,PERMIT,SAIL,TALK,S 


454 

IF Xl*="A"OR Xl*="E"OR X1*=”0"0R Xl*=" 



UM,TRAVEL,WALK,PREFER,PLAY,OCCUR 

<102> 


I"OR X1*="U"THEN A*=A*+"S":RETURN 

<149> 

566 

DATA SATISFY,LAUNCH,DISPLAY,GREET,CALL 


456 

A*=LEFT*(A*,LEN(A*)-1)+"IES"»RETURN 

<023> 


, WORK , LOOK , ARRI VE , WARN , TELEPHONE 

<059 > 

458 

s 

<1B0> 

568 

DATA APPEAR,EXPECT,WAIT,HOPE,SUPPOSE,W 


460 

A*=PS*(P>+" -+PF*iRETURN 

<242> 


ANT, HELP, END , START , CHANGE , DROP 

<032> 

462 

A*=PS*(P)+" "+HP*(P) +" "+PT*!RETURN 

<112> 

570 

DATA COMPARE,FOLLOW,OBEY,RESIST,SERVE, 


464 

A*=PS*(P>+” “+PP*+" "+PT*:RETURN 

<230> 


THANK,OPPOSE,BELIEVE,ENJOY,STOP,DREAM 

<084 > 

466 

A*=PS*(P>+" "*HF*+" "+GF*= RETURN 

<144> 

572 

DATA FLOW , CALCULATE , CRY , SCREAM , CHECK , P 


468 

A*=PS*(P)+" "+HF#+" "+FP*+" "+PT*:RETU 



ROGRAM, STRESS, LAUGH , QUAL IFY 

<148> 


RN 

<201? 

574 

s 

<042> 

470 

A*=PS*(P)+" "+HC*+" -'+GF*! RETURN 

< 145> 

576 

REM MOMENTAN 66 VERBEN 

<109> 

472 

A*=PS*(P)+" "+HC*+" "+FP*+" "+PT* 5 RETU 


578 

a 

<046> 


RN 

<202> 

580 

REM HARDCOPYROUTINE NACH EINER IDEE 

<010? 

474 

AS=PS*(P)+" "+C1*(P)+" "+CC*!RETURN 

< 124> 

582 

REM VON K.H.HESS, 64‘ER 4/85. 

< 1B7> 

476 

A*=PS*(P>+“ "+C2*(P)+" "+CC*:RETURN 

< 127> 

584 

REM VIELEN DANK! 

<082? 

478 

A*=PS*(P) + “ "+HP*(P)+" "+CP*+" "+CC*S R 


586 

: 

<054> 


ETURN 

< 191 > 

588 

REM ALLE REM-ZEILEN KOENNEN WEG- 

<205> 

480 

A*=PS*(P)+" "+PP*+" "+CP*+" "+CC*s RETU 


590 

REM GELASSEN WERDEN! 

<081 > 


RN 

<059> 




482 

A*=PS*(P>+“ "+HF*+“ “+CF*+“ "+CC*s RETU 






RN 

<042> 

© &*'er Listing Minitutor (Schluß) 



itfatti 'ic-de 
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Textmaster - Textverarbeitung 
speziell für MPS 8011803 


Mit Textmaster stellen wir Ihnen eine Textverarbeitung vor, die den MPS 801 
und den MPS 803 voll ausnutzt. Randausgleich sowie 
beliebige Zeichensätze sind nur einige der hervorstechenden 
Eigenschaften von Textmaster. 


Textverarbeitungsprogramme gibt es viele, aber diese sind 
meist für den professionellen Gebrauch gedacht. Die Folge: 
Vernünftige Druckergebnisse kann man nur mit teuren 
Druckern wie einem Epson FX-80 erhalten. Die weitverbreite¬ 
ten Commodore-Drucker werden meist stark vernachlässigt 
und dürfen nur in ihrer Mini-Matrix drucken. Man traut sich gar 
nicht recht, damit Briefe zu schreiben und abzuschicken. 
Textmaster räumt jedoch damit gründlich auf. Es wurde 
speziell für die Drucker MPS 801 und MPS 803 entwickelt. 
Ein Umschreiben auf andere Drucker ist leider nur unter sehr 
großem Aufwand möglich. Dafür werden diese beiden 
Drucker aber optimal genutzt. Buchstaben kommen in einer 
augenfreundlichen 8 mal 8-Matrix aufs Papier, mit echten 
Unterlängen und auch Umlauten. Aber Textmaster kann noch 
mehr: Eine kleine Auswahl der Möglichkeiten zeigt Bild 1. 
Diese Funktionen werden im einzelnen nachher erklärt. 
Insgesamt vier Listings bilden das Textmaster-System. Davon 
ist Listing 4, der Zeichensatzgenerator, entbehrlich, wenn Sie 


nicht mit eigenen Zeichensätzen arbeiten wollen. Bevor Sie 
mit Textmaster arbeiten, müssen Sie ihn abtippen und zwar 
die Listings 1 und 2 mit dem Checksummer, das Listing 3 mit 
dem MSE. Listing 1 können Sie unter einem beliebigen 
Namen auf Diskette speichern. Listing 2 muß unbedingt unter 
dem Namen »TM«, Listing 3 unter dem Namen »TM.CODE« 
gespeichert werden. 

Starten des Programms 

Textmaster besteht aus drei einzelnen Teilprogrammen. 
Zuerst muß das Programm aus Listing 1 geladen werden. 
Anschließend wird RUN eingegeben. Das Hauptprogramm 
»TM« und die Maschinenroutinen »TM.CODE« werden nun 
selbständig geladen. Ein umständliches Wechseln der Dis¬ 
kette während des Arbeitens entfällt bei Textmaster, da sich 
nach dem Laden das gesamte Programm im Speicher des 
C 64 befindet. Man kann also die Programmdiskette beiseite 
legen und die Datendiskette in das Laufwerk schieben. 
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Einige DrucKbeispiele des Textwasters: 

Hier- sehen Sie den Original Co mmo dore Ze i c hensatz 

Das geht auch unterstrichen, und zentriert. 

Hochschrift und Tiefschrift sind einfach zu realisienen 

Ner's I Jd’U J£3 will, deh wind auch dieser Wunsch erfüllt:. 

Man beachte übrigens die Uwlaute: äöij Aöü & 

Ein anderer Zeichensatz wird gewünscht? 

Kein Prahlen» — Wie wärs Mit Quarirata? 

Oder et was dU n ner? 

Entwer f en S jL e ihr e eigen er» Zeichensaetze.' 

Bild 1. Dieser Beispielausdruck zeigt nur einige 
der Möglichkeiten, die Ihnen mit »Textmaster« zur 
Verfügung stehen. 


Bildschirmaufbau 

Nach dem Laden erscheint in der Mitte des Bildschirms der 
Autorenvermerk. Durch Drücken einer beliebigen Taste 
gelangt man in das Hauptmenü. Der nun vorliegende Bild¬ 
schirmaufbau verändert sich von da an nicht mehr. Ein verwir¬ 
rendes Umblättern auf andere Bildschirmseiten entfällt. Man 
erkennt zunächst, daß der Bildschirm in drei Teile eingeteilt 
ist. Im oberen Teil werden immer die aktuellen Koordinaten 
des Cursors angezeigt. Die Zeilenposition des Cursors kann 
zwischen 0 und 49 (= 50 Zeilen), die der Spalte zwischen 
0 und 59 (= 60 Spalten) liegen. Zwischen den beiden roten 
Balken befindet sich dann immer ein Ausschnitt der gerade 
im Textspeicher befindlichen Seite. Hier werden dann auch 
immer die verschiedenen Menüs eingeblendet. So ist 
momentan das Hauptmenü (Dokumente erstellen) zu erken¬ 
nen. Auf dem unteren roten Balken wird jeweils der Name des 
aktuellen Dokumentes und die Nummer der Seite desselben 
angezeigt. 

Schließlich bleibt noch die unterste Zeile. Diese ist für Feh¬ 
lermeldungen, Sicherheitsrückfragen etc. reserviert. 


Einfache Menüstruktur 


Hauptmenü: 

Dokumente erstellen beziehungsweise verändern 

Dies stellt eigentlich kein Menü dar, da es praktisch »mit¬ 
denkt«, das heißt, man muß nicht angeben, ob man ein neues 
Dokument erstellen oder ein bereits vorhandenes verändern 
möchte. 

In dieses Menü gelangt man automatisch nach dem Starten 
des Programmes. Das Programm erwartet vom Benutzer nun 
den Namen des Dokumentes (unterste Zeile). Korrigieren ist 
mit DEL möglich. Die Eingabe wird mit RETURN abgeschlos¬ 
sen. Hat man nur »$« eingegeben, so wird die Directory der 
Diskette angezeigt. Durch Drücken einer beliebigen Taste 
gelangt man wieder ins Hauptmenü. 

Nach der Eingabe prüft das Programm, ob ein Dokument mit 
diesem Namen auf der Datendiskette existiert. Ist dies der 
Fall, so wird noch, falls das Dokument durch einen Code 
geschützt wurde, derselbe abgefragt. Stimmt dieser nicht mit 
dem gespeicherten Code überein, passiert nichts, das heißt, 
man gelangt wieder zu der Abfrage des Dokumentennamens. 
Auf diese Weise kann man wichtige Dokumente vor dem Ein¬ 


blick Unbefugter schützen. Wurde jedoch der richtige Code 
eingegeben, so wird die Seite des Dokuments mit der höch¬ 
sten Nummer geladen. Man kann dann also direkt dort Weiter¬ 
arbeiten, wo man zuletzt aufgehört hat. 

Stellt das Programm jedoch fest, daß ein Dokument mit dem 
eingegebenen Namen auf der Diskette nicht existiert, so wird 
angenommen, daß der Benutzer ein neues Dokument erstel¬ 
len möchte. Sollte dies nicht der Fall sein oder sollte man sich 
bei der E : gäbe nur vertippt haben, dann ist die Sicherheits¬ 
rückfrage mit »n« (nein) zu beantworten. Andernfalls verlangt 
das Programm noch den Schutzcode des Dokumentes. 
Drückt man nur die RETURN-Taste, so wird das Programm 
nicht geschützt, das heißt bei erneutem Laden erfolgt keine 
Schutzcodeabfrage. 

Sind alle Eingaben beendet, so werden auf der Diskette die 
dokumentenspezifischen Parameter gespeichert und es 
kann auf der 1. Seite mit der Arbeit begonnen werden. 

Die Tastatur und der Texteditor 

Wie die meisten Textverarbeitungsprogramme besitzt auch 
Textmaster einen bildschirmorientierten Texteditor, dessen 
Bedienung größtenteils identisch ist mit der des normalen 
Basic-Editors. Dies macht die Bedienung besonders einfach. 
So kann man mit den Cursortasten jede Stelle der 60 x 50 
gleich 3000 Zeichen großen Seite erreichen. 

An Zeichen stehen zur Verfügung alle Klein-/Großbuchsta- 
ben, Sonderzeichen und sogar alle Grafikzeichen des 
Commodore-Zeichensatzes. Lediglich der Pfeil nach links 
(linke obere Taste auf der Tastatur) darf nicht verwendet 
werden, da dieser als Absatzzeichen fungiert. Auch darf man 
aus programmtechnischen Gründen das Zeichen mit dem 
Bildschirmcode 255 unter gar keinen Umständen benutzen. 

Ansonsten jedoch stehen alle Zeichen zur Verfügung. So 
hat man in Verbindung mit den Grafikzeichen des Commodo¬ 
re-Zeichensatzes oder mit Zeichen aus einem eigenen Zei¬ 
chensatz die Möglichkeit, Tabellen oder Spezialzeichen (zum 
Beispiel mathematische Zeichen) in einen Text einzubinden. 

Die RETURN-Taste 

Wurde die RETURN-Taste gedrückt, so wird ein »Wagen¬ 
rücklauf« veranlaßt. Befindet sich der Cursor jedoch in der 
0. Spalte, so wird statt eines Wagenrücklaufs das Setzen des 
Cursors in die 39. Spalte ausgelöst. Dies ist eine nützliche 
Funktion, da man auf diese Weise den Text einfach durch wie- 
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derholtes Drücken der RETURN-Taste kontinuierlich lesen 
kann. 

Wird die RETURN-Taste in Verbindung mit der SHIFTTaste 
gedrückt, so wird an die augenblickliche Position des Cur¬ 
sors ein Absatzzeichen gesetzt und dann ein Wagenrücklauf 
ausgelöst. Beim Ausdruck wird das Absatzzeichen dann 
natürlich ignoriert. 

Die CLR-Taste 

Mit der Funktion CLR (SHIFT-HOME) wird der gesamte 
Textspeicher gelöscht. Man sollte sich vorher vergewissert 
haben, daß die aktuelle Seite bereits auf Diskette gespei¬ 
chert wurde, bevor man die Sicherheitsrückfrage mit »ja« 
beantwortet. 

Die DEL- beziehungsweise INST-Taste 

Diese beiden Tasten werden genauso wie im normalen 
Basic-Editor verwendet. Mit einer kleinen Einschränkung. 
Sie wirken jeweils nur auf die Zeile, in der sich der Cursor 
gerade befindet. Deshalb sind diese beiden Tasten nur für 
kleinere Ausbesserungen geeignet. Es ist zu beachten, daß 
bei der INST-Funktion die Buchstaben auf der rechten Seite 
hinausgeschoben werden und damit verlorengehen. Müssen 
größere Textstellen eingefügt werden, so muß die Funktion 
ZEILE-EINFÜGEN verwendet werden (siehe unten). 

Extended Modus 

Durch Drücken von RVS ON (CTRL + 9) gelangt man in den 
EXTENDed MODUS. Alle eingegebenen Zeichen erschei¬ 
nen nun auf dem Bildschirm invertiert. Durch Drücken von 
RVS OFF (CTRL -I- 0) oder bei jedem Wagenrücklauf gelangt 
man wieder in den NORMal Modus. Im Druckermenü wird 
dann festgelegt, wie die auf dem Bildschirm invertierten 
Zeichen auf dem Papier erscheinen sollen, etwa auch Inver¬ 
tiert oder zum Beispiel unterstrichen. 

F5-Taste - Text neu ordnen 

Voran noch eine Einleitung, wie man Texte am zügigsten 
eingibt. Man gibt den Text ohne Rücksicht auf das am Ende 
erwünschte Format ein. Die einzelnen Wörter gibt man auch 
über eine Zeile hinaus ein. Absätze werden durch Drücken 
von SHIFT-RETURN markiert. Durch Drücken der F5-Taste 
wird der Text linksbündig geordnet, das heißt in eine Zeile 
werden so viele vollständige Wörter wie möglich gesetzt. 
Würde also ein Wort beim Setzen in die betreffende Zeile 
über den rechten Rand der Seite hinausreichen, so wird das 
ganze Wort einfach in die nächste Zeile gesetzt. Wurde so 
der ganze Text linksbündig formatiert, erhält man gewöhnlich 
rechts einen ziemlich unregelmäßigen »Flatterrand«, aber der 
Text wäre somit schon fertig für den Ausdruck. 

Nebenbei sei bemerkt, daß nach Aufrufen dieser Funktion 
der Text gewöhnlich 2 bis 3 Zeilen länger geworden ist, da er 
nun nicht mehr so dicht »gepackt« ist. Daher sollte man sich 
vorher überzeugen, daß die letzten Zeilen frei sind, da anson¬ 
sten die letzten Wörter verloren wären. 

RUN/STOP-Taste - Wörter trennen 

Oben wurde bereits erwähnt, daß der Text, nachdem er neu 
geordnet wurde, gewöhnlich einen Flatterrand besitzt. Mit 
der Funktion »Wörter trennen« kann dieser erheblich begra¬ 
digt werden. Man geht mit dem Cursor auf das erste Wort 
einer Zeile und setzt ihn auf den Anfangsbuchstaben der letz¬ 
ten Silbe des Wortes. Wäre das Wort zum Beispiel »glück¬ 
licherweise«, dann kann man davon ausgehen, daß. da das 
Wort relativ lang ist, in der vorhergehenden Zeile noch Platz für 
ein paar Silben des Wortes ist. Man möchte natürlich mög¬ 
lichst viele Silben in die vorhergehende Zeile übernehmen. In 
dem Fall ist die letzte Silbe »-se«. Man setzt den Cursor also 
auf »s« und drückt die RUN/STOP-Taste. Das Programm nimmt 


nun den Wortteil »glücklicherwei«, setzt ihn in die vorher¬ 
gehende Zeile und fügt automatisch das Trennzeichen »-« an. 
Anschließend wird ebenfalls automatisch die Funktion »Wör¬ 
ter neu ordnen« aufgerufen, so daß der Text wieder lückenlos 
geschlossen ist. 

Stellt das Programm jedoch fest, daß in der vorhergehen¬ 
den Zeile nicht mehr genug Platz für »glücklicherwei« ist, so 
passiert überhaupt nichts. In diesem Fall setzt man den Cur¬ 
sor auf den Anfangspunkt der nächsten Silbe, also auf das 
»w« in »-wei-«. Dies setzt man so lange fort, bis das Wort 
erfolgreich getrennt wurde. 

Zeile löschen (F3) - Zeile einfügen (F4) 

Ein Druck auf die Taste F3 bewirkt ab Cursorposition das 
Löschen der nächsten 60 Stellen. Der nachfolgende Text 
wird außerdem um eine Zeile nach oben verschoben. Diese 
Funktion dient hauptsächlich dem Löschen größerer Textbe¬ 
reiche. 

Die Funktion »Zeile einfügen« (F4) bewirkt gewissermaßen 
das Gegenteil. Ab Cursorposition werden 60 Leerstellen ein¬ 
gefügt. Es ist somit möglich, größere Textbereiche einzufü¬ 
gen. Reichen 60 Leerstellen nicht aus, so ist die Funktion 
erneut aufzurufen, allerdings ist dabei zu beachten, daß 
jeweils die unterste Zeile einer Seite verlorengeht. Man sollte 
sich vorher vergewissern, daß diese unbeschrieben ist. 

Seite auf Diskette sichern (F2) - blättern (F7 und F8) 

Zuvor muß noch erklärt werden, wie ein Text auf der Dis¬ 
kette festgehalten wird. Wie schon erwähnt, werden Texte in 
Form von Dokumenten gespeichert. Jedes dieser Doku¬ 
mente besteht aus einzelnen Seiten. Im Speicher des C 64 
befindet sich jeweils eine Seite eines Dokumentes, nämlich 
die, an der man gerade mit Hilfe eines Texteditors arbeitet. 
Hr-' - an eine Seite vollgeschrieben oder möchte man mit der 
betreffenden Seite zum Beispiel ein Kapitel abschließen und 
auf einer neuen Seite beginnen, so muß diese erst auf Dis¬ 
kette gespeichert werden. Dies geschieht durch Drücken 
der Taste F2 und anschließendem Bejahen der Sicherheits¬ 
rückfrage. Möchte man nun mit der nächsten Seite beginnen, 
so drückt man F7 (vorblättern). In der unteren Zeile des Bild¬ 
schirms erscheint dann »Blättere zu Seite n«, wobei n der 
aktuellen Seite plus eins entspricht. Dann drücke man auf die 
RETURN-Taste. Das Programm prüft nun, ob Seite n auf der 
Diskette vorliegt. Liegt sie vor, so wird sie geladen und 
erscheint auf dem Bildschirm. Man kann sie nun lesen oder 
verändern und erneut speichern. Lag die Seite allerdings 
nicht vor, so erscheint nur ein leerer Bildschirm, das heißt, 
eine unbeschriebene Seite. Durch mehrmaliges Drücken der 
F7-Taste kann man beliebig weit vorblättern oder zurückblät¬ 
tern (F8), ähnlich wie in einem Buch. 

Durch das Drücken der RUN/STOP-Taste verläßt man den 
Modus ohne Laden einer Seite. Jede Seite beansprucht 
einen Platz von 12 Blöcken auf der Diskette. Eine Diskette 
kann somit immerhin bis zu 664/12 = 55 Seiten aufnehmen. 

Zeichensatz laden (F6) 

Eine besondere Möglichkeit von Textmaster besteht darin, 
daß man jeden beliebigen Zeichensatz laden und auch aus- 
drucken kann. 

Nach dem Laden des Programms liegt automatisch ein deut¬ 
scher Zeichensatz vor, der für die meisten Anwendungen 
genügen dürfte. So entspricht der Klammeraffe dem »ä«. der 
Multiplikationsstern dem »ö« und das Potenzzeichen (Pfeil 
nach oben) dem »ü«. In Verbindung mit der SHIFTTaste ste¬ 
hen natürlich auch die großen Umlaute »Ä«, »Ö« und »Ü« zur 
Verfügung. Ferner entspricht das Pfundzeichen dem »ß« und 
das Nummernzeichen (SHIFT 3) dem Anführungszeichen 
unten. Diese Belegung entspricht zwar nicht einer deut¬ 
schen Schreibmaschinentastatur, erscheint mir aber am 
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zweckmäßigsten, da man ansonsten gleich zum Beispiel die 
Zeichen »:« und »;« ebenfalls umbelegen müßte, was zur Folge 
hätte, daß die Symbole auf der Tastatur überhaupt nicht mehr 
den dazugehörigen Zeichen entsprechen würden. Das »Z« 
und das »Y« wurden nicht vertauscht. 

Benötigt man jedoch für spezielle Anwendungen, beispiels¬ 
weise für mathematische oder chemische Formeln oder auch 
für französische Texte einen neuen Zeichensatz, so ist das 
mit Textmaster keine Schwierigkeit. Durch Drücken von F6 
und anschließendem Bejahen der Sicherheitsrückfrage 
gelangt man ins Zeichensatzmenü. Hier muß man zuerst 
beantworten, als was man den Zeichensatz benutzen 
möchte. Entweder als Arbeitszeichensatz (das ist der, den 
man auch auf dem Bildschirm sieht) oder als Alternativ¬ 
zeichensatz (davon später). . 

Hat man sich entschieden, so stehen nun vier Zeichensätze 
zur Verfügung. Nummer 1 und Nummer 2 sind einfach Kopien 
der Original Commodore-Zeichensätze (Klein/Groß und 
Groß/Grafik). Nummer 4 ist der deutsche Zeichensatz, der 
auch nach dem Laden von Textmaster vorliegt und Nummer 
3 ist ein beliebiger Zeichensatz, der von der Diskette geladen 
wird. Davor wird noch der Name des Zeichensatzes abge¬ 
fragt. 

Das Druckermenü (Fl) 

Bevor man sich entschließt, eine Seite zu drucken, sollte 
man sich vergewissern, ob der Text bereits das richtige For¬ 
mat besitzt. Sämtliche Formatierungen des Textes müssen 
vorher abgeschlossen werden, da, mit Ausnahme des rech¬ 
ten Randausgleichs, der Text so auf dem Papier erscheint, 
wie er auch auf dem Bildschirm zu sehen ist. 

Nach dem Drücken von Fl und anschließendem Bejahen 
der Sicherheitsrückfrage, werden die verschiedenen Druck¬ 
parameter abgefragt. Zunächst, von welcher bis welcher 
Zeile gedruckt werden soll. Man kann sich also einen Text¬ 
ausschnitt heraussuchen, zum Beispiel Zeile 10 - 25. Gibt 
man statt einer Zahl jeweils nur RETURN ein, so wird vom Pro¬ 
gramm angenommen, daß die ganze Seite (Zeile 0 - 49) aus¬ 
gedruckt werden soll. 

Anschließend verlangt das Programm, wie die Zeichen im 
Extended Modus (erscheinen auf dem Bildschirm invers) auf 
dem Papier erscheinen sollen, entweder unterstrichen, 
invertiert oder als Alternativzeichen. Dazu ist zu sagen, daß 
sich im Speicher des C 64 zwei Zeichensätze befinden kön¬ 
nen. Bei normalen Zeichen wird die Bitmatrix des Zeichens, 
die an den Drucker geschickt wird, aus dem Arbeitszeichen¬ 
satz (das ist der, der auf dem Bildschirm zu sehen ist) genom¬ 
men. Bei einem extended Zeichen wird dann die Bitmatrix aus 
dem Alternativzeichensatz genommen. Normalerweise 
befindet sich nach dem Starten des Programms der Original 
Commodore-Groß/Klein-Zeichensatz im Speicher, damit 
auch die geSHIFTeten Grafikzeichen zur Verfügung stehen. 

Man könnte nun aber den auf Programmdiskette befind¬ 
lichen Zeichensatz »dünn« als Arbeitszeichensatz laden und 
den deutschen als Alternativzeichensatz. Auf diese Weise 
erscheinen dann die Alternativzeichen als Fettschrift. Auf die 
gleiche Weise läßt sich auch zum Beispiel Kursivschrift simu¬ 
lieren. 

Hat man sich nun zum Beispiel für Unterstreichen entschie¬ 
den, so bezieht sich dies auf die ganze Seite. Normalerweise 
genügt das auch. Möchte man nun aber aus irgendwelchen 
Gründen eine Seite ausdrucken, in der zum Beispiel in Zeile 
5 etwas unterstrichen, in Zeile 6 hingegen etwas invertiert 
werden soll, so muß man den Text in entsprechend mehrere 
Teile zerlegen. Im obigen Beispiel müßte man das Drucker¬ 
menü also zweimal aufrufen. Das erste Mal von Zeile 0-5, 
unterstrichen, und das zweite Mal von Zeile 6 - 49, invertiert. 

Als nächstes möchte das Programm erfahren, ob man die 
Zeichen in normaler Breite (8x8 Bitmatrix) oder in kompri- 
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mierter Form (7x8 Bitmatrix) drucken möchte. Die Bildschirm¬ 
zeichen bestehen zwar aus einer 8x8 Bitmatrix, jedoch 
hat sich gezeigt, daß zumindest Buchstaben, Zahlen und 
Sonderzeichen, kurz: jene Zeichen, die man für einen ganz 
normalen Text verwendet, daß diese eigentlich nur aus einer 
6x8 Bitmatrix bestehen, da sich links und rechts von jedem 
Buchstaben eine leere Bitspalte befindet, obgleich eine 
bereits genügen würde. Bei der komprimierten Schriftbreite 
wird also jedes Zeichen auf eine 7x8 Bitmatrix reduziert. Dies 
hat den Vorteil, daß die Zeichen enger aneinanderstehen und 
somit besser gelesen werden können. Die Anzahl der Zei¬ 
chen pro Zeile bleibt jedoch unverändert, nämlich 60. 

Die normale Schriftbreite wird benötigt, wenn man Zeichen 
unbedingt in der 8x8 Bitmatrix drucken möchte, etwa irgend¬ 
welche Grafik- oder Spezialzeichen. Selbstverständlich kann 
man die Seite auch wieder aufteilen und einen Teil normal, 
den anderen Teil komprimiert drucken. Es gibt insgesamt 
zahlreiche Variationsmöglichkeiten. 


Komfortabler Randausgleich 


Hat man sich auch hier entschieden, so wird gefragt, ob 
rechter Randausgleich erwünscht ist, das heißt, bei Bejahen 
erscheint der Text auch rechtsbündig. Schaut man sich das 
Druckbild etwas genauer an, so fällt einem sofort ein ent¬ 
scheidender Vorteil von Textmaster gegenüber anderen Text¬ 
verarbeitungssystemen auf. Bei anderen Systemen nämlich 
wird die Rechtsbündigkeit durch mehrfaches Einfügen von 
Leerstellen erreicht. Dies hat den Nachteil, daß stellenweise 
weiße Flächen im Druckbild erscheinen, die den Text trotz der 
Rechtsbündigkeit etwas unregelmäßig erscheinen lassen. 
Bei Textmaster hingegen werden die fehlenden Leerstellen 
gleichn .äß'g auf die Leerstellen zwischen den einzelnen Wör¬ 
tern einer Zeile verteilt, und zwar jeweils punktweise, das 
heißt innerhalb einer Zeile sind die Abstände zwischen den 
Wörtern gleich groß. Weiße Flächen entstehen nicht. 

Um die nächsten Abfragen des Programmes zu verstehen, 
muß noch erklärt werden, wie die Zeichen an den Drucker 
gelangen. 

Gedruckt wird im Grafikmodus. Eine Zeile, die gedruckt wer¬ 
den soll, besteht eigentlich aus zwei Zeilen für den Drucker, 
so daß fürjede Bildschirmzeile insgesamt 2x7 = 14Drucker- 
dots zur Verfügung stehen. 

Für ein Zeichen benötigt man jedoch nur 8 Dots, so daß 
insgesamt 6 Dots als Zeilenzwischenraum verbleiben. Wer¬ 
den Zeichen unterstrichen, wird das 10. Dot gedruckt. Dies 
hat den Vorteil, daß selbst bei Zeichen mit Unterlängen, zum 
Beispiel dem »g«, der Unterstrich sich deutlich von der Unter¬ 
länge abhebt. 


Hoch- und Tiefschrift 


Textmaster bietet jedoch auch die Möglichkeit der Hoch- 
und Tiefschrift. Wo benötigt man sie? Eigentlich nur ganz sel¬ 
ten. In mathematischen Formeln, zum Beispiel für Exponen¬ 
ten (Hochschrift), oder als Indizes (Tiefschrift), aber zum 
Beispiel auch in chemischen Formeln. Normalerweise wer¬ 
den diese jedoch nicht verwendet, daher ist die Abfrage der 
Dots für Hoch-, Normal- und Tiefschrift einfach mit RETURN 
zu beantworten. Die Dotzahl gibt an, ab welchem Dot das Zei¬ 
chen gedruckt wird. Da insgesamt 14 Dots zur Verfügung 
stehen, kann sich die Dotzahl zwischen 0 und 6 befinden. 
Möchte man beispielsweise Tiefschrift verwenden, so ist die 
Dotzahl 3 bei der Tiefschrift einzugeben, wenn man die Tief¬ 
schrift um 3 Dots nach unten von der Normalschrift absetzen 
möchte. Will man jedoch Hochschrift benutzen, so wird die 
Sache komplizierter. Für die Hochschriftdotzahl gibt man am 
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besten 0 an. Für Normalschrift kann man nun aber nicht auch 
die Dotzahl 0 eingeben, da sich sonst die Hochschrift gar 
nicht von der Normalschrift absetzen würde. Vielmehr sollte 
man als Normalschriftdotzahl nunmehr 3 eingeben und für 
die Tiefschrift die Dotzahl 6. Es kommt also lediglich auf die 
relativen Dotzahldifferenzen an. Möchte man in einer Zeile 
Hochschrift benutzen, so muß also der ganze Text die gleiche 
Normalschriftdotzahl besitzen, da sonst die Normalschrift der 
betroffenen Zeile als Tiefschrift erscheinen würde. 

Wie kennzeichnet man nun, was in welcher Schrifthöhe 
erscheinen soll? Dazu stehen drei Steuerzeichen zur Ver¬ 
fügung: CTRL 1 (Hochschrift), CTRL 2 (Normalschrift) und 
CTRL 3 (Tiefschrift). Die Steuerzeichen werden durch Grafik¬ 
zeichen symbolisiert (Bildschirmcode 252 - 254). Es ist zu 
beachten, daß im Extended Modus die Zeichen »C = X«, 
»C = C« und »C = V« nicht benutzt werden dürfen, da diese 
als nicht druckbare Steuersymbole interpretiert würden. 

Zusätzliche Funktionen 

Die nachfolgenden Funktionen werden mit der CONTROL- 
Taste in Verbindung mit einer Buchstabentaste aufgerufen. 
Dies sind vorwiegend selten benötigte Funktionen. Die wich¬ 
tigsten und am meisten benötigten sind ja über die Funktions¬ 
tasten zu erreichen. 

CTRL D bewirkt einen Sprung ins Hauptmenü. Man hat so 
die Möglichkeit, an einem anderen Dokument weiterzuarbei¬ 
ten.' 

CTRL H bewirkt eine Auflistung aller Befehle. Durch noch¬ 
maliges Drücken von CTRL H werden weitere Befehle aufge¬ 
listet. 

CTRL W: Es stehen zwei vorgewählte Farbeinstellungen zur 
Verfügung, die über CTRL W wechselseitig aufgerufen wer¬ 
den können. 

Mit CTRL F gelangt man ins Floppymenü. Hier steht zur Ver¬ 
fügung: 1. Zurück zum Texteditor, 2. Floppybefehl senden, 
3. Dokument löschen, 4. Directory-Anzeige. 

Hat man »Dokument löschen« versehentlich aufgerufen, so 
drückt man einfach RETURN. 

Schließlich steht noch die Funktion »Zeile(n) zentrieren« 
(CTRL Z) zur Verfügung. Es wird gefragt, von welcher bis zu 
welcher Zeile zentriert werden soll. Gibt man hierbei einfach 
zweimal RETURN ein, so wird nur die Zeile zentriert, in der 
sich der Cursor gerade befindet. Diese Funktion ist recht 
nützlich, zum Beispiel für Überschriften, die genau in der 
Mitte einer Zeile stehen sollen. 

HINWEIS! 

In Zeile 4900 kann es eventuell zu Komplikationen kommen. 
In dieser Zeile wird nämlich die Schriftfarbe des Textes in das 
Farb-RAM gesetzt. Dazu wird der Farbcode (Fl) in 53281 
(Hintergrundfarbe) gePOKEt. Durch das anschließende 
Löschen des Bildschirms wird erreicht, daß das gesamte 
Farb-RAM die Hintergrundfarbe übernimmt. Es existieren 
nun aber zumindest zwei verschiedene C64-Versionen. Auf 
der einen Version wird beim Bildschirmlöschen die Cursor¬ 
farbe (646) in das Farb-RAM übernommen. Man gebe daher 
im Direktmodus ein: 

poke53281,0:print"[CLR/HOME]" :poke53281.6:printpeek 
(55296)and15 

Ist die Zahl nun ungleich 0 (=schwarz), dann ersetze man in 
Zeile 4900 die erste 53281 durch 646. Dadurch ändert sich 
natürlich die Prüfsumme für diese Zeile. 


Beliebige Zeichensätze 


Ein Vorteil von Textmaster ist, daß der Benutzer jeden belie¬ 
bigen Zeichensatz und damit quasi jede beliebige Schrift aus- 
drucken kann. Dies ist eigentlich keine Neuheit, jedoch ist bei 


Textmaster neu, daß die Daten für den Zeichengenerator des 
VICs ebenso als Daten für die auszudruckenden Zeichen fun¬ 
gieren. Es ist somit nicht erforderlich, für die Bildschirmzei¬ 
chen und die Druckerzeichen zwei getrennte Zeichensätze 
zu kreieren. 

Wenn der Benutzer also eine Schriftart kreieren möchte, 
muß man zunächst einmal wissen, welches Format der Zei¬ 
chensatz besitzen muß, damit er von Textmaster verarbeitet 
werden kann. Dazu ist zu sagen, daß der Zeichensatz das 
gleiche Format haben muß wie auch die Originalzeichensätze 
im Speicher des C 64. Ein Zeichen besteht also aus 8 Byte, 
die eine 8x8-Bitmatrix bilden. Entsprechende Erläuterungen 
sind auch in unserem ausführlichen Grafikkursus (insbeson¬ 
dere Ausgabe 5/84 des 64’er-Magazins) zu finden. Der inte¬ 
ressierte Leser kann sich dies ja dann noch einmal zu Gemüte 
führen. Insgesamt sollte der Zeichensatz sämtliche 255 Bild¬ 
schirmzeichen enthalten. Es sollte ebenfalls beachtet wer¬ 
den, daß die Zeichen 128 - 255 die inversen Kopien der Zei¬ 
chen 0 - 127 darsteilen müssen. Ein vollständiger Zeichen¬ 
satz belegt somit 9 Blöcke auf der Diskette. Die Fileart muß 
PRG sein, das heißt, der Zeichensatz muß auf der Diskette 
PROGRAMM vorliegen. Dies ist wichtig, da der Zeichensatz 
ansonsten vom Textmaster auf der Diskette nicht gefunden 
würde. Die Startadresse des Files kann beliebig sein, da der 
Zeichensatz vom Textmaster ohnehin nicht absolut geladen 
wird. 

Es ist verständlich, daß wir diese Zeichensätze nicht ver¬ 
öffentlichen können, zumal es eine Zumutung für jeden Leser 
wäre, eine Wüste von Zahlen abzutippen (ein Zeichensatz 
besteht aus 2048 Byte!). Auf der Leserservice-Diskette 
befinden sich aber einige Beispiel-Zeichensätze. Bleibt also 
nur, daß der Benutzer selbst seinen »individuellen« Zeichen¬ 
satz erstellen muß. Es stehen in der Formgebung von Buch¬ 
ste*' n nahezu unbegrenzt viele Möglichkeiten zur Verfü¬ 
gung. 

Allerdings ist es ebenso unzumutbar, sich eine gesamte 
Schrift »per Hand« über eine Bitmatrix auf dem Papier 
»zusammenzuPOKEn«, daher benötigt man einen Zeichen¬ 
generator. 

Wer aber schon einen Zeichengenerator hat, kann diesen 
jederzeit verwenden, wenn die auf Diskette gespeicherten 
Zeichensätze das oben beschriebene Format erfüllen. 


Eigener Zeichengenerator 


Diejenigen Leser, die über keinen Zeichengenerator verfü¬ 
gen, finden im Listing 4 den kleinen, aber leistungsfähigen 
»CHAR-GENERATOR«. Dieses Programm ersetzt zwar kei¬ 
nen ernstzunehmenden Zeichengenerator, jedoch können 
die damit erstellten Zeichensätze direkt vom Textmaster 
übernommen werden. »CHAR-GENERÄTOR« ist quasi ein 
Ergänzungsprogramm zu Textmaster. Auf eine nähere Doku¬ 
mentation möchte ich wegen der Kürze des Programms ver¬ 
zichten, es ist höchstens zu sagen, daß das kleine Maschi¬ 
nenprogramm die Originalzeichensätze nach 8192 kopiert. 
Die zur Verfügung stehenden Befehle werden auf den Bild¬ 
schirm geschrieben. 

Auf diese Weise ist es möglich, ganze Schriftbibliotheken 
anzulegen. Es empfiehlt sich, das Erstellen der Texte mit dem 
normalen Zeichensatz vorzunehmen, um einen ungewohn¬ 
ten Zeichensatz auf dem Bildschirm zu vermeiden, und erst 
kurz vor dem Ausdruck die erwünschte Schrift zu laden. 
Auf der Leserservice-Diskette befinden sich schon drei 
fertige Zeichensätze: 

- dünn 

- quadrato 

- luxus 

(Mario Weck/bs) 
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10 REM *** TEXTMASTER 64/801 *** 

20 REM BY MARIO WECK <C> JUNI 1985 
30 POKE 53281,0:PDKE 53280,0:PRINT"tCTRL—N 
,CTRL—H,GREY 2> 



50 PRINT"£2SPACE,RVS0N> = ZEXTMASTE 
R£2SPACE>6 4 / B 0 1 = 

60 PRINT" £2SPACE,RVSONJ 
*J^»A*A * A * A«*«.**y 

70 PRINT"£BLACK >P0KE44,48:POKE12288,0:NEW 
80 PRINT"£3DGWN>LOAD"+CHRS(34)+"TM"+CHRS(3 
4)+",8 

90 PRINT"£4D0WN>RUN:£6SPACE,BREY 2>AADE : 

HAUPTPROGRAMM £HQME,BLACK> 

100 POKE 198,7:POKE 631,17:POKE 632,17:P0K 
E 633,17:POKE 634,13:P0KE 635,13:POKE 
636,13 

110 POKE 637,13 


<188> 

<174> 

<234> 

<036> 

< 143> 

<286> 
<096> 

<233> 

<180> 

< 139> 
<10B> 


8 64'er 


Listing 1. Das Ladeprogramm zu »Textmaster«. 

Bitte beachten Sie die Eingabehinweise auf Seite 6. 


10 XX=XX+1:IF XX=1 THEN PRINT"£UP>"TAB(17) 
"£GREY 2 »BASCHINENROUTINEN":LOAD"TM.COD 
E",8,l 

100 F1=15:F2=0:F0*="£GREY 3>":F1*="fYELLOW 
»":F2*=”£CYAN>" 

110 POKE 2,216:POKE 905,32:POKE 906,40:SYS 
49553:POKE 2,208:POKE 905,40:POKE 906 
,48 

120 SYS 49553 

200 POKE 53272,25:POKE 788,52:G0SUB 4900:G 
OSUB 4000 

300 GOSUB 4400:GOSUB 4300 

800 DATA 0,102,0,60,6,62,102,62,0 

801 DATA 28,56,108,108,124,102,102,124,96 

802 DATA 35,0,0,0,0,0,102,102,102 

803 DATA 42,102,0,60,102,102,102,60,0 

804 DATA 30,102,0,102,102,102,102,62,0 

805 DATA 122,102,24,60,102,126,102,102,0 

806 DATA 64,102,0,60,102,102,102,60,0 

807 DATA 94,102,0,102,102,102,102,60,0 

808 DATA—1 

900 DATA"UNTERSTREICHEN","ZNVERTIEREN","flL 
TERNATIVZEICHEN","HORMAL" 

901 DATA"KOMPRIMIERT" 

2000 POKE 830,X:POKE B31,Y:SVS 49272 
2005 GET AS:IF AS=""THEN 2005 
2010 IF A*="£RIGHT»"THEN X=X+1:Y=Y-(Y<>49 
AND X>59):X=-X*(X<60):GOTO 2000 
2020 IF AS="£LEFT>"THEN X=X-1:Y=Y+(Y<>0 AN 
D X<0):X=-X*(X>=0)-59«(X<0>:GOTO 2000 
2030 IF AS="£DOWN»"THEN Y=Y-(Y<>49):GOTO 2 
000 

2040 IF AS="£UPJ n THEN Y=Y+(Y<>0>:GOTO 2000 
2050 POKE 780,ASC CAS):SYS 49489:IF PEEK<2> 
THEN X=X+1:IF X=60 THEN Y=Y-<Y<>49):X 
=0 

2060 IF PEEK(2)THEN 2000 
2070 IF AS<>"£CLR»"THEN 2120 
2080 AS=“JEXT LOESCHEN (J/N) ?":GOSUB 4800 
2090 GET A*:IF AS=""THEN 2090 
2100 IF AS="J"THEN X=0:Y=0:5YS 49204 
2110 GOSUB 4810:GOTO 2000 
2120 IF AS="£HOME>"THEN X=0:Y=0 
2125 IF AS=CHRS(13)AND X=0 THEN X=39:G0T0 
2000 

2130 IF AS=CHRS (13) AND X THEN X=0:Y=Y-(Y<> 
49):AS—"<RVOFF>" 

2135 IF A*=CHR*(20>AND X THEN SYS 50335:AS 
=“£LEFT>":GOTO 2020 
2137 IF AS="£INST>"THEN SYS 50363 
2140 IF AS="£RVSON>"THEN POKE 182,128:PRIN 
T FIS"£HOME,DOWN>",,“£RVSON>£XTEND 
2150 IF AS=" £RVOFF>'*THEN POKE 182,0:PRINT 
FIS"£HOME,DOWN)",,“HORM£2SPACE >" 

2160 IF ASO"£Fl>"THEN 2400 

2170 AS="DRUCKEN (J/N) ?":GOSUB 4800 

2180 POKE 198,0:WAIT 198,1:GET A*:GOSUB 48 


<042> 

<140> 


<079> 

<17B> 


< 111 > 

< 188> 



<234> 
<221 > 
<030> 
<246> 

<016> 
<081 > 

< 184> 

<097> 
<241 > 
<142> 
<1B5> 

< 195> 

<076> 

<090> 

<0BB> 


<037 > 
<024> 
<254> 

< 164> 

< 143> 
<223> 
<040> 
<201 > 


<254> 

< 112 > 

< 202 > 

<046> 

<224> 

< 168 > 
<058> 
< 119> 


10: IF ASO"J"THEN 2000 <000> 

2190 GOSUB 4700:POKE 214,11:PRINT:PRINT,"£ 

2SPACE>AB WELCHER ZEILE <057> 

2200 KOS="AB ZEILE HR. ":MA=2:A1S="0":A2S= 

"9":GOSUB 4599:FS=VAL(FSS): <166> 

2210 IF FS<0 OR FS>49 THEN 2200 <048> 

2220 POKE 901,FS:GOSUB 4700:POKE 214,11:PR 

INT:PRINT,"BIS ZU WELCHER ZEILE <161> 

2230 KOS="BIS ZEILE HR. ":GOSUB 4599:FS=VA 
L(FSS):IF FS<0 OR FS>49 OR FS<PEEK(90 


1)THEN 2200 

2235 IF FSS«""THEN FS=49 

2240 POKE 902,FS+1:GOSUB 4700:POKE 214,6:P 
RINT:PRINT,"£3SPACE»£XTENDED flDDUS 
2250 PRINT,"£3D0WN>1> "K*(l) 

2260 PRINT,"£2DOWN>2) "K*(2) 

2270 PRINT,“C2D0WNI3) "KS(3) 

2280 GET A*:D=VAL(AS>:IF D<1 OR D>3 THEN 2 
280 

2281 IF D—1 THEN POKE 900,1 

2282 IF D=2 THEN POKE 900,0 

2283 IF D=3 THEN POKE 900,128 

2290 GOSUB 4700:POKE 214,6:PRINT:PRINT,"£4 
SPACE > ZEICHENDICHTE 
2300 PRINT,"£4D0WN>1> “K*(4) 

2310 PRINT,"£3DQWN>2> "KS(5) 

2320 GET AS:A=VAL(AS>:IF A<1 OR A>2 THEN 2 
320 

2330 POKE 904,A-l 

2331 GOSUB 4700:POKE 214,10:PRINT:PRINT,"£ 
7SPACE»RECHTER 

2332 PRINT,"£DOWN»SANDAUSGLEICH (J/N)? 

2333 POKE 198,0:WAIT 198,1:GET AS:POKE 100 
0,0:IF AS="J"THEN POKE 1000,1 

2334 GOSUB 4700:POKE 214,10:PRINT:PRINT," 
HIEVIEL SOTS FUER 

2335 KO*="HOCHSCHRIFT:“:MA=1:A1S="0":A2*=" 
6":GOSUB 4599:POKE 1012,VAL(FSS) 

2336 KOS="HORMALSCHRIFT:":GOSUB 4599:POKE 
1013,VAL(FSS) 

2337 KOS="ilEFBCHRIFT:":GOSUB 4599:POKE 10 
14.VAL(FSS) 

2340 'ST UB 4700:POKE 214,7:PRINT:PRINT,“£S 
WIRD GEDRUCKT 

2341 PRINT,"£DOWN>VON ZEILE"PEEK(901)"BIS" 
PEEK(9021-1 

2342 PRINT,"£DOWN>"KS(D):PRINT,“£DOWN>"KS( 
4+PEEK(904))"E ZEI-”:PRINT,“£DOWN>CHE 
NDICHTE 

2343 IF PEEK(1000)THEN PRINT'MIT 

2344 IF PEEK(1000 I =0 THEN PRI*T"OHNE 

2345 PRINT,"£DOWN5«ANDAUSGLEICH 

2349 AS="HERTE IN ORDNUNG (JA I«) ?":GOSUB 4 
900 

2350 GET AS:IF AS=“"THEN 2350 

2360 GOSUB 4810:IF AS<>"J"THEN 2170 
2370 A*="BRÜCKER BETRIEBSBEREIT ? <IASTE>" 
:GOSUB 4800 

2380 POKE 198,0:WAIT 198,1:GET AS:GOSUB 48 
10:GOSUB 4700:SYS 49821 
2400 IF AS="£F4>"THEN SYS 50291 
2500 IF AS=CHRS(141)THEN POKE 2048+X+Y*60, 
31:AS=CHRS(13):X=1:GOTO 2130 
2510 IF AS< >"£F6>"THEN 2700 
2520 AS="ZEICHENSATZ LADEN (J/N) ?“:GOSUB 
4800:POKE 19B,0:WAIT 198,1:GET AS 
2530 GOSUB 4810: IF ASO"J"THEN 2000 
2540 GOSUB 4700:POKE 214,6:PRINt:PRINT£G 
REY 3,SPACE JHDFUER BENOETIGT ? 

2550 PRINT,"£3D0WN>1> flRBEITS- 
2560 PRINT,"£3D0WN>2) ALTERNATIV— 

2570 PRINT,"£2D0WN>ZEICHENSATZ ? 

2580 POKE 198,0:WAIT 198,1:GET AS:A=VAL(AS 
):IF A<1 OR A>2 THEN 2580 


<132> 

< 196> 

< 110 > 
<061 > 
<025> 

< 195> 

< 113> 
<027> 

<044> 

<177> 

<221 > 

< 144> 

< 125> 

<021 > 

<148> 

<224> 

<004> 

<092> 
<231 > 

<149> 

< 187> 
<155> 
< 022 > 
<203> 


<213> 

< 124> 
<236> 
<225> 

<051 > 
<083> 
<1B6> 

< 202 > 

<248> 

< 210 > 

<051 > 
<208> 

< 123> 

<040> 

<244> 

<240> 

<018> 

< 149> 

<224> 


2590 IF A=1 THEN POKE 900,32:POKE 905,32:P 

OKE 906,40 <1B2> 

2595 IF A=2 THEN POKE 900,40:POKE 905,40:P 

OKE 906,48 <124> 

2600 GOSUB 4700:POKE 214,6:PRINT:PRINT,"£4 

SPACEJHELCHER ? <018> 

2610 PRINT,“£2D0WN>1> ÄLEIN/OROSS <042> 


Listing 2. Das Hauptprogramm zu »Textmaster«. 
Bitte beachten Sie die Eingabehinweise auf Seite 6. 
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2620 

2630 

2635 

2640 

2650 

2655 

2660 

2670 

26B0 

2700 

2710 

2720 

2725 

2730 

2740 

2750 


2755 

2756 
2760 
2765 
2770 
27B0 
2790 

2800 

2805 

2810 

2820 

2830 

2840 

2850 

2860 

2865 

2866 

2867 

2868 

2869 

2870 

2880 

2900 

2910 


2920 

2930 

2940 

2950 

2955 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 


PRINT, "CDDWN12) SROSS/SRAFIK <061> 

PRINT,“{D0WN13) ZDN DISK LADEN <222> 

PRINT, M {D0WN>4> DEUTSCH <255> 

BET A*:A=VAL(A*):IF A<1 OR A>4 THEN 2 
640 <15B> 

IF A<3 THEN POKE 2,224-A*B:SYS 49553: 

GOTO 2000 <193> 

IF A=4 THEN POKE 2,216:SYS 49553:GOSU 
B 4100:GOTO 2000 <112> 

MA= 16: K0*= " ZEICHENSATZNAME:“:A1*=" “ : 

A2S=": GOSUB 4599:GOSUB 4200 <020> 

POKE 2,LEN(FS*):FOR 1=1 TO LEN(FS*):P 
OKE 1983+1,ASC(MID*(FS*,I)):NEXT <191> 

SYS 50390:BOSUB 4500:GOSUB 4810:GOTO 
2000 <154> 

IF A*< > " {F2 > "THEN 2760 <078> 

A*="SEITE SICHERN (J/N) 7":GOSUB 4800 
:POKE 198,0:WAIT 198,1:GET A* <111> 

GOSUB 4810:IF A*<>“J"THEN 2000 <232> 

GOSUB 4200:FSS=STR*<AS)+DO*:OPEN 1,8, 

15,“S:"+FSS:CLOSE 1 <078> 

FOR 1=1 TO LEN(FS*):POKE 1983+1,ASC(M 
ID*(FS*,I>):NEXT <170> 

POKE 2,LEN(FS*):SYS 50417:GOSUB 4500: 

GOSUB 4810 < 226> 

IF AS>MS THEN OPEN 1,8,1,“@:'"+DO*+“, 
S,W":PRINT#l,AS:PRINT#l,CO*:PRINT#l,D 
O* <043> 

IF AS>MS THEN CLOSE 1:GOSUB 4500:MS=A 
S <080> 

GOTO 2000 <164> 

IF AS< > "CF7>"AND A*< >“<FB>"THEN 2830 <006> 

AA=AS <023> 

IF A*="{F7>"THEN AS=AS+1 <063> 

IF A*="{F8 > "THEN AS=AS+(AS<>1) <057> 


A*=“2LAETTERE ZU SEITE"+STR*(AS):GOSU 
B 4800 <197> 

GET A*:IF A*=""THEN 2800 <215> 

GOSUB 4810:IF A*="{CTRL-C}"THEN AS=AA 
:GOTO 2000 <162> 

IF A*< >CHR*(13)THEN 2770 <06B 

GOSUB 4200:GOSUB 4450:GOSUB 4300: GOTO 
2000 <206^ 

IF A*="<F5>"THEN SYS 50455 <067> 

IF A*="<CTRL-C>"THEN SYS 50677:SYS 50 
455:X=0:GOTO 2000 <107> 

IF A*=“{CTRL—D>"THEN 300 <0B3> 

IF A*< >" {CTRL—Z> 11 THEN 2880 <210> 

KD*="VON ZEILE MR.:":MA=2:A1*="0":A2* 

="9":GOSUB 4599 <179> 

F=VAL(FS*):IF F<0 OR F>59 THEN 2865 <237> 

IF FS*=""THEN F=Y <211> 

KO*="BIS ZEILE MR.:":GOSUB 4599:F5=VA 
L(FS*):IF FS*=""THEN F5=F <131> 

IF F5<F OR F5>59 THEN 2865 <075> 

FOR I=F TO F5:POKE 1002,I:SYS 51015:N 


EXT <052> 
IF A*=“<F3>"THEN SYS 51124 <100> 
IF A*<>“<CTRL—F>“THEN 3100 <125> 


GOSUB 4700:POKE 214,7:PRINT:PRINT,"<4 
SPACE >£LOPPY—flENUE":PRINT,“{DDWNJ1) Z 
URUECK <043> 

PRINT,“<DOWN>2> BEFEHL SENDEN <024> 

PRINT,“<DOWN>3) DOKUMENT LOESCHEN <179> 

PRINT,"<D0WN>4> DIRECTORY <026> 

GET A*:A=VAL(A*):IF A<1 OR A>4 THEN 2 
950 <219> 

IF A=1 THEN 2000 <124> 

IF A=2 THEN GOSUB 4200:KO*="DEFEHL:": 
MA=30:A1*=" ":A2*=“Z“:GOSUB 4599 <011> 

IF A=2 THEN OPEN 1,8,15,FS*:CL0SE 1:G 
OSUB 4500 <118> 

IF A< >3 THEN 3040 <230> 

KO*="MAME DES DOKUMENTS:":MA=13:Al*=" 
":A2*="«-"s GOSUB 4599 <229> 

OPEN 1,8,0,"' “+FS*+" ,S,R": INPUTtt 1,N, A 
*,FS«:CLOSE 1:GOSUB 4500 <224> 

IF F THEN 2000 <076> 

OPEN 1,8,15,"S:'"+FS*:FOR 1=1 TO N:PR 
INT#1,"S:"+STR*(N)+FS*:NEXT <156> 

CLOSE 1:GOSUB 4500:GOTO 2000 <003> 

IF A=4 THEN PRINT"<CLR,LIG.RED>":SYS 
51181:POKE 199,0:WAIT 198,1:GET A*;GO 

SUB 4900:SYS 49272:GOTO 2910 <000> 


3100 

3300 

3310 

3320 

3400 

3405 

3410 

3415 

3420 

3425 

3430 

3435 

3440 

3441 

3442 
3445 

3450 

3455 

3456 
3460 
3465 
3470 
3475 
3480 
3485 
3490 

3500 

3510 


3520 

3530 

3600 

40 


4001 

4003 

4005 

4010 

4020 

4100 

4110 

4120 

4150 

4200 

4210 

4220 

4230 

4300 


4310 

4320 

4400 

4410 


4415 

4420 

4425 


4430 


REM 

IF A*="(BLACK>"THEN POKE 2048+X+Y*60, 

252:A*="<RIGHT>":GOTO 2010 

IF AS="{WHITE}"THEN POKE 204B+X+Y«60, 

253:A*="<RIGHT>":GOTO 2010 

IF A*="<RED>"THEN POKE 2048+X+Y*60,25 

4:A*="{RIGHT >":GOTO 2010 

IF A*<>"{CTRL—H>"THEN 3500 

GOSUB 4700:POKE 214,7:PRINT:PRINT,"Fl 

-DRUCKERMENUE 

PRINT,"F2-SEITE SICHERN 

PRINT,"F3-ZEILE LOESCHEN 

PRINT,"F4-ZEILE EINFUEGEN 

PRINT,"F5-IEXT NEU ORDNEN 

PRINT,"F6-ZEICHENSATZ LADEN 

PRINT,"F7-V0RBLAETTERN 

PRINT,"F8-ZURUECKBLAETTERN 

PRINT, "£Ü-IEXT LOESCHEN 

PRINT ■ " 5.T.Q.P HORT TRENNEN 

POKE 198,0: WAIT 198,1:GET A*: IF ASO" 

<CTRL-H>"THEN 2000 

GOSUB 4700:POKE 214,7:PRINT:PRINT,"£0 
NTROL + 

PRINT,“CDOWN>H -ÜILFSMENUE 
PRINT,"M -EARBEN WECHSELN 
PRINT,"t -Ö-OPPYMENUE 
PRINT,"D -DOKUMENT LADEN 
PRINT,"Z -ZEILE(N) ZENTR. 

PRINT,"1 -HOCHSCHRIFT 
PRINT,"2 —MDRMALSCHRIFT 
PRINT,"3 —XIEFSCHRIFT 

POKE 198,0:WAIT 19B,1:GET A*:GOTO 200 
0 

IF ASO" {CTRL—W>“THEN 3600 
IF F1=15 THEN F1=0:F2=15:F0*=“{BLACK> 
":F1*="CBROWN >":F2*="{BLUE >":GOTO 353 
0 

IF F1=0 THEN F1=15:F2=0:F0*="{GREY 3> 
":F1*="{YELLOW >":F2*="{CYAN >" 

BOSUB 4900:GOTO 2000 
GOTO 2000 

BOSUB 4100:GOSUB 4700:POKE 214,8:PRIN 
T:PRINT,"{3SPACE >i<RIGHT,RVSON,2SPACE 
>1 E X T{2SPACE,RVOFF,SPACE 
PRINT,"{3RIGHT>?{SPACE,RVSONJM AST 
E R{RVOFF,SPACE>1? 

PRINT,"{DOWN,RIGHT>£-64 £-1541 &£S001 
PRINT,"{D0WN,3SPACE>(£){2SPACEJZUNI 1 
985 

PRINT,"{DOWN,5SPACEJHARI0 HECK 
POKE 198,0:WAIT 19B,1:GET AS:RETURN 
RESTORE 

READ A:IF A<0 THEN 4150 

FOR I=8192+A*8 TO I+7:READ A:POKE I,A 

:POKE 1+1024,255-A:NEXT:GOTO 4110 

FOR 1=1 TO 5:READ K*(I):NEXT:RETURN 

POKE 768,185:OPEN 1,B,15,"M-R“:CLOSE 

1:POKE 768,139 

IF STO-128 THEN RETURN 

AS="£j_OPPY DISK ANSCHALTEN & <IASTE>" 

:GOSUB 4800 

POKE 198,0:WAIT 198,1:GET A#:GOSUB 48 
10:GOTO 4200 

POKE 214,22:PRINT:FOR 1=0 TO 39:PRINT 
"{RED,RVSON,SPACE>“;:NEXT:POKE 214,22 
: PRINT 

PRINT"{RVSON,SPACE >DOKUMENT: "DOSTAB( 
29)“SEITE:"AS"{HOME}" 

GOSUB 4200:OPEN 3,B,15:INPUTH3,A:CLOS 
E 3:RETURN 

GOSUB 4700:POKE 214,6:PRINT:PRINT,"{6 
SPACE,RVSON > DOKUMENT 

PRINT,"{2D0WN,6SPACE >ERSTELLEN":PRINT 
,"{DOWN,9SPACEJBZW":PRINT,"{DOWN,5SPA 
CE >VERAENDERN 

PRINT,"{DOWN,SPACE><•*• = DIRECTORY) 
KOS="DOKUMENTNAME:":MA=13:A1*=" ":A2* 
GOSUB 4599:DO*=FS*:GOSUB 4200 
IF DO*="*"THEN PRINT“{CLR,LIG.REDJ":S 
YS 51181:POKE 198,0:WAIT 198,1:GET A* 
:GOSUB 4900:GOTO 4400 

OPEN 2,8,0," - "+DO*+",S,R":CLOSE 2:0PE 
N 1,8,15:INPUT#1,A:CLOSE 1:IF fl THEN 
4460 


< 114> 

< 167> 

<237> 

<133> 

<183> 

< 170> 

< 161 > 
<201 > 

< 134> 
<025> 
<039> 
<232> 

< 178> 
<128> 
<035> 

<016> 

<249> 

<094> 

<076> 

<079> 

<029> 

< 062 > 
<094> 
<134> 
<164> 

< 115> 
<05B> 


<139> 

<193> 

<174> 

<248> 


<048> 

< 118 > 
<092> 

< 151 > 
<083> 
<063> 
<0B6> 

< 196> 

<167> 

< 147> 

<163> 

<240> 

<184> 

<207> 


<046> 

<043> 

<195> 

<039> 


<243> 

<252> 

<052> 


<092> 


<227> 


20 








C 64 


Anwendung 


4440 

4441 

4450 

4455 

4460 


4465 

4466 


4470 


44S0 

4499 

4500 

4510 


4599 

4600 

4610 

4620 

4630 


OPEN 2,B,0,"'"+DO*+",S,R":INPUT#2,AS, 

CO*,DO*:CLOSE 2:GOSUB 4500:MS=AS <152> 

IF CO*<?"?"THEN KO*="äCHUTZ-£ODE:" : MA 
=13: GOSUB 4599: IF"?"+FS*<>CO*THEN 442 
0 <005> 

FS*=STR*(AS)+DO*:FOR 1=1 TO LEN(FS*): 

POKE 1983+1,ASC(MID*(FS*,I)):NEXT <121> 

SYS 49204:POKE 2,LEN(FS*>:POKE 900,8: 

SYS 50390:RETURN <122> 

A$=”DOKUMENT(SPACE,RVSON>“+DOJ+"(RVOF 
F,SPACEJERSTELLEN (J/N)?":GOSUB 4800: 

POKE 198,0:WAIT 198,1:GET A* <154> 

GOSUB 4B10: IF A*< >*'J "THEN 4420 <23S> 

KO*="SCHUTZ-ßODE:“:GOSUB 4599:CO*=“ T‘ 

+FS*:GOSUB 4810 <0B1> 

OPEN 2,8,1, +DO*+" ,S, W": PRINT#2, 1: P 

RINT#2,CO*:PRINT#2,DO*:CLOSE 2:GOSUB 
4500 <091> 

AS=1:M5=0:SYS 49204:RETURN <217> 

RETURN <239> 

OPEN 1,B,15:INPUTtll,A*,B*:CLOSE 1:F=V 
AL(A*>:IF F=0 THEN RETURN <1107 

GOSUB 4810:A*=A*+"(SPACE,RVSON>"+B*:G 
OSUB 4800:POKE 198,0:WAIT 19B,1:GET A 
*:GOSUB 4810:RETURN <095? 

FS*="" <253> 

POKE 214,22:PRINT:PRINT Fl*"(DOWN>"KO 
*FS* " 1? (SPACE, HOME > “ <026? 

GET A*:IF A*=""THEN 4610 <056? 

IF A*=CHR*(13)THEN GOSUB 4810:RETURN <095? 
IF A*=CHR*(20)AND LEN(FS*)>0 THEN FS* 

=LEFT*(FS*,LEN(FS*)—1):GOTO 4600 <188? 


4640 IF A*>=A1*AND A*<=A2*AND LEN(FS*)<MA 
THEN FS*=FS*+A* 

4650 GOTO 4600 

4700 POKE 214,5: PRINT:PRINT,F0*“(LEFT,RVSO 
N,22SPACE>" 

4710 FOR 1=1 TO 12:PRINT, " (LEFT,RVSON,SPAC 
E,RVOFF,20SPACE,RVSON,SPACE,RVOFF 5 

4720 NEXT:PRINT,“(LEFT,RVSON,22SPACEJ":RET 
URN 

4000 POKE 214,22:PRINT:PRINT Fl*" (DOWNVTA 

B(59—LEN(A* >/2>A*"(HOMERETURN 

4810 POKE 214,22:PRINT:POKE 646,F2:PRINT"( 
DOWN,39SPACE,HOMEV*:RETURN 

4900 POKE 53281,Fl:PRINT"<CLR>":POKE 53281 

,F2 

4905 POKE 53280,F2:PRINT”(HOME,CTRL-H,PURP 
LE, 2SPACEJ E C C E 2EXTMASTER 64/801 (£> 
1985 3131 

4910 PRINT"2EILE "F2*"00(PURPLE,SPACE55PAL 
TE "F2*"00"F1*"(2SPACE> äDRM(RED > 

4920 FOR 1=0 TO 39:PRINT"(RVSON,SPACE}"::N 
EXT 

4930 GOSUB 4300 

4940 POKE 650,128:POKE 182,0:RETURN 

4999 END 

© G4'er 


<177? 

<138? 

<044> 

<050? 

<149? 

J 

<032? 

<169> 

<155? 

< 1B5> 

< 200 ? 

<151? 

<132? 

<093> 

<175? 


Listing 2. Textmaster-Hauptprogramm (Schluß) 


Programm 

s tm.code 


C000 

cBfd 

cl98 

s 

89 

03 

85 

fc 

a5 

02 

B5 

fe 

22 

c348 

x 

a5 

4f 

c9 

13 

dB 

ed 

a9 

00 

8d 























c350 







c3 

c8 

























- 



















claB 


01 

a0 

00 

bl 

fd 

91 

fb 

cB 

ld 

C358 

: 

02 

e6 

4f 

a9 

00 

71 

4e 

a9 

ef 

C000 

: 

20 

4e 

C0 

a9 

78 

85 

fd 

a9 

ac 

clb0 

: 

d0 


fd 

c360 

: 

00 

B5 

4e 

a9 

la 

85 

4f 

aB 

38 

C00B 

: 

04 

85 

fe 

a2 

13 

a0 

27 

bl 

19 

clb8 


cd 

c9 

C36B 

: 

df 

bl 

4e 

c9 

80 

dH 

13 

88 

dB 

C010 

: 

fb 

91 

fd 

BB 

10 

f 9 

a5 

fb 

C4 

C 1 C0 


01 

a9 

01 

0d 

0e 

de 

60 

48 

62 

C370 


C0 

ff 

dB 

f 5 

c6 

4f 

a5 

4f 

3f 

C01B 

s 

18 

69 

3c 

85 

4b 

aS 

fc 

69 

58 

clcB 


a9 

00 

Bd 

48 

03 

68 

0a 

2e 

d6 

C378 

: 

c9 

0e 

d0 

ed 

a9 

00 

8d 

00 

0b 

C020 

: 

0B 

85 

fc 

a5 

f d 

18 

69 

28 

6d 

cld0 

: 

48 

03 

0a 

2e 

48 

03 

0a 

2e 

03 

C380 

: 

19 

60 

CG 

d0 

02 

e6 

4f 

a9 

fd 

C028 

* 

85 

fd 

a5 

fe 

69 

00 

85 

fe 

aB 

c 1 dB 

2 

48 

03 

85 

fd 

ad 

48 

03 

18 

lc 

C388 

: 

00 

91 

4e 

60 

a0 

00 

a2 

01 

87 

C030 

* 

ca 

10 

da 

60 

a9 

08 

B5 

fc 

b0 

cle0 


69 

20 

□5 

f e 

ad 

B4 

03 

30 

06 

c390 


bl 

4e 

f 0 

46 

c5 

02 

d0 

06 

29 

C03B 

s 

a9 

00 

05 

fb 

40 

00 

a9 

20 

b3 

cleB 


01 

60 

ad 

34 

03 

30 

01 

60 

82 

c398 

i 

c8 

cB 

G0 

fa 

d0 

f 2 

8e 

87 

5a 

C040 

: 

91 

f b 

B8 

r!0 

fb 

e6 

fc 

ab 

41 

Clf0 


aS 

fe 

18 

69 

0B 

B5 

f e 

60 

bl 

c3a0 

: 

03 

00 

05 

90 

le 

ca 

ca 

8a 

df 

C048 

* 

fc 

c9 

15 

d0 

ti 

60 

a9 

08 

61 

cif 8 

8 

ea 

20 

8c 

c8 

ea 

a9 

13 

85 

02 

c3aB 

: 

aB 

a9 

01 

91 

4e 

BB 

do 

fb 

fc 

C050 

3 

85 

fc 

a9 

00 

85 

fb 

C0 

00 

f 9 

C200 


4f 

a9 

ff 

85 

4e 

B5 

50 

«9 

7a 

c3b0 

i 

40 

00 

a9 

la 

91 

4e 

cB 

ae 

0a 

C058 


f0 

11 

a5 

fb 

18 

69 

3c 

85 

82 

c208 


IS 

B5 

51 

ae 

49 

03 

ac 

52 

11 

c3b8 


87 

03 

ca 

Ba 

91 

4e 

c8 

a5 

bf 

cM60 

3 

•fb 

a5 

fc 

69 

00 

85 

fc 

88 

cb 

c210 

: 

03 

20 

4e 

C0 

ea 

4c 

aS 

cB 

08 

c3c0 

: 

02 

91 

4e 

a5 

4e 

10 

6d 

87 

3e 

c06Q 

i 

4c 

56 

c0 

5a 

18 

65 

fb 

85 

08 

c218 

: 

c9 

lf 

d0 

06 

a9 

20 

ea 

ee 

8b 

c3c8 

: 

03 

85 

4e 

a5 

4f 

69 

00 

85 

21 

c070 

: 

fb 

a5 

fc 

69 

00 

85 

fc 

60 

0b 

c220 

: 

ff 

03 

8d 

34 

03 

29 

7f 

20 

42 

c3d0 

s 

4f 

a0 

00 

bl 

4e 

85 

02 

4c 

57 

C078 

: 

ad 

3e 

03 

c9 

14 

b0 

0e 

»9 

9t 

C22B 

» 

c7 

cl 

a2 

07 

a9 

00 

85 

bd 

85 

c3d8 

: 

8c 

cS 

60 

a9 

00 

Bd 

60 

15 

ad 

C080 

: 

00 

8d 

40 

03 

ad 

3e 

03 

Bd 

ab 

C230 


a0 

07 

bl 

fd 

3d 

be 

c5 

f0 

43 

c3e0 

; 

Bd 

el 

15 

B5 

4e 

a9 

14 

85 

el 

C08B 


42 

03 

4c 

bO 

C0 

c9 

28 

b0 

dl 

c238 

: 

0d 

Ba 

40 

98 

aa 

a5 

bd 

ld 

bB 

c3e8 

: 

4f 

20 

8c 

c3 

20 

57 

c6 

a9 

0e 

C090 

3 

1 1 

a9 

13 

Bd 

42 

03 

ad 

3» 

5c 

c240 

: 

be 

es 

BS 

bd 

68 

aa 

BB 

10 

18 

c3f 0 

s 

00 

Bd 

e0 

la 

Bd 

el 

la 

85 

Be 

C098 

: 

03 

38 

e9 

13 

Sd 

40 

03 

4c 

14 

c248 


e9 

a0 

00 

e6 

4e 

e6 

50 

d0 

5d 

c3f 8 

s 

4e 

a9 

19 

85 

4f 

4c 

8 c 

c3 

23 

C0Q0 

3 

bB 

C0 

a9 

14 

Bd 

40 

03 

ad 

df 

c250 

t 

04 

e6 

4f 

e6 
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e8 

cB 

C0 

3c 

c7 

c8f 0 


BB 

03 

d0 

01 

60 

a5 

02 

86 

96 

c5e8 

* 

d0 

♦ 5 

e6 

51 

e6 

4f 

a5 

4f 

b5 

c770 

: 

d0 

f 2 

f 0 

10 

84 

02 

30 

3b 

49 

c8f 8 

: 

02 

38 

eS 

02 

60 

00 

ff 

00 

d6 

c5f 0 

: 

c9 

14 

dß 

eb 

60 

ac 

3f 

03 

e3 

C778 

; 

bl 

fb 

29 

7f 

C9 

20 

d0 

04 

4a 












c5f 8 

: 

f0 

3c 

ae 

3e 

03 

f0 

37 

88 

b0 

C780 

3 

eB 

88 

d0 

44 

dB 

3b 

a9 

20 

4a 












c600 

: 

a2 

00 

20 

4e 

C0 

a0 

3c 

a2 

bb 

c78Q 

: 

91 

fb 

88 

10 

fb 

8a 

4a 

85 

83 












C608 

: 

fc 

e8 

88 

bl 

fb 

c9 

28 

f 0 

41 

c790 

• 

4e 

a9 

36 

85 

01 

a4 

02 

bl 

92 












C610 

: 

fB 

c9 

2d 

f0 

41 

c9 

lf 

fPI 

17 

c798 

r; f & a4 '4m- 91 f b 

02 

e6 

7a 












c 618 

1 

3d 

e8 

30 

3a 

ca 

ec 

3e 

C3 

30 

c7a0 

: 

4e 

a5 

02 

c9 

3c 

f0 

0B 

a5 

31 

Listing 3. 

(Schluß) 







10 DATA 169,0,141,14,220,169,51,133,1,169, 
32,133,252,169,216,133,254,160,0,132 
20 DATA 251,132,253,162,7,177,253,145,251, 
200,208,249,230,254,230,252,202,16 
30 DATA 242,169,55,133,1,169,1,141,14,220, 
96 

40 FOR 1=828 TD 876:READ A:POKE I,A:NEXT 
50 PRINT"{CLR,3SPACE,2D0WN>CHAR—GENERATOR 
VI. 0 <C> MARIO WECK 

60 PRINT"{DOWN>1) GROSS/KLEIN":PRINT"{DOWN 
>2) GROSS/GRAFIK":PRINT"{DOWN>3) NICHTS 
70 INPUT"{DOWNJUEBERNEHMEN“?A 
80 IF A=2 THEN POKE B42,20B 
85 IF A<3 THEN SYS 828 

90 POKE 53272,25: PRINT" tCLRV: FOR 1=0 TO 1 
27:POKE 55296+1,14:POKE 1024+I,I:NEXT 

91 POKE 214,11 SPRINT:PRINT,,"Q - SETZEN“:P 
RINT,,"W - LOESCHEN 

92 PRINT,,"N - NEUES ZEICHEN":PRINT,,"R - 
INVERTIEREN 

93 PRINT,,"C = ZCHN LOESCHEN":PRINT,,“S - 
SAVEN 

100 POKE 55296+NR,14:INPUT”CHOME,DOWN,BLAC 
K,8D0WN>NR.:";NR:POKE 55296+NR.0:IF NR 
<0 OR NR>127 THEN 100 
110 POKE 214.10:PRINT:PRINT“ CRVSQN> t 

±iS":FOR 1=1 TO B:PRINT"<RVSON>^{RVOFF 
,8SPACE,RVSON> = ": NEXT 

130 FOR J=8192+NR*8 TO J+7:ZW=128:FOR 1=0 
TO 7 

140 IF PEEK(J)AND ZW THEN POKE 1505+40*<J 
AND 7)+1,160 
150 ZW=ZW/2:NEXT I,J 

160 KO=1505+40«Y+X:P=PEEK(KO):POKE K0,42:B 
Y=8192+NR*S+Y:P0KE KO,P 
170 BET AS:IF A$=""THEN 160 


<067> 

< 170> 

<207> 
<201 > 

< 145> 

<154> 

<040> 

<173> 

<226> 

< 173> 
<226> 
<188> 
<249> 


<224> 


<098> 

<050> 

<0BB> 

<238> 

<223> 


<248> 

<172> 


180 IF AS="<RIGHT>"THEN X=(X+1)AND 7 <052> 

190 IF A*="{LEFT >“THEN X=(X-1)AND 7 <190> 

200 IF A»=“«JPVTHEN Y=(Y-1)AND 7 <230> 

210 IF AS="{DOWNJ“THEN Y=(Y+1)AND 7 <112> 

220 IF A*="N“THEN 100 <020> 

230 IF A*="Q"THEN POKE KO,160:POKE BY.PEEK 

(BY)OR 2t(7-X> <154> 

240 IF AS="W"THEN POKE K0,32:P0KE BY.PEEK( 

BY)AND NOT 2T(7-X> <069> 

250 IF AS=“C"THEN FOR I=BY AND 16376 TO 1+ 

7:POKE 1,0:NEXT:GOTO 110 <155> 

260 IF A*="R"THEN FOR I=BY AND 16376 TO 1+ 

7:POKE I,255-PEEK(I):NEXT:GOTO 110 <202> 

270 IF A*=“S"THEN INPUT”{DOWN»SICHER": BS: I 

F BS<>"3"THEN 100 <236> 

280 IF A»="S"THEN 400 <224> 

299 GOTO 160 <069> 

400 INPUT"<LIG.BLUE,CLR,DOWN,RIGHT > NAME";A 

* <192> 

405 FOR 1=0 TO 1023:POKE 9216+1,255-PEEK<8 

192+1):NEXT <019> 

410 PRINT"{CLRJSAVE"+CHRS(34)+AS+CHR* <34) + 

",B <141> 

420 PRINT"{5DOWN,RVSON,SPACEJNACH SAVEN BI 

TTE RESET' ! " <024> 

430 POKE 198,2:P0KE 631,19:POKE 632,13 <022> 

440 POKE 43,0:POKE 44,32:P0K£ 45,0:POKE 46 

,40 <124> 


6 64'er 


Listing 4. »Char-Generator« dient zum Erstellen der 
Zeichensätze für »Textmaster«. Bitte beachten Sie die 
Eingabehinweise auf Seite 6. 
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C 64 


Anwendung 


Trainings- 
Programm fürs 
Maschinen¬ 
schreiben 

Um gleichzeitig schnell und fehlerfrei 
auf der Schreibmaschine zu schrei¬ 
ben, benötigt man viel Übung. Mit die¬ 
sem Trainingsprogramm können Sie 
Ihre Fingerfertigkeit nach den Richt¬ 
linien der IHK testen und bewerten. 

Immer mehr Schüler und Auszubildende haben Maschinen¬ 
schreiben als Unterrichtsfach. Diesen hilft das Programm 
TPFM (Trainingsprogramm für Maschinenschreiben) bei der 
Leistungskontrolle. Ferner ermöglicht TPFM dem Lernenden 
ohne Papier- und Farbbandverbrauch mit Hilfe des Commo- 
dore 64 zu üben. Auch den technischen Lehrern der Berufs¬ 
und Fachschulen leistet TPFM gute Dienste. Das bisher erfor¬ 
derliche arbeitsintensive und fehleranfällige Blättern und 
Suchen in Umrechnungstabellen entfällt. Der C 64 gibt nach 
Eingabe von Anschlägen und Fehlerzahl sofort die entspre¬ 
chende Note auf dem Bildschirm aus. 

Nachdem das Programm (Listing 1) geladen und mit »Run« 
gestartet wurde, wird die Tastatur des C 64 auf die gültige 


Zeile 


Funktion 

10 


Bildschirm- und Cursorfarbe festlegen 

20 


Maschinen-Routine (Kopieren des ROM ins RAM) 
einiesen 

30 


Unterprogramm zum Umstellen der Tastatur 
aufrufen 

40 - 

75 

Hauptmenü 

1000 - 

1060 

Texteingabe (auch Umlaute) 

2000 - 

2220 

Unterprogramm zur Textkontrolle 

3000 - 

3006 

Speichermenü 

3010 - 

3020 

Text speichern 

4000 - 

4003 

Lademenü 

4009 - 

4020 

Text laden 

5000 - 

5100 

Informationsseite auf den Bildschirm ausgeben 

6000 - 

6040 

Notentabelle In ein zweidimensionales Feld 
einiesen 

6100 - 

6250 

Note ermitteln und feststellen, ob der Anwender 
die IHK-Prüfung bestanden hätte 

6300 - 

6330 

Ausgabe der Note und zusätzlicher Informationen 

7000 - 

7020 

Die Tastatur des C 64 wird auf die gültige DIN für 
Schreibmaschinentastaturen umgestellt 

8000 - 

8020 

Text für das Abspeichern auf Kassette 

9000 - 

9020 

Es wird ausgegeben, ob der Anwender die IHK- 
Prüfung bestanden hätte 

50000 - 

50010 

Daten für die Maschinen-Routine zum Kopieren 
des ROM 

51000 


ASCII-Werte der zu vertauschenden Buchstaben 

52000 - 

52090 

Notentabelle in kodierter Form 


Bild 2. Schrittweise Einführung in das Programm 


DIN für Schreibmaschinentastaturen umgestellt. Hierauf er¬ 
scheint das Hauptmenü mit folgenden Auswahlpunkten auf 
dem Bildschirm: 

1 — Schreiben 

2 — Korrigieren 

3 — Benoten 

4 — Ende 

Schreiben: Nach der Auswahl dieses Menüpunktes kann ein 
beliebiger Text eingegeben werden. Die Uhr zum Messen der 
benötigten Zeit startet erst nach dem Drücken des ersten 
Buchstabens. Nach zehn Minuten bricht der Computer auto¬ 
matisch die Texteingabe ab. Mit »SHIFT RETURN« kann man 
sie vorzeitig beenden. 

Bei der Notenberechnung wird dann die Anschlags- und 
Fehlerzahl auf eine Zehnminutenleistung hochgerechnet. In 
beiden Fällen verzweigt das Programm zu einer Informations¬ 
seite. Hier, gleichgültig ob man sie durch Abbruch mit der 
SHIFT-RETURN-Taste oder nach zehn Minuten auf regulärem 
Weg erreicht hat, gibt der Computer die Textlänge, die benö¬ 
tigte Zeit und die Anschlagszahl pro Minute an. 


i.P.PP 

_ 

Laufvariablen 

x,y,xS 

— 

Einlesen der DATA-Werte 

a$(x) 

— 

Text speichern 

b(x,y) 

— 

Notentabelle speichern 

aa$ 

— 

Tastaturabfrage bei Menüs 

fl 

~ 

Flag (1 = Im Hauptmenü wurde »Benoten« 
ausgewählt) 

a$ 

— 

Tastaturabfrage im Programmteil »Text schreiben« 

tiS 

— 

Uhr 

et$ 

— 

Schreibzeit 

bS 

— 

Zwischenspeichern von Textteilen (bis zu 

72 Zeichen) 

za 

— 

Anzahl der eingegebenen Buchstaben 

a 

— 

ASCII Wert von a$ 

fe$ 

— 

Fehlerzahl 

a2S 

— 

Auszugebendes Zeichen im Programmteil 
»Text korrigieren« 

sl 

— 

Cursorspalte 

zl 

— 

Cursorzeile 

f2 

— 

Flag (1 = Text fertig korrigiert) 

pe 

— 

Gerätenummer 

na$ 

— 

Name der Textdatei 

ei 

— 

Anzahl der Anschläge pro Minute 

st 

— 

Statusvariable 

a2$ 

— 

Minutenzahl der Schreibzeit (ETS) 

a3S 

— 

Sekundenzahl der Schreibzeit (ETS) 

se 

— 

Schreibzeit (ET$) in Sekunden 

f3 

— 

Flag (1 = Rücksprung zum Programmteil »Noten 
ermitteln«) 

e2 

— 

Anzahl der Anschläge pro zehn Minuten 

fe 

— 

Anzahl der Fehler (auf zehn Minuten hoch¬ 
gerechnet) 

an 

— 

Flag (1 = Notentabelle für Anfänger) 

ma 

— 

Mindestanschlagszahl 

nl 

— 

Notenspalte der Fehlertabelle (beim Einlesen) 

f 

— 

Fehlerspalte der Notentabelle (beim Einlesen) 

e2$ 

— 

Anschlagszahl (bei Eingabe) 

z2 

— 

Notenspalte der Fehlertabelle (beim Ermitteln) 

no 

— 

Note 

ih 

— 

Flag (1 = Industrie- und Handelskammerprüfung 
bestanden) 

q$ 

— 

Cursorsteuerzeichen 

mi 

— 

Anzahl der zum Schreiben des Textes benötigten 
Minuten 

s2 

— 

restliche Sekunden 

d 

— 

ASCII-Wert des überprüften Zeichens der ersten 
und zweiten Tastaturdecodiertabelle 

i1,i2 


Adressen der zu vertauschenden Buchstaben in 
den beiden Tastaturdecodiertabellen 


Bild 1. Variablenliste 
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Anwendung 


C 64 


Nachdem der Anwender mit »RETURN« die Informations¬ 
seite verlassen hat, gelangt er in das Abspeichermenü. Die¬ 
ses bietet folgende Auswahlpunkte an: 

a) Auf Kassette speichern 

b) Auf Diskette speichern 

c) Korrigieren (ohne speichern) 

In den ersten beiden Fällen a und b verzweigt der Computer 
nach dem Speichern in das Hauptmenü. Im Fall c wird der 
Programmteil »Text kontrollieren« aufgerufen. Hier wird der 
Text nicht von einem externen Speicher geladen, da er sich 
noch im Hauptspeicher befindet. 

Hinweis: Der Text wird immer automatisch unter dem 
Namen »text« abgespeichert. 

(Fortsetzung auf Seite 77) 


Adresse 

Bedeutung 

53280 

Rahmenfarbe des Bildschirms 

53281 

Hintergrundfarbe des Bildschirms 

214 

Zeile, in der sich der Cursor befindet 

211 

Spalte. In der sich der Cursor befindet 

58640 

Durch den Aufruf dieser Routine wird der Cursor 


positioniert 

653 

Flag für SHIFT 

60289 

Erste Tastaturdecodiertabelle (ohne SHIFT) 

60354 

Zweite Tastaturdecodiertabelle (mit SHIFT) 

1 

6510 Ausgaberegister 

198 

Anzahl der Zeichen im Tastaturpuffer 


Bild 3. Erklärung der verwendeten Adressen 


1 REM********************************** <03B> 

2 REM* TRAININGSPROGRAMM FUER * <116> 

3 REM* MASCHINENSCHREIBEN * <060> 

4 REM* DIRK MARZLUF BROMBEERMATT 2 * <029> 

5 REM* 7614 GENBENBACH * <063> 

6 REM********************************** <043> 

7 l <239> 

10 PRINT CHR*(147)|CHR*(5) 5 CHR*(14)sCHR*(8 

)r POKE 53280, 0:POKE 53281,0 
20 FOR 1=53000 TO 53021s READ XiPOKE I,XsNE 
XT I 

30 GOSUB 7000 
37 s 

30 REM*** HAUPTMENUE *** 

39 : 

40 DIM A*(200):DIM B(30,20 )3 PRINT"<CLR,4DO 
WN>1 = SCHREIBEN" 

50 PRINT”C2D0WNJ2 = KONTROLLIEREN“ 

53 PRINT“C2DOWNJ3 = JENOTEN“ 

55 PRINT"<2D0WN)4 = £NDE“ 

60 GET AA*sIF AA*<>“1"AND AA*<>"2“AND 
>”3"AND AA*< >"4"THEN 60 
70 IF AA*="2"THEN 2000 
72 IF AA*="3"THEN Fl=l:GOTO 6007 
75 IF AA*=”4"THEN PRINT"<CLR>"sPOKE l,55sE 
ND 

997 1 

998 REM*** TEXT SCHREIBEN *** 

999 s 

1000 I =0e PRINT CHR* (147) | " ' SHIFT J5ETURN * B 
EENDET TEXT VORZEITIG<2DOWN>" 

1010 GET A* 

1012 IF TI*="001000"THEN ET*=TI*sA*(I)=B*s 
PRINT"<CLR>"sGOSUB 5000sGOSUB 3000s RU 
N 40 

1013 IF ZA=0 THEN TI*="000000" 

1014 IF A*=“"THEN 1010 

1015 A=ASC(A*) 

1020 IF A=141 AND ZAO0 THEN ET*=TI*s A* (I) 

=B*s PRINT"(CLR>"s GOSUB 50103GOSUB 300 
0 s RUN 40 

1025 IF A<32 AND A<>13 OR A>127 AND A<161 
THEN 1010 

1030 IF A*=CHR*(64> THEN A*="UE" 

1032 IF A*=CHR*<186)THEN A*="UE“ 

1034 IF A*=CHR*(62)THEN A*="OE" 

1036 IF A*=CHR*(91)THEN A*="SE" 

1040 IF A*=CHR*(60)THEN A*=“AE" 

1042 IF A*=CHR*(93)THEN A*=" 

1044 IF A*=CHR*(192)THEN A*= 

1050 PRINT A*;sZA=ZA+l 

1052 IF A=13 THEN A*=CHR*<190> 

1053 IF A=58 THEN A*=CHR*(191> 

1054 IF A=44 THEN A*=CHR*(192> 

1055 B*=B*+A*sIF LEN(B*)>70 THEN A*(I)=B*l 
1=1+1iB*»““ 

1060 GOTO 1010 

1997 1 

1998 REM*** TEXT KONTROLLIEREN *** 

1999 s 

2000 GOSUB 4000 

2002 FE*="00 "1 PRINT“CDOWNJfllT 'SPACE' WIRD 

EEHLERZAHL ERHOEHT.“ <003> 


2004 PRINT“ CDOWNlfllT 'SHIFT' KANN DAS K.IST 

ING DES JEXTES“ <240> 

2005 PRINT"CDOWNX3ESTOPPT WERDEN.C2D0WNJ“ <222> 

2006 FOR P=0 TO IsFOR PP=1 TO 72 <177> 

2010 A2*=MID*(A*(P),PP,1)sIF A2*<>“"THEN I 

F ASC(A2*)=190 THEN A2*=CHR*(13) <075> 

2012 IF A2*<>“"THEN IF ASC(A2*>=191 THEN A 

2*=CHR* ( 58 ) <030> 

2013 IF A2*< >""THEN IF ASC(A2*)=192 THEN A 

2*=CHR*(44 > <030> 

2015 IF Sl=40 THEN PRINT“ CUPVj <186> 

2020 PRINT A2*;:BET AA* <061> 

2025 IF AA*=" "THEN FE=FE+1sFE*=STR*(FE)sF 
E*=MID*(FE*,2,2)sIF FE<10 THEN FE*=“0 
"+FE* <093> 

2027 IF FE=99 THEN FE=98 <100> 

2030 Zl=PEEK(214)sIF PEEK(653)=1 THEN 2030 <233> 
2040 S1 =PEEK ( 211) s PR I NT " <HOME > ANZAHL DER £, 

EHLERs “}FE*;"<19SPACE>" <166> 

IF F2=l THEN 2205 <019> 

POKE 214,ZIsPOKE 211,BlsSYS 5B640SNEX 
T PP'.NEXT P <196> 

PR I NT s PR I NT " C2DOWN , RVSON > ' J5ETURN ' =WE I 
TERIRVOFF,SPACE>(AUSWERTUNG)"sF2=l <070> 
2205 GET AA*sIF AA*<>""THEN IF ASC(AA*) = 13 

THEN 6000 <202> 

2220 GOTO 2025 <009> 

2997 s <179> 

2998 REM*** ABSPEICHERMENUE *** <174> 

2999 1 <181> 

3000 PRINT"<CLR,4D0WN>1 = AUF HASSETTE ABS 

PEICHERN" <057> 

3001 PRINT"<2D0WN>2 = AUF DISKETTE ABSPEIC 

HERN" <174> 

3002 PRINT“C2DOWN>3 = KORRIGIEREN (OHNE AB 

SPEICHERN)" • <050> 

3004 GET AA*3IF AA*<>"1“AND AA*<>“2"AND AA 

*<>”3"THEN 3004 <235> 

3005 PRINT"<CLR>“s PE=8s NA*="@s TEXT“sIF AA* 

="1"THEN PE=lsGOSUB B000SNA*="TEXT" <063> 

3006 IF AA*="3"THEN 2002 <156> 

3007 s <189> 

3008 REM**« TEXT ABSPEICHERN *** <144> 

3009 s <191> 

3010 OPEN 1,PE,1,NA*s PRINT#1,E1s PRINTttl,ET 

* <104> 

3020 FOR P=0 TO Is PRINT#1,A*(P)s NEXTs CLOSE 

lsRETURN <063> 

3997 ■ <163> 

3998 REM*** LADEMENUE *** <132> 

3999 s < 165> 

4000 1=05PRINT"<CLR,4D0WN>1 = ÄON KASSETTE 

LADEN" <146> 

4001 PRINT"<2D0WN>2 = ÄON DISKETTE LADEN" <129> 

4002 GET AA*sIF AA*<>"1"AND AA*<>"2"THEN 4 

002 <091> 

4003 PRINT"<CLR>“sPE=8sIF AA*="1"THEN PE=1 

3 GOSUB 8000 <178> 

4004 s <170> 

4005 REM*** TEXT LADEN *** <061> 

4006 s <172> 

4009 OPEN 1,PE,0,"TEXT "1 INPUT#1,E1sINPUTttl 

,ET* <108> 


AE" 

SS" 


<183> 

<249> 

<034> 

<013> 

<056> 

<015> 

< 171 > 
<255> 
<217> 
<074> 




< 141 > 

< 151 > 

<255> 
<211 > 
<128> 
<213> 

<157> 

< 202 > 


<103> 
<252> 
<186> 
< 147> 


< 129> 

<106> 

<030> 

< 158> 
<024> 

< 155> 
< 012 > 

< 151 > 
<207> 
<223> 
< 020 > 
<087> 

< 184> 

<223> 

< 01 &> 

<195> 

< 127> 
<197> 
< 202 > 


2060 


2200 


Listing 1. »Trainingsprogramm für Maschinenschreiben«. Bitte mit dem Checksummer auf Seite 6 eingeben. 
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C 64 


Anwendung 


4010 

INPUT#1,A*<I):IF ST=64 THEN CLOSE ltP 


DOWN}":GOTO 6311 

<207> 


RINT"<CLR)": RETURN 

<084 > 

6306 MI=INT(SE/60):S2=SE—MI*60 

<225> 

4020 

1=1+1iGOTO 4010 

<027> 

6307 PRINT"{DOWN)SIE HABEN";MI;"HIN. UND"! 


4997 

1 

< 147> 

S2i"SEK." 

<0B7> 

4998 

REM***ERGEBNISSE, INFORMATIONEN**» 

<049> 

6308 PRINT" {DOWNTGESCHRIEBEN. ANZAHL DER £, 


4999 

t 

< 149> 

EHLER UND" 

<142> 

5000 

PRINT"{DOWNTSIE ^£HNMINUTENABSCHRIFT 


6309 PRINT"{DOWN)flNSCHLAEGE WURDEN AUF ^EH 



IST ZU SNDE. ” 

<081 > 

NMINUTEN-" 

<162> 

5005 

PRINT"(DOWN)HEITERE INFORMATIONEN FOL 


6310 PRINT"{DOWN>LEISTUNG HOCHGERECHNET."s 



BEN. " 

< 190> 

Q*="{DOWN >":GOSUB 9000 

<214> 

5010 

IF ET*=" 000000"THEN ET*="000001" 

< 142> 

6311 PRINT ß*j"{RVSON}'JJETURN'=WEITER<RVOF 


5012 

A2*=MID*CET*,3,2> 

<100> 

F,SPACE)(ERNEUTER START)" 

<221 > 

5020 

A3*=MID*(ET*,5,2> 

< 148> 

6320 GET AA*:IF AA*< >""THEN IF ASC(AA*)=13 


5030 

SE=VAL(A2*)*60+VAL(A3») : IF F3=l THEN 


THEN RUN 40 

<212> 


RETURN 

<062> 

6330 GOTO 6320 

<070> 

5040 

PRINT" {4D0WN5.SER IEXT HAT EINE SAENGE 


6997 : 

< 115> 


VON"jZA 

<214> 

6998 REM*** UMSTELLEN DER TASTATUR *** 

< 161 > 

5050 

PR INT“ {DOWN } jJE I CHEN UND SIE HABEN ";SE 


6999 : 

< 117> 


; "SEKUNDEN" 

<077> 

7000 PRINT"SIE TASTATUR WIRD JETZT UMBESTE 


5055 

PRINT"{DOWN5DAFUER BENOETIßT." 

<255> 

LLT.(3D0WN)“ 

<238> 

5057 

E1=INT(ZA/CSE/600)+.5)/10 

<105> 

7002 SYS 53000:POKE 1,53 

<087> 

5060 

PRINT"<DOWN>SlE HABEN EINEN ANSCHLAG 


7005 READ X:IF X=-l THEN POKE 60389,61:POK 



VON";El 

< 124> 

E 60407,39:RETURN 

<218> 

5070 

PRINT" CDOWNT.2EICHEN PRO HINUTE. “ 

<171 > 

7010 READ Y:PRINT CHR*(X)“ WIRD ZU "CHR*CY 


5080 

PRINT" {4D0WN,RVSON) * SETURN ' =WEITER{RV 


) 

<022> 


OFF,SPACE >(flBSPEICHER-flENUE >" 

<243> 

7015 FOR 1=60289 TO 60419:D=PEEK(I):IF DO 


5090 

GET AASsIF AA*< >""THEN IF ASCCAA*>=13 


X AND DOY THEN NEXT 

<252> 


THEN RETURN 

<211 > 

7016 IF D=X THEN 11 = 1 

<108> 

5100 

GOTO 5090 

<023 > 

7017 IF D=Y THEN 12=1 

< 142> 

5997 

: 

< 131 > 

7018 IF 11=0 OR 12=0 THEN NEXT 

<167> 

5998 

REM***EINLESEN DER NOTENTABELLE*** 

<162> 

7020 POKE I1,Y:POKE 12,X:I1=0:12=0:GOTO 70 


5999 

s 

< 133> 

05 

<206 > 

6000 

E2=E1*10:F3=l: GOSUB 5010:FE=INT((FE/( 


7997 : 

<099> 


SE/600))+.5) 

<234> 

7998 REM*** TEXTAUSGABE *** 

<120> 

6001 

PRINT“{CLR,4D0WN>1 = flNFAENSER":PRINT 


7999 1 

<101> 


"{2D0WNT2 = EXAMENSKANDIDAT" 

<054 > 

8000 PRINT" {3D0WNTSITTE JSASSETTE ZUM XEXTB 


6002 

WAIT 198,1:BET A*tIF A*="1"THEN AN=1: 


EGINN Z URUECK-C2SPACE,DOWN > SPULEN.” 

<092> 


FE=INT CFE/2):E2=E2*2:PRINT"{CLR>":GOT 


8010 PRINT"{DOWNTflNSCHLIESSEND DRUECKEN SI 



0 6007 

<079> 

E BITTE EINE“ 

<212> 

6003 

PRINT" {CLR)£ETZT WIRD DIE J1DTE ERRECH 


8015 PRINT"{DOWNJBELIEBIGE TASTE.{3D0WN}" 

<244 > 


NET, DIE SIE" 

<023> 

8020 WAIT 198,11POKE 19B,0:RETURN 

<0B7> 

6004 

PRINT"{DOWN>IN DER flBSCHLUSSPRUEFUNG 


9000 IF AN=1 THEN Q*=“C5D0WN)":RETURN 

<035> 


EINES SCHREIB-" 

<076>,, 

)C 900* » _ IH=0 THEN 9010 

< 127> 

6005 

PRINT"{DOWNJMASCHINENKURSES ERHALTEN 


9005 PRINT"{2DOWN)SIE HAETTEN DIE I. ü. &. £ 



HAETTEN." 

<019> 

RUEFUNG{9SPACE,DOWN TBESTANDEN." 

< 106> 

6006 



9007 RETURN 

< 175> 



<097> 

9010 PRINT" {2D0WNTSIE HAETTEN DIE i-ü. £ 


6007 

RESTORE:FOR 1=1 TO 43:READ X*:NEXT I: 


RUEFUNG NICHT{3SPACE,DOWNTBESTANDEN." 

<052> 


READ MAsIF Fl=l THEN PRINT"{CLR>" 

<033> 

9020 RETURN 

<188> 

6008 

READ X:N1=X 

<239 > 

49996 : 

<187> 

6010 

READ X:IF X=-l THEN F-F+lsGOTO 6008 

<205> 

49997 REM*** DATEN FUER ROM-KOPIER *** 

<134> 

6020 

IF X—2 THEN 6100 

< 122> 

49998 REM*** -ROUTINE *** 

< 168> 

6021 

IF X<0 THEN X=ABS(X>:GOTO 6030 

<038> 

49999 : 

< 190> 

6022 

IF X<10 THEN X=X*1000 

< 164> 

50000 DATA 160, 0,169,192,133, 91,133, 89 


6024 

IF X<100 THEN X=X*100 

<034> 

,132, 90,132, 88,169,224 

<121 > 

6026 

IF X<1000 T^EN X=X«10 

<032> 

50010 DATA 132, 95,133, 96, 32,191,163, 96 

<029> 

6030 

B(F,N1)=X:N1=N1+1 

<001> 

50996 : 

< 171 > 

6040 

GOTO 6010 

<210> 

50997 REM*** DATEN FUER TASTATUR- *** 

< 112> 

6097 

8 

<231 > 

50998 REM*** UMSTELLUNG *** 

< 114> 

6098 

REM*** BERECHNEN DER NOTE *** 

< 102> 

50999 : 

< 174> 

6099 

s 

<233> 

51000 DATA 89,90,217,218,45,47,47,39,58,62 


6100 

Z2=0:IF F1=0 THEN 6104 

<075> 

,59,60,63,219,43,42,42,192,35,61,-1 

< 133> 

6101 

PRINT"{CLRTEUER ERNEUTEN START BEI £E 


51997 : 

< 156> 


HLERZAHL X'{2SPACE,DOWN>EINGEBEN.“ 

< 167> 

51998 REM*** NOTENTABELLE *** 

<098> 

6102 

INPUT"{3D0WN)££HLERZAHL";FE*:IF FE*=" 


51999 : 

<15B> 


X" THEN RUN 40 

<033> 

52000 DATA 1200,5,12,14,16,17,18,-1,5,12,1 


6103 

INPUT"{2DDWN >ANSCHLAGSZAHL";E2*:E2=VA 


4,16,17,18,-1,4,12,14,15,16,17,18,-1 

< 107> 


LCE2*):FE=VAL(FE*) 

<175> 

52010 DATA 3,12,14,15,16,17,18,24,-1,3,12, 


6104 

IF E2<MA OR FE>F THEN NO=6:GOTO 6250 

<1B6> 

15,16,17,18,2133,32,-1 

< 1 47 > 

6105 

FOR NO=6 TO 1.5 STEP-.5:IF B(FE,Z2)>E 


52020 DATA 2,12,14,16,17,1B,2,2667,4,-l,2, 



2 THEN 6250 

< 112> 

12,15,16,17,1875,24,32,-1 

<170> 

6150 

IF B(FE,Z2)>B(FE,Z2+1)THEN N0=N0-.5:G 


52030 DATA 1,12,14,16,17,1B,2188,28,3733,- 



OTO 6250 

<112> 

1,1,12,15,16,17,2,25,32,-1 

<251 > 

6200 

Z2=Z2+1:NEXT 

<104> 

52040 DATA 0,12,14,16,17,18,225,2813,36,-1 


6250 

IH=0: IF E2O0 AND E2>=MA THEN IF FE/E 


,0,12,15,16,17,2,25,3125,4,-1 

< 152> 


2*100<=0.5 THEN IH-1 

< 114> 

52050 DATA 0,14,15,17,18,22,275,3438,-1,0, 


6297 

s 

<177> 

15,16,17,2,24,3,375,-1 

<035> 

6298 

REM*** AUSGABE DER NOTE *** 

<096> 

52060 DATA 0,15,16,18,2167,26,325,-1,0,16, 


6299 

: 

< 179> 

17,1867,2333,2028,35,-1 

<255> 

6300 

IF F1=0 THEN 6304 

< 113> 

52070 DATA 0,16,17,2,25,3,375,-1,0,17,18,2 


6301 

PRINT"{2DOWN,RVSON)£RUEFUNGSNOTE:";NO 


133,2667,32,-1 

<022> 


:GOSUB 9000 

<0B8> 

52080 DATA 0,17,1889,2267,2833,34,-1,0,18, 


6302 

PRINT"{3DOWNJ3JR FORTSETZUNG BELIEBIG 


2.24,3.36,-1,0,1B,2111,2533,3167,-1 

< 180 > 


E XASTE{9SPACE,DOWN>DRUECKEN." 

<216> 

52090 DATA 0,1905,2222,2667,3333,-2 

<14B> 

6303 

WAIT 198,1iPOKE 198,0:GOTO 6100 

<067> 



6304 

PRINT"SIE HAETTEN DIE SDTE";NO;"BEKOM 


§ G4'er 



MEN. " 

<056> 



6305 

IF ET*="001000"THEN GOSUB 9000:0*=“{7 


Listing 1. Programm »TPFM« (Schluß) 
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C 64 


Anwendung 


Taktvoller 
Musiker 

Dieses Schlagzeugprogramm für den 
C 64 imitiert bis zu acht verschiedene 
Schlaginstrumente. Durch die Mög¬ 
lichkeit, Taktsequenzen zu program¬ 
mieren, wird der Computer zum takt¬ 
genauen Rhythmusgerät. 

Das Programm (siehe Listing) bietet vier Hauptmenü¬ 
punkte: 

1. Laden und Speichern von Schlagzeugsequenzen 

2. Sequenzen erstellen 

3. Sequenzen abspielen 

4. Sequenzen auf der »Schautafel« betrachten. 

Von jedem Menüpunkt kommt man durch die Eingabe eines 
Sterns (*) wieder in das Hauptmenü zurück. 

Zu 1: Es können insgesamt 100 Sequenzen zu je 32 Takt¬ 
einheiten eingegeben werden. (8 Presets sind von vornher¬ 
ein vorhanden, sie haben die Sequenznummer 1 bis 8). Die 
Speicherung dieser Sequenzen übernimmt der erste Pro¬ 
grammpunkt. Es muß nur der Programmname angegeben 
werden und das Programm lädt (oder speichert) alle existie¬ 
renden Sequenzen auf Kassette. Danach springt es wieder 
zum Hauptmenü zurück. $ 9003 - $ 900E 

Zu 2: Zuerst müssen Sie eingeben, welche Sequenz editiert $ 901C $9085 


Sequenz von der abgebrochenen Stelle an weiterspielen. 

Zu 4: Um zu sehen, wie alle Takte einer Sequenz (Snare 
Drum, Hi-Hat, etc.) aussehen, wählt man den vierten Pro¬ 
grammpunkt. Zuerst wird man wieder gefragt, welche 
Sequenz man sich ansehen will. Danach zeigt der Computer 
alle Taktsequenzen auf dem Bildschirm. (Wichtig: Einen schö¬ 
nen Effekt erzielt man, wenn Snare Drum und Baß-Drum 
zusammen gespielt werden; das ergibt ein Metall-Geräusch.) 
Man kann von hier aus wieder zum Menü oder zum zweiten 
Programmteil verzweigen. Wie schon erwähnt, sind im Pro¬ 
gramm bereits acht Presets (fest programmierte Sequenzen) 
enthalten, die auf Wunsch verändert werden können. Nach 
»RUN« sind Sie wieder im Ausgangszustand. 
Programmtechnik: 

Ich habe mir überlegt, wie man eine 32 Takte lange Sequenz 
mit je acht verschiedenen Rhythmusgeräten auf minimalen 
Speicherplatzbedarf ablegen könnte. Am besten erschien mir 
dann, je einem Takt ein Byte zuzuordnen und jedes Schlagin¬ 
strument als 1 Bit (8 Schlaginstrumente = 2 e — 256 = 1 
Byte) zu kennzeichnen. Das erklärt auch, warum eine Bele¬ 
gung aller acht Instrumente auf einem Takt das Taktende 
kennzeichnen: Bei dem Modus »mehrere Sequenzen hinter¬ 
einander« ist das Ende-Flag auch die Zahl 255. 

Jede Taktsequenz ist in dem Variablenfeld T(Z,NR) abge¬ 
speichert (Z=1-32=Taktfeld, NR=Nummer der Sequenz). 
Wichtige Variablen 
ZA: Nummer der höchsten Sequenz 
Z: Nummer der gerade editierten Sequenz 

N$: Name der Datei 
A$: Tastaturvariable 
H;J: Laufvariablen 
Maschinenprogramme: 


werden soll. (Der Computer zeigt jeweils die letzte eingege¬ 
bene Sequenznummer an, damit man weiß, wie viele Files 
schon belegt sind.) Danach wird gefragt, welcher Teil des 
Schlagzeugs eingestellt werden soll. Es stehen zur Verfü¬ 
gung: 

Snare Drum, Akzente, Baß-Drum, Hi-Hat (zu), Hi-Hat (offen), 
Becken, kleine Trommel und große Trommel. 

Da der C 64 nicht acht verschiedene Klänge auf einmal spie¬ 
len kann, mußten folgende Vereinbarungen getroffen wer¬ 
den: Es darf aus den drei Hauptgruppen (siehe unten) jeweils 
nur ein Instrument pro Takt genommen werden. 

1. Gruppe: Snare Drum; Akzente 

2. Gruppe: Baß-Drum; kleine Trommel; große Trommel 

3. Gruppe: Hi-Hat (zu und offen); Becken 

Wenn alle Schlagzeugteile in einem Takt gesetzt sind, gilt 
das als Taktende. Das ist nützlich, um zum Beispiel Dreiviertel¬ 
takte zu programmieren. 

Wenn man aus den acht Instrumenten gewählt hat, wird ein 
neues Bild aufgebaut und man kann mit dem Joystick oder 
den Cursor-Tasten auf den 32 Takteinheiten Punkte setzen 
oder löschen. Falls schon einige Takte gesetzt waren, wird 
das natürlich auch angezeigt. Das macht man nun mit jedem 
Schlagzeugteil bis die ganze Sequenz eingestellt ist. 

Zu 3: Wählt man diese Funktion wird man gefragt, ob man 
eine einzelne oder mehrere Sequenzen hintereinander 
gespielt haben will. Das ist nützlich um zum Beispiel verschie¬ 
dene Rhythmen mit kleinen Soli (»Breaks«) zu kombinieren. 
Probieren Sie zum Beispiel einmal die Sequenzenkombina¬ 
tion 1,2,4,3,0 aus (die Null zeigt das Ende der Eingabe an). 
Bei der einzelnen Sequenz kann man zwischen der gerade 
editierten und einer anderen wählen. Im Spielmodus, der 
rechts oben im Bild angezeigt wird, kann man mit den Cursor- 
Tasten die Geschwindigkeit einstellen (insgesamt 256 
Geschwindigkeiten). Weitere Funktionen: Fl - Ende; F3 - 
zurück zum Menü; F5 - Sequenz von Anfang an spielen; F7 - 


$ 90A0 - $ 9180 


$ 9200 - $ 9250 : 
$9251 -$9273: 


Löschen aller SID-Register 

Schlagzeugsounds 

Hauptabspielroutine: 

1. Entsprechend den Bits auf die 
Sounds verzweigen 

2. Geschwindigkeitskontrolle 

3. Geschwindigkeitsdarstellung 

4. »LED«-Kontrolle 
»LEDs« für die Schautafel 
»LEDs« für Sequenz einstellen 


Hinweis 

Das Programm ist auf Datasettenbetrieb ausgelegt. Für den 
Betrieb mit einer Floppy sind die Zeilen 2120 und 2270 zu 
ändern: 

2120 OPEN 1,8,1,N$+" ,S,W" 

2270 OPEN 1,8,0,N$+" ,S,R" 

(Thomas Langens/tr) 


10 REM DRUM MACHINE 64 

< 151 > 

20 REM BY THOMAS LANGENS 

<254> 

30 REM SCHEVENHOFER WEG 44D 

<254> 

40 REM 5600 WUPPERTAL 1 

<229> 

50 REM TEL: (02053) 40152 

<110> 

60 REM 

<122> 

100 PRINT“CCLR,BLUE,2D0WN,SPACE>EINEN 

MOME 

NT BITTE !“ 

<129> 

110 PDKE 5328I,15:P0kE 53280,2 

< 164> 

120 FÜR H=0 TO 7 s READ DR*(H):NEXT 

<205> 

130 ZA=1:Z=1:DIM T(32,100) 

< 193> 

140 FA=54272:P1=1548:P2=1508 

<007> 

150 GOSUB 3500 

<202> 

160 GOSUB 1510:PQKE 198,0 

<103> 

170 GET A*:IF A*="“THEN 170 

<236> 

Das Listing zu »Drum-Machine«. Bitte benutzen Sie zur 
Eingabe den Checksummer V3 (Seite 6). 
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Anwendung 


C 64 


180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 


310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

370 

580 

590 

600 

610 

620 

630 

640 


IF A*="{F1?"THEN 1910 
IF A*="{F3?"THEN 2330 
IF A*=" (F5?"THEN 2060 
IF AS="{F7?"THEN 3330 
GOTO 170 

BET A*:IF A*<>""IHEN 230 
GET A*:IF A*=""THEN 240 
RETURN 

PRINT"CBLUE,CLR,2D0WN,SPACE5WELCHE SEQ 
UENZ SOLL EINGESTELLT WERDEN" 

PRINT"«DOWN,SPACE5DIE SEQUENZ NR-{2SPA 
CE ?";ZA;:INPUT"{4LEFT ?";A* 

IF A*="*"THEN 160 

Z=VAL(A*):IF Z>ZA THEN ZA=Z 

IF Z>100 THEN PRINT"TRED,DOWNJUNERLAUE 

TER WERT (1-100)CBLUE?":PRINT"{4UPJ";: 

GOTO 270 

RETURN 

PRINT"{CLR,GREY 3,RVOFF,24SPACE,BLUE>ü 

PRINT"114SPACE,BLUE > = {RED ?F1 (BLUE ? = CRE 
D?SEQUENZ"; 

PRINT"{2SPACE,BLUE? = {25PACE,GREY 3,3SP 

PR I NT “ÜCGREY 3,2SPACE, BLUE ? = {RED ?F3 {B 
LUE >= {RED?MENUE{BLUE,4SPACE?—(2SPACE,G 
REY 3,3SPACE,BLUE >—{GREY 3,SPACEI"; 
PRINT“{ORANGE?EINSTELLEN DER{GREY 3,2S 
PACE,BLUE ? = {GREY 3,2SPACE,BLUE? J»»»»* " 

PRINT" *»■««■«■«■»■» {2SPACE■ GREY 3,3SPACE,BL 
UE? = <GREY 3,11SPACE ? "; 

PRINT"{6SPACE,BLUE?^{GREY 3,11SPACE,BL 
UE, 6SPACE, RED , SPACE > “ ; 

PRINT"{GREY 3,3SPACE,BLUE> = (GREY 3,SPA 
CE,ORANGE >"DRF(I) "{2SPACE,B 

LUE?^{GREY 3,3SPACE>"; 

PRINT"<9SPACE,BLUE,6SPACE,GREY 3,3SPAC 
E T BLUE ? JA««»» " ; 

PRI NT " *********_** K. {GREY 3 , 12SPACE , BLUE 
,SPACE?"; C 

PRINT"(5SPACE,GREY 3,20SPACE?“; 

PRINT“ {23SPACE,RED?U3t“ ; 

pr i nt “ ■mmw.w.w.w.M.w.’.'; 

PRINT” WUHBHU {GREY 3,5SPACE ,RED5- {GRE 
Y 3,10SPACE,WHITE?1"; 

PRINT"{BREY 3,95PACE,WHITE?2{GREY 3,9S 
PACE,WHITE ?3{GREY 3,2SPACE,RED >-{GREY 
3 , SP ACE , WH ITE , SPACE ? " ; 

PRINT"{GREY 3,3SPACE,RED? = {WHITE,SPACE 
>12345678901234567890"; 

PRINT"123456789012{RED>-(GREY 3,SPACE, 
WHITE,SPACE,GREY 3,3SPACE,RED? = {GREY 3 
,4SPACE,RED? —{GREY 3,SPACE?"; 

PRINT"{2SPACE,RED?={GREY 3,3SPACE,RED? 
= {GREV 3,3SPACE,REDl-CGREY 3,3SPACE,RE 
D?—{GREY 3,3SPACE.RED?^(GREY 3.3SPACE, 
RED?^{GREY 3,2SPACE?"; 

PRINT"{SPACE,RED?—{WHITE,2SPACE,GREY 
3,3SPACE,RED? = {GREY 3,SPACE,GREEN? R»HH 
RKHEHHHHHKH"; 

PRINT" HHWWRHJ4HHHKRHHHR» {RED?-{GREY 3,5 
SPACE,RED?^{GREY 3,SPACE?"; 

PRINT”<BLACK?T<GREY 3,24SPACE?”; 

PRINT" C7SPACE,RED? = {GREY 3,5SPACE,RED? 

J *«♦ »-»* »«»*«- " ; 

PRINT" »»»««»■«»■»»»»««»«» »««mH {BREY 3,2 
SPACE?"; 

PRINT"{25SPACE ? » ; 

PRINT"(17SPACE■BLUE ? q«»»««*» "; 

PRINT" »»*_« (GREY 3,2 
SPACE?"; 

PRINT"{7SPACE,BLUE?^CURSOR TASTEN^REC" 

PRINT"HTS/LINKS{GREY 3,3SPACE,BLUE?={G 
REY 3,4SPACE,BLUE,3SPACE,GREY 3,2SPACE 
.BLUE?;* "; 

PRINT"JOYSTICK{3SPACE ?;;{GREY 3,13SPACE 
PRINT"{2SPACE,BLUE>-{BREY 3,9SPACE,BLU 


PRINT"{2SPACE,BLUE?cSPACE TASTE{BREY 3 
,2SPACE,BLUE J^SETZEN/L"; 


<229> 
< 100? 
<070> 

< 125> 

< 004 > 
<07B> 
<146> 
<052> 

<119? 

<230? 

< 112 ? 

< 131 > 


<170> 
<114? 

< 157> 
<214> 

<207? 

<249> 

<157> 

<234> 
<195> 
<108? 

< 1 B6> 

<054? 

<I42>OTi . 

<242> 

<040> 
<083? 

<211 > 

<151> 
<054> 

< 212 > 

< 105> 

<243> 

<196> 

< 147 > 

<226> 

<038> 
<052> 

<088> 

<003> 
<236? 

<031 > 
<043> 
<089> 

<004? 

<247? 


650 PRINT“OESCHEN = {GREY 3,6SPACE,BLUE,SPAC 

E,GREY 3,2SPACE,BLUE?;* FEUER“; <105? 

660 PRINT"(SPACE,GREY 3,5SPACE,BLUE?-{GREY 

3,15SPACE,BLUE?;;{GREY 3,2SPACE>"; <251? 

670 PRINT"{SPACE,BLUE,4SPACE,BREY 3.2SPACE 

r BLUE? ««■«»».»« P»«■>-''; <179? 

680 PRINT" ».»■«■»■*jm.*A«-*JLK. {4SPACE.BLUE. 8SPACE 

,HOME?"; <23B> 

690 RETURN <240? 

700 PRINT"(CLR,BREY 3,RV0FF,25SPACE>"; <211> 

710 PRINT" (17BPACF , RED? U** «»«** '' ; <180? 

720 PRINT" *-*-*.».».*.*.*.*.».I. {GREY 3,SPACE,WHITE,2 
SPACE,GREY 3,SPACE, WHITE?.UJ»»{GRE 
Y 3,SPACE?”; <187? 

730 PRINT” {7SPACE,RED?^{BREY 2} ü*«*«»«■««■»■»■ 

aaü"! <249? 

740 PRINT”{RED? = {WHITE,2SPACE,GREY 3.2SPAC 
E,WHITE ?-(BLUE,SPACE >SP1EL{GREY 3,SPAC 
E, WH I TE ?.=.CGRE Y 3,5SPACE .WHITE, SPACE , GR 
EY 3,2SPACE,RED? — {GREY 2? = <BLUE?D“; <142? 

750 PRINT“RUM MACHINE 64{GREY 2? = {RED?-{WH 
ITE,2SPACE,GREY 3,2SPACE.WHITE?—{GREY 
3.4SPACE?"; <004? 

760 PRINT"{3SPACE,WHITE?={GREY 3,8SPACE,RE 

D?—{GREY 2> 3*<-»***,**».*.«. "; <248> 

770 PRINT " «■«»■» {RED?.-.{GREY 3,SPACE,WHITE,2 
SPACE,GREY 3,SPACE,WHITE>-{GREY 3,SPAC 
E,BLUE ?MODUS{GREY 3,SPACE,WHITE >^{GREY 
3,6SPACE?"; <132? 

780 PR T NT “ f 2SPACF , RFD ? J « * * « { 

WHITE,2SPACE,GREY 3.2SPACE?“; <081? 

790 PRINT" {WHITE? 3JUWMWtf. (GREY 3,16SPACE? 

"- <205> 

800 PRINT"{24SPACE,BLUE,SPACE ?“; <063? 

810 PRINT"{7SPACE,GREY 3,18SPACE?"; <114> 

820 PRINT" (22SPACE,ORANGE?üü"; <171? 

B30 PRINT" ***>«*«**«****»>.**_*>.*_» ’' ; <211? 

840 PRINT " *.*.*-*.*.*.*-1 (BLUE,25PACE T GREY 3,2SPA 
CE,ORANGE ?n(GREY 3,10SPACE,BLUE ?1(GREY 
3,SPACE?"; <191? 

850 PRINT"{8SPACE,BLUE?2{GREY 3,9SPACE,BLU 
E?3{GREY 3,3SPACE,ORANGE?-(GREY 3.2SPA 
CE?“; <164> 

B60 PRINT"{2SPACE,ORANGE?—(GREY 3,SPACE,BL 

UE ?123456789012345678901"; <101? 

B70 PRINT"23456789012{SPACE,ORANGE? = {BLUE, 

2SPACE,GREY 3,2SPACE,ORANGE?-{GREY 3,7 
SPACE?"; <223? 

880 PRINT"(25SPACE?"; <118? 

B90 PRINT”(2SPACE,0RÄNGE? = {GREY 3.4SPACE.0 

RANGE?.—.(GREEN, SP ACE 7 MKMKXMKMHKMKRKKH " ; <222> 
900 PRINT " HH.HKHMHHRHHWHHHH (GREY 3,SPACE,OR 
ANGE?c;{GREY 3 , SPACE , GREEN , SPACE, GREY 3 
, 2SPACE , ORANGE?z;{GREY 3,2SPACE? " ; <054> 

910 PRINT”{2SPACE,ORANGE? = (GREY 3,3SPACE,0 
RANGE? z .(GREY 3,3SPACE,ORANGE?-.(GREY 3, 

3SPACE,ORANGE >-{GREY 3,3SPACE,ORANGE >- 
{GREY 3,3SPACE,ORANGE? = {GREY 3,2SPACE? 

"; <228> 

920 PRINT"{SPACE,ORANGE?^{BREY 3,3SPACE,0R 
ANGE>—CGREY 3,SPACE,ORANGE? = <BREY 3,4S 
PACE,ORANGE ?;; {BL ACK,12SPACE?"; <214? 

930 PRINT"{22SPACE,0RANGE? = {GREY 3,2SPACE? 

"5 <036> 

940 PRINT" {2SPACE,ORANGE>5JUL£S.riÄSrSltir3!J5i 

TiäSFi"; <186? 

950 PRINT"{GREY 3,SPACE,ORANG 

E,SPACE,GREY 3,10SPACE?"; <141> 

960 PRINT"{25SPACE ?"; <198? 

770 PRINT" (9SPACE , BLACK? U.*.*.*.«.*.».*.«.«.«.».*.*.! <GR 

EY 3,SPACE?"; <245? 

980 PRI NT " (SPACE, RED I iBLUE, 7SP 

ACE,GREY 3,4SPACE,BLACK ?—"; <066> 

990 PRINT"{BLUE?« ***** «{BLACK?-{GREY 

3,2SPACE, RED ?^{BLUE ?F 1 = END"; <228? 

1000 PRINT"E{SPACE,RED? = {GREY 3,5SPACE,BLU 
E,SPACE,BLACK,SPACE,GREY 3,4SPACE,BLA 
CK? = {BLUE?CURSOR TAB“; <064? 

1010 PRINT"TEN(BLACK?-{GREY 3,2SPACE,RED?B 

»mnnnI iiGREY 3, 7SPACE? " ; <139? 

REY 3,2SPACE,RED? = {BLUE?F3 "; <181? 

1030 PRINT"={GREY 3,SPACE,BLUE?MENUE{RED? = 

CBLUE,7SPACE,GREY 3,4SPACE,BLACK ?^{BL 
UE?SCHNE"; <019? 

1040 FRINT"LLER /{GREY 3,2SPACE,BLACK?3(BR 
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C 64 


Anwendung 


SPACE)"; 

1050 PRINT"{3SPACE,BLUE,2SPACE,GREY 3.4SPA 
CE,BLACK}-<BLUE)LANGSAMER{BREY 3.4SPA 
CE,BLACK} = {GREY 3,SPACE}"; 

1060 PRINT"<14SPACE,BLUE,6SPACE,GREY 3,4SP 
ACE,BLACK}£"; 

1070 PRINT" ■•*.*-*-*.*.*.*-*-«.*.»-»-»-K. TGREY 3,11 SPACE}" 
I 

1080 PRINT"<25SPACE}"; 

1090 RETURN 

1100 PRINT" {BLUE,CLR) U««.«-»«-»*«.«.«««» •» <« ««».« 

; 

1110 PRINT“ ■»■»-«■I. {RED 1 {BLUE,SPACE> 

= {RED}1= SNARE 

1120 PRINT"DRUM{BLUE}—{RED}5“<2SPACE}L0W-T 
OM{GREY 3,2SPACE,BLUE}-{RVSON}F1{RVOF 
F.SPACEJMEN"; 

1130 PRINT"UE{SPACE,RED)-{BLUE,SPACE}—(RED 
}2={3SPACE >AKZENT{GREY 3,2SPACE,BLUE) 
^{RED}6= HI"; 

1140 PRINT"HAT <ZU){BLUE} = {9SPACE,REDJ = {BL 
UE,SPACE}^{RED}3= B"; 

1150 PRINT"ASS{2SPACE}DRUM{BLUE} = {RED}7= H 
IHAT (OF)<BLUE}={RVSON}F"; 

1160 PRINT"3{GREY 3,RVOFF,SPACE,BLUE}SEQ.{ 
2SPACE, RED } = CBLUE, SPACE {RED }4= {2SPA 
CE}HI-TOM{GREY 3,3SPACE,BLUE} = "; 

1170 PRINT"{RED>B={2SPACE>BECKEN{GREY 3,3S 
PACE,BLUE}={GREY 3,6SPACE,RED,3SPACE} 
= <BLUE,SPACE}"; 

1180 PRINT"; 


1200 PRINT"{BLACK} 1 {ORANGE}{ 
BLACK}2 {ORANGE} »-*-»-*-«-»-«-*. " ; 

1210 PRI NT" {BLACK>3 {ORANGE>.»-1.{GREY 3,2SPAC 
E,ORANGE} = {BREY 3,5SPACE,BLACK}123456 
78901234"; 

1220 PRINT"567890123456709012{GREY 3,5PACE 
,BLACK,SPACE,ORANGE > = {GREY 3,4SPACE}" 
i 

1230 PRINT" {4SPACE,ORANGE};l<GREY 3,3SPACE, 
0RANGE>-{3SPACE} = {3SPACE}^{3SPACE> = <3 
SPACE};;"; 

1240 PRINT" {3SPACE> = {3SPACE> = {I3REY 3,2SPAC 
E,0RANGE} = {BLUE}(1){GREY 3,2SPACE,GRE 
EN1HKHHHHKKM"; 

2SPACE}“; 

1260 PRINT"{ORANGE} = <GREY 3,BSPACE,ORANGE} 
-{GREY 3,3SPACE,ORANGE) = {3SPACE}-{3SP 
ACE}ü{3SFACE}"; 

1270 PRINT"^{3SPACE}^{3SPACE} = <3SPACE} = {2S 
PACE}—{BLUE}(2){GREY 3,2SPACE,GREEN}M 
HHH"; 

1280 PRINT“; 

1290 PRINT"HHHIGREY 3,2SPACE,ORANGE}—{GREY 
3,8SPACE,ORANGE)—{GREY 3,3SPACE,ORAN 
GE}—{3SPACE}^{2SPACE}"; 

1300 PRINT" = {3SPACE}={3SPACE} = {3SPACE) = {3 
SPACE)—{GREY 3,2SPACE,ORANGE}^{BLUE}( 
3){GREY 3,SPACE}"; 

1310 PRINT" {SPACE,GREENIHHÜHilHHHHJiHHHHliHHM 
MBHHHH"; 

1320 PRINT" KKKKKKKM 1GREY 3,2SPACE,ORANGE}- 
(GREY 3,8SPACE,ORANGE} = {GREY 3,3SPACE 
,ORANGE}^ 

1330 PRINT"{2SPACE} = {3SPACE} = {3SPACE} = {3SP 
ACE} = {3SPACE}-{3SPACE}^{GREY 3,2SPACE 
}"; 

1340 PRINT“ {ORANGE};;{BLUE} (4) {GREY 3,2SPAC 
E , GREEN } lOWlUlkKRHXHHHHHKHHH " ; 

1350 PRINT- KKKKKKKKHKHKH LGREY 3,2SPACE,0RA 
NGE}.—{GREY 3,8SPACE , ORANGE}-" ; 

1360 PRINT"{GREY 3,3SPACE,ORANGE}-{3SPACE} 
-{3SPACE> = {3SPACE} = <3SPACE} 3 {3SPACE}- 

1370 PRINT"{2SPACE}={GREY 3,2SPACE,ORANGE} 
-{BLUE}(5){GREY 3■2SPACE■GREENJ HHHHHH 

1380 PRINT° MHHMMHMMMHMMMHHHHM {GREV 3,2SPAC 
E,ORANGE}-{GREY 3,4SPACE}"; 

1390 PRINT"{4SPACE,ORANGE} = {GREY 3,3SPACE, 
OR ANGE } ;; {3SPACE } — {3SPACE } - {3SP ACE } = {3 
SPACE}-“; 


< 193 > 

< 097 > 

< 040 > 

< 232 > 

< 064 > 

< 132 > 

< 008 > 

< 253 > 

< 107 > 

< 066 > 

< 206 > 

< 142 > 

< 202 > 

< 066 > 

< 150 > 

<10B> 

< 234 > 

< 023 > 

<0B5> . 

< 178 > 

<22&> 

< 246 > 

< 169 > 


< 222 > 

<254> 


<037> 

<1B7> 

<12B> 

< 117> 

< 122 > 
<251 > 
<198> 

<165> 

<135> 

<107> 

<084> 


1400 PRINT"<3SPACE} = <3SPACE}={2SPACE} = <BLU 
E } ( 6 ) {GREY 3,2SPACE , GREEN } MMHMMMÜMH” ; 
1410 PRINT''KH>1KHHHHKKHHHHHHHHHKHHH{GREY 3, 
2SPACE}“ ; 

1420 PRINT"<ORANGE}^{GREY 3,BSPACE,ORANGE} 
= {GREY 3,3SPACE,ORANGE}-{3SPACE}-C3SP 
ACE}^{3SPACE}"; 

1430 PRINT"—<3SPACE}—{3SPACE}-{35PACE}^{GR 
EY 3,2SPACE,0RANGE}^{BLUE}<7>{GREY 3, 
2SPACE,GREEN} HHHH "; 

1440 PRINT"* i 
1450 PRINT"HÜB{GREY 3,2SPACE,ORANGE}-{GREY 
3,8SPACE,ORANGE}3{GREY 3,3SPACE,ORAN 
GE> = <3SPACE} = <2SPACE}"; 

1460 PRINT“ ^{3SPACE}-<3SPACE} = {3SPACE} = <3 
SPACE}n<2SPACE}—{BLUE}(8){GREY 3,SPAC 
EV; 

1470 PRINT" (SPACE,GREEN 
HEttüHH"; 

1480 PRINT"HHÜHHMHH{GREY 3,2SPACE,ORANGE}£ 

1490 p'R~INT' , ''^*^}UU{T , -*-*-*.F , .*JL*i} y }U{*.F HL»-*-4 {BLUE, HO 
ME > "; 

1500 RETURN 

1510 PRINT"{CLR,BLACK,RVOFF,25SPACE)“; 

1520 PRINT"{19SPACE,BROWN.SPACE,BLACK,55PA 
CE}"; 

1530 PRINT" {SPACE, BROWN} U«_**********»**I {B 
LACK,BSPACE}"; 

1540 PRINT"{10SPACE,BROWN,SPACE,BLACK,5SPA 
CE,BROWN} = {SPACE,BLACK >TT{GREY 3,SPAC 
E.BLACK)^? B"; 

1550 PRINT"{GREY 3,SPACE,BLACK1TTKGREY 3,2 
SPACE,BLACKTFTBROWN} = {GREY 3,17SPACE, 
BLACK,SPACE}“; 

1560 PRINT"{GREY 3,SPACE,BROWN,SPACE,BLACK 
,2SPACE,GREY 3,SPACE,BLACK,SPACE,BROW 
N}^{GREY 3,SPACE,BLACK}Tf{GREY 3,SPACE 
, BLACK )U {RVSON1TTIRVOFF }TV<RVSON } 1T{GRE 

Y 3, RVOFF .SPACE, BLACK >k'{RVSON}k'{RVOFF 
}S{RVSON>SCRVOFF}}f{BROWN}-{GREY 3,3SP 

nur !3 «•-£}"; 

1570 PRINT"{6SPACE,WHITE,4SPACE,GREY 3,4SP 
ACE,BLACK,2SPACE,GREY 3,SPACE,BROWN,S 
PACE,GREY 3,SPACE,BLACK,2SPACE,BROWN} 
= {GREY 3, SPACE , BLACK } IT {GREY 3,SPACE}" 
! 

1580 PRINT" {BLACK , RVSON } ITf {RVOFF , SPACE ITT {R 
VSON} T{GREY 3,RVOFF,SPACE,BLACK >T{RVS 
ON}‘jT {GREY 3 , RVOFF, 2SPACE , BL ACK }T {BROW 
N} = <GREY 3,13SPACE}"; 

1590 PRINT"{3SPACE,BLACK,2SPACE,GREY 3,3SP 
ACE , BROWN, SPACE, BLACK, SPACE, GREY 3, SP 
ACE,BROWN} = {GREY 3,SPACE .BLACK ITfiJ <GRE 

Y 3,SPACE,BLACKTIf V^IRVSONITIRVOFFIVC 1 
{GREY 3.2SPACE}"; 

1600 PRINT"{BLACK}V{BROWN}^{GREY 3,16SPACE 
.BROWN,SPACE,GREY 3.6SPACE}"; 

1610 PRINT"{SPACE,BROWN} = {GREY 3,SPACE,RED 
}MACHINE - 64{GREY 3,SPACE,BROWN}^{GR 
EY 3,8SPACE}"; 

1620 PRINT"{4SPACE,RED,SPACE,GREY 3.4SPACE 
, BROWN, SPACE, GREY 3,6SPACE, BROWN > J-*-** 
***«*" ; 

1630 PR INT" «*».*.«K. {GREY 3,14SPACE , GREEN ,3S 
PACE,GREY 3,SPACE}"; 

1650 PRINT"ÄÜ{GREY 3,8SPACE,GREEN,2SPACE, 
BREY 3.25PACE , GREEN }-{WH ITE} .U_**>.♦*■»** 
”5 

1660 PR I NT " WJliBWMMWAtl {GREEN }- {GREY 
3,7SPACE}“; 

1670 PRINT"{SPACE,GREEN,2SPACE,GREY 3,2SPA 
CE,GREEN} = {WHITE} = {BLUE}F1{GREY 3,SPA 
CE,BLUE}- LADEN/SPEICHE"; 

1680 PRINT"RN{4SPACE.WHITE}-{GREEN)-{GREY 
3,BSPACE,GREEN,2SPACE,GREY 3,2SPACE,G 
REEN}—(WHITE}—{GREY 3,3SPACE}"; 

1690 PRINT"{21SPACE,WHITE}^(GREEN}^{GREY 3 
,SPACE,GREEN,SPACE}"; 

1700 PRINT"(GREY 3,6SPACE,GREEN,2SPACE,GRE 

Y 3,2SPACE,GREEN} = (WHITE} = (BLUE}F3{GR 
EY 3,SPACE,BLUE}- SEQUENZ "; 


< 165> 
<152> 


<075> 


<025> 

<158> 


<197> 

<097> 

<032> 

<163> 

<232> 

<032> 

<162> 

<001 > 

<057 > 

<1B0> 

< 1B2> 


<215) 

<034> 

<14B> 

< 202 ) 

<23B> 

< 100 > 

<19B> 

< 090 > 
<165> 

<064) 

<054> 

< 125> 

<081 > 
<213> 

<244> 
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Anwendung 


C 64 


1710 

PRINT"EINSTELLEN <GREY 3,SPACE,WHITE >3 



OTO 2210 

< 000 > 


(GREEN ) 3 (GREY 3,9SPACE,GREEN,2SPACE,G 


2215 

IF NS="*"THEN 160 

< 117> 


REY 3,SPACE>"; 

< 197> 

2220 

PRINT"(HOME,BLUE,11DOWN,SPACE)BITTE S 


1720 

PRINT"{GREEN>3<WHITE >-(GREY 3,SPACE,B 



PULEN SIE DAS BAND AN DIE " 

< 116> 


LUE,SPACE,GREY 3,21SPACE>”; 

<017> 

2230 

PRINT"(DOWN,SPACEIRICHTIGE STELLE UND 


1730 

PRINT"(SPACE,WHITE >3<GREEN>3<GREY 3 ,8 



DRUECKEN SIE(SPACE,RVSON)F1(RVOFF)" 

<235 > 


SPACE,GREEN,2SPACE,GREY 3,2SPACE,GREE 


2240 

GOSUB 230 

< 20 B> 


N)-(WHITE) = (BLUE)F5(GREY 3,SPACE,BLUE 


2250 

IF AS="*"THEN 160 

<048> 


>- APS"; 

<226> 

2260 

IF ASO" (FIVTHEN 2240 

<254> 

1740 

PRI NT"PIELEN(10SPACE,WHITE >-(GREEN >-( 


2270 

OPEN 1,1,0,NS 

<088> 


GREY 3,7SPACEV; 

< 165> 

2280 

INPUTH1,ZA 

<240> 

1750 

PRINT“(SPACE,GREEN,2SPACE,GREY 3,2SPA 


2290 

FOR H=1 TO ZA 

<050> 


CE,GREEN > = (WHITE) = (GREY 3,18SPACE>“; 

< 020 > 

2300 

FOR 1 = 1 TO 32s INPUT#1,T(I,H>:NEXT:NEX 


1760 

PRINT"(6SPACE,WHITE>3(GREEN>3(GREY 3, 



T 

<234> 


8 SPACE,GREEN,2SPACE,GREY 3,2SPACE,GRE 


2310 

CLOSE 1:GOTO 160 

< 142> 


EN >3(WHITE ) 3(BLUE >F7(GREY 3,SPACE >”; 

< 129> 

2320 

END 

<036> 

1770 

PRINT"(BLUE) — (GREY 3,SPACE,BLUETSCHAU 


2330 

GOSUB 260 

<092> 


TAFEL C5SPACE,GREY 3,4SPACE,WHITE > = (GR 


2340 

PRINT"(CLR,DOWN,BLUE,2SPACE)WELCHER T 



EEN>3(GREY 3,2SPACE>"; 

< 1 89 > 


EIL DES SCHLAGZEUGS SOLL" 

< 133> 

1780 

PRINT“(4SPACE,BLUE,SPACE,GREY 3,SPACE 


2350 

PRINT"(2SPACEIEINGESTELLT WERDEN ?" 

<084> 


. GREEN . 4SPACE >-(WH I TE ) J_**Jfc**********" 


2360 

PRINT"(2D0WN,RED,3SPACE)F1 - SNARE DR 



5 

<145> 


UM" 

< 123> 

1790 

PRI NT'• (GREEN(GREY 3, 8 SP 


2370 

PRINT"(3SPACE1F2 - AKZENT(E)" 

<055> 


ACE, GREEN, 2SPACE, GREY 3,2SPACE > " ; 

< 186> 

2380 

PRINT“(3SPACEIF3 - BASS-DRUM" 

<083> 

1800 

PRINT“(GREEN > J*********************** 


2390 

PRINT"(3SPACE)F4 - HI—HAT (ZU)" 

<253> 


i"! 

<230> 

2400 

PRINT”(3SPACEIF5 - HI-HAT (OFFEN)" 

< 22 B> 

1810 

PRINT“Ä±j(.{ 6 REY 3,22SPACE>“; 

<018> 

2410 

PRINT"(3SPACE)F6 - BECKEN" 

<211 > 

1820 

PRINT"(25SPACEV; 

<042> 

2420 

PRINT"(3SPACE)F7 - KLEINE TROMMEL" 

<061 > 

1830 

PRINT"(25SPACEJ"; 

<052> 

2430 

PRINT"(3SPACEIF8 - GROSSE TROMMEL" 

< 20 B> 

1840 

PRINT"(25SPACEJ"; 

<062> 

2440 

GOSUB 230 

<154> 

1850 

PRINT"(25SPACEV; 

<072> 

2450 

IF AS=" (FIVTHEN 1=0 

<236> 

1860 

PRINT"{16SPACE,YELLOW,5SPACE,GREY 3,3 


2460 

IF AS="(F2)"THEN 1=1 

< 00 B> 


SPACE,BLACK)*"; 

<246> 

2470 

IF AS=" (F3VTHEN 1=2 

< 161 > 

1870 

PRINT”(GREY 3,SPACE,BLACK>BY DRUM-FRE 


2480 

IF AS=" (F4VTHEN 1=5 

<221 > 


AK(GREY 3,2SPACE,BLACK)*(GREY 3,4SPAC 


2490 

IF AS="(F5)"THEN 1=6 

< 117> 


E,BLACK,SPACE,GREY 3,3SPACE)"; 

< 184> 

2500 

IF AS=" (F 6 VTHEN 1=7 

< 145> 

1880 

PRINT"(14SPACE,RED)*(GREY 3,SPACE,RED 


2510 

IF AS="(F7VTHEN 1=3 

<218> 


>THOMAS LA"; 

<043> 

2520 

IF AS=" (FS VTHEN 1=4 

< 246 > 

1890 

PRINT"NGENS(BLACK,SPACE,RED)*(BLACK,S 


2530 

IF AS="*"THEN 160 

<074 > 


PACE,RED,2SPACE,BLACK,SPACE,GREY 3,14 


2540 

PRINT"(2D0WN,BLUE,SPACE)EINSTELLEN DE 



SPACE)"; 

< 117> 


R(DES) - "DRS(I)” 

<233> 

1900 

RETURN <lB 0 )On 

JTW*w 

PRINT"(DOWN,SPACE)IN ORDNUNG (J/N) ?" 

<0530 

1910 

PRINT"(CLR,BLUE,2D0WN,BSPACE)CASSETTE 


2560 

GOSUB 230 

< 020 > 


NOPERATIONEN" 

< 021 > 

2570 

IF A*=" VTHEN 2590 

< 022 > 

1920 

PRINT" (BSPACE)*.*.».*J(«>.**.».».»JtJfc.».*.».».*.«." 

<215> 

2580 

GOTO 2340 

< 164> 

1930 

PRINT"(2D0WN,RED,SPACE)WOLLEN SIE EIN 


2590 

GOSUB 320:FOR H=1 TO 32:P0KE 32767+H, 



E DATEI LADEN ODER" 

< 096> 


T(H,Z):NEXT 

<179> 

1940 

PRINT"(DOWN,SPACE)ABSPEICHERN ?” 

<014> 

2600 

SYS 37457,2tI 

<196> 

1950 

PRINT"(2D0WN,BLUE,4SPACE,RVSON)F1(RVO 


2610 

REM EXT 

<189> 


FF,SPACE)= LADEN" 

<050> 

2620 

PO=l 

<092> 

1960 

PRINT"(2D0WN,4SPACE,RVSON)F3(RVOFF,SP 


2630 

GET A*:IF A*="(RIGHT)"THEN 2730 

<190> 


ACE)= SPEICHERN" 

<060> 

2640 

IF A*=" (DOWNVTHEN 2760 

< 159> 

1970 

GOSUB 230 

< 192> 

2650 

IF AS=” "THEN 2790 

< 138> 

1980 

1F A*="*"THEN 160 

<032> 

2660 

A=PEEK(56320):IF A=119 THEN 2730 

< 169> 

1990 

IF A*=" {FIVTHEN 2180 

<057> 

2670 

IF A=127 THEN XX=0 

< 130> 

2000 

IF A*="(F3)“THEN 2020 

<092> 

26S0 

IF A=123 THEN 2760 

<213> 

2010 

GOTO 1970 

<02B> 

2690 

IF A=111 AND NOT XX=1 THEN 2790 

<226> 

2020 

PRINT"(CLR,DOWN,BLUE,11SPACE)DATEIEN 


2700 

IF AS=" (F1VTHEN 2340 

<213> 


SPEICHERN" 

< 118> 

2710 

IF A*="(F3VTHEN 160 

<046> 

2030 

PRINT” (11SPACE).*.*.*.*.*.*.*.*.*.*.*.**" 

<041 > 

2720 

GOTO 2630 

<064> 

2040 

PRINT"(DOWN,SPACE>BITTE GEBEN SIE EIN 


2730 

S=P0:P0=P0+1:IF PD>32 THEN PO=32:GOTO 



EN DATEINAMEN EIN(DOWN)" 

<255> 


2630 

<210> 

2050 

INPUT NS:IF LENINS)>10 THEN PRINT"(DO 


2740 

POKE P1+S,32:P0KE Pl+PO,30:POKE Pl+PO 



WN)ZU LANG!";PRINT"(3UP)";:GOTO 2050 

<028> 


+FA, 0 

<242> 

2060 

IF NS="*"THEN 160 

<218> 

2750 

GOTO 2630 

<094 > 

2070 

PRINT”(HOME,16DOWN,RED,SPACE>SPULEN S 


2760 

S=PQ:PO=PO—1:IF P0<1 THEN P0=1:G0T0 2 



IE DAS BAND AN DIE RICHTIGE" 

<029> 


630 

<042> 

2080 

PRINT"(DOWN,SPACE)STELLE UND DRUECKEN 


2770 

POKE Pl+S,32:POKE Pl+PO,30:POKE Pl+PO 



SIE DANN(SPACE,BLUE)F1(RVOFF,DOWN)" 

< 160 > 


+FA, 0 

<016> 

2090 

GOSUB 230 

<058> 

2780 

GOTO 2630 

<124> 

2100 

IF AS="*"THEN 160 

< 154> 

2790 

XX=1:S=PEEK(P2+P0):IF S=81 THEN 2830 

<214> 

2110 

IF A$<>"(Fl>"THEN 2090 

<233> 

2800 

POKE P2+P0.81:POKE P2+P0+FA.2 

< 155> 

2120 

OPEN 1,1,1,NS 

<066> 

2810 

T(PO,Z)=T(PO,Z)+2TI 

<091 > 

2130 

PRINTDl,ZA 

<170> 

2820 

GOTO 2630 

< 166> 

2140 

FOR H=1 TO ZA 

<156> 

2830 

POKE P2+PO,87:POKE P2+P0+FA.5 

<14B> 

2150 

FOR 1=1 TO 32:PRINTttl,T(I,H):NEXT:NEX 


2B40 

T(PO,Z)=T(PO,Z)—211 

< 125> 


T 

<164> 

2850 

GOTO 2630 

< 196> 

2160 

CLOSE 1 

< 139> 

2860 

PRINT"(CLR,2D0WN.RED >“ 

< 136> 

2170 

GOTO 160 

<162> 

2870 

PRINT" SOLL EINE EINZELNE SEQUENZ ODE 


2180 

PRINT"(CLR,BLUE,DOWN,10SPACE)DATEIEN 



R" 

<001 > 


LADEN" 

< 189> 

2880 

PRINT"(2D0WN,SPACE)MEHRERE HINTEREINA 


2190 

PR I NT “ (10 SP ACE ) *.«■«■*.»«.«*.*■»■*■*■«■*■**.»•■ 

<097> 


NDERABGESPIELT" 

< 140 > 

2200 

PRINT"(DOWN,RED,SPACE>BITTE BEBEN SIE 


2890 

PRINT“(2D0WN,SPACE)WERDEN ?(2SPACE,BL 



DEN DATEINAMEN EIN •CDOWN)" 

< 072 > 


UE)(E/M)" 

<226> 

2210 

INPUT NS:IF LENINS)>10 THEN PRINT"(DO 


2900 

GOSUB 230 

< 106> 


WN,BLUE)ZU LANG(RED)“:PRINT"(3UP)”;:G 


2910 

IF AS=“E"THEN 2950 

<201 > 


G4er-onllne.de 

30 ^^ne. 













C 64 


Anwendung 


2920 

IF AS="M“THEN 31B0 

<203> 

3540 

DATA 212,169,37,141,18,212,96,169,32, 


2930 

IF A*="*"THEN 160 

<222> 


141,8,212,169,40,141,12,212,169,21 

<059> 

2940 

GOTO 2900 

<23B> 

3550 

DATA 141,11,212,96,169,13,141,8,212,1 


2950 

PR I NT “ CCLR , 2D0WN , RED > “ 

<226> 


69,40,141,12,212,169,21,141,11,212 

<230> 

2960 

PRINT" WELCHE SEQUENZ SÜLL GESPIELT W 


3560 

DATA 96,169,255,141,15,212,169,57,141 



ERDEN" 

<205> 


,19,212,169,133,141,1B,212,96,169 

<091 > 

2970 

PRINT"C2DQWN.BLUE)<1)C2SPACE)DIE GERA 


3570 

DATA 250,141,15,212,169,57,141,19,212 



DE EDITIERT WURDE" 

<095> 


,169,133,141,18,212,96,169,15,141 

<039> 

2980 

PRINT"C2D0WN)(2)C2SPACE)EINE ANDERE" 

<017> 

3580 

DATA 24,212,96,22,17,10,138,12,243,12 


2990 

GÜSUB 230 

<196> 


,243,0,208,169,0,160,24,153,0,212 

<005> 

3000 

IF A*=“1"THEN 3070 

<245> 

3590 

DATA 136,16,250,169,10,141,24,212,96, 


3010 

IF A*="2"THEN 3030 

<064> 


173,134,144,141,135,144,162,32,32 

<064> 

3020 

GOTO 2990 

<095> 

3600 

DATA 22B,255,201,17,208,3,238,134,144 


3030 

INPUT"C2DOWN,SPACE,BLUE)WELCHE ":X* 

<154> 


,201,29,208,3,206,134,144,201,133 

<081 > 

3040 

IF X*="*"THEN 160 

<004> 

3610 

DATA 208,1,96,202,20B ,231,206,135,144 


3050 

X=VAL(X*):IF X<1 OR X>ZA THEN PRINT"! 



,173,135,144,208,221,172,136,144 

< 161 > 


3UP>";:GOTO 3030 

<218> 

3620 

DATA 238,136,144,185,0,128,170,201,25 


3060 

Z=X 

< 141 > 


5,208,8,169,0,141,136,144,76,201 

<015> 

3070 

PRINT“CCLR,3DOWN,SPACE)EINEN MOMENT B 


3630 

DATA 144,201 ,0,20B, 8, 162,16,202,208,2 



ITTE '" 

< 112> 


53,76,62, 145,32,160,145,41', 2,201 

<190> 

3080 

FÜR H=1 TO 32:POKE 32767+H,T(H,Z):NEX 


3640 

DATA 2,208,3,32,128,144,138,41,1,201, 



T 

<063> 


1,208,3,32,16,144,138,41,4,201,4 

<212> 

3090 

POKE 32768+32,255 

<034> 

3650 

DATA 208,3,32,32,144,138,41,8,201,8,2 


3100 

GOSUB 700:POKE 36998,65:POKE 36999,65 

< 164> 


08,3,32,64,144,138,41,16,201,16,208 

< 196> 

3110 

POKE 37000,0:POKE 37001,0 

< 136> 

3660 

DATA 3,32,80,144,138,41,32,201,32,208 


3120 

SYS 37065 

<251 > 


,3,32,4B,144,138,41,64,201,64,208 

< 183> 

3130 

GOSUB 230 

<082> 

3670 

DATA 3,32,96,144,138,41,128,201,128,2 


3140 

IF A*="CF7)"THEN 3120 

<231 > 


08,3,32,112, 144,234,173,137,144,41 

<07B> 

3150 

IF A$="CF3>“THEN 160 

<234> 

3680 

DATA 31,168,169,87,153,228,5,169,5,15 


3160 

IF A*="CF5>"THEN 3110 

< 106> 


3,228,217,238,137,144,173,137,144 

<172> 

3170 

GOTO 3130 

< 190> 

3690 

DATA 41,31,168,169,81,153,228,5,169,2 


3180 

PRINT"CCLR,BLUE,DOWN,SPACE)WELCHE SEQ 



,153,22B,217,76,160,144,238,136,144 

< 11S> 


UENZEN SOLLEN HINTEREINANDER“ 

< IB6> 

3700 

DATA 96 

<202> 

3190 

PRINT"{DOWN,SPACE)GESPIELT WERDEN <NI 


3710 

FOR H=37376 TO 37491:READ A:POKE H,A: 



CHT MEHR ALS 8 1 )" 

<192> 


NEXT 

<017> 

3200 

A A= 1 : QQ—32767 

<071 > 

3720 

DATA 169,110,133,251,133,253,169,5,13 


3210 

PRINT"CDOWN>";AA;".TE SEQUENZ NR. 

<034> 


3,252,169,217,133,254,169,1,141,102 

<050> 

3220 

INPUT SE* 

<052> 

3730 

DATA 3,160,0,185,0,12B,45,102,3,205,1 


3230 

IF SE*=“*"THEN 160 

<017> 


02,3,208,8,169,Bl,145,251,169,2,145 

<162> 

3240 

IF SE*='"'THEN 3280 

<116> 

3740 

DATA 253,200,192,32,208,232,24,14,102 


3250 

SE(AA)=VAL(SE*):IF SE(AA)=0 THEN 3280 

<080> 


,3,176,29,165,251,24,105,80, 133,251 

<092> 

3260 

IF SEIAAKl OR SE(AA)>100 THEN PRINT" 


T 3750 

i ITA 165,252,105,0,133,252,165,253,24 



<2UF> ;:üGTO 3210 

<202) 


,105,80,133,253,165,254,105,0,133 

<227> 

3270 

AA=AA+1:IF AA<9 THEN 3210 

<073> 

3760 

DATA 254,76,19,146,96,32,241,183,142, 


3280 

PRINT"CCLR,RED,2DOWN,7SPACE)EINEN MOM 



112,3,160,0,185,0,128,45,112,3,205 

<050> 


ENT BITTE • ! ! " 

<056> 

3770 

DATA 112,3,208,10,169,81,153,229,5,16 


3290 

FOR H=1 TO AA—1 

< 176> 


9,2,153,229,217,200,192,32,208,230 

<084> 

3300 

FOR 1=1 TO 32:QQ=QQ+1:POKE QQ,T(I,SE( 


3780 

DATA 96 

<026> 


H)):NEXT:NEXT 

<222> 

3790 

FOR H=37217 TO 37258:READ A:POKE H,A: 


3310 

QQ=QQ+1:POKE QQ,255:GOTO 3100 

< 173> 


NEXT 

<032> 

3320 

GOTO 3320 

<0B4> 

3800 

DATA 172,143,144,169,32,153,52,6,173, 


3330 

PRINT"CCLR,BLUE,2D0WN,2SPACE)DARSTELL 



134,144,170,74,74,74,141,143,144 

<092> 


UNG FUER WELCHE STIMME ?" 

< 128 > 

3810 

DATA 138,41,7,168,185,131,145,172,143 


3340 

PRINT"C2D0WN,SPACE,RVSON >F1CRVOFF,SPA 



, 144,153,5'’, 6,76, 160,144,101,84,71 

<009> 


CE) — CSPACE,RED>DIE GERADE EDITIERTE" 

< 133> 

3820 

DATA 66,93,72,89,103 

<060> 

3350 

PRI NT " CBLUE , 2D0WN , SPACE, RVSON )F3 CRVOF 


3830 

FOR H=37280 TO 37296:READ A:POKE H,A: 



F,SPACE)= CSPACE,RED >EINE ANDERE" 

<234) 


NEXT 

<065> 

3360 

GOSUB 230 

< 140> 

3840 

DATA 169,0,160,24,153,0,212,136,16,25 


3370 

IF A*="CF1)"THEN X=Z:GOTO 3420 

<004> 


0,169,10,141,24,212,138,96 

<020> 

3375 

IF A*="*"THEN 160 

<159> 

3850 

FOR H=1 TO 08:FOR 1=1 TO 32 

<067> 

3380 

IF A*<>"CF3)"THEN 3360 

<193> 

3860 

READ T <I,H):NEXT:NEXT:ZA=0B:RETURN 

< 148> 

3390 

INPUT"C2D0WN,BLUE)WELCHE ";X*:X=VAL(X 


3870 

DATA 6,0,32,4,1,0,32,4,4,0,36,4,1,8,4 




<034> 


0,4,2,4,32,4,1,0,36,0,4,0,32,0,33 

<091 > 

3400 

IF X*="*"THEN 160 

<112> 

3BB0 

DATA 16,48,0,4,4,4,4,1,4,4,4,0,4,4,4, 


3410 

IF X<1 OR X>100 THEN PRINT"C3UP>"5:GO 



1,0,0,4,4,0,4,0,1,4,0,0,4,0,4,0,1 

<237> 


TO 3390 

<077> 

3890 

DATA 1,1,0,5,5,5,5,5,0,5,5,5,5,5,0,0, 


3420 

FOR H=1 TO 32:POKE 32767+H,T(H,X):NEX 



0,0,0,5,5,5,5,0,5,5,0,5,0,5,0,5,0 

< 105> 


T 

<148> 

3900 

DATA 5,5,4,0,32,4,1,0,32,4,4,0,32,4,1 


3430 

GOSUB 1100 

< 1 00 > 


,4,32,4,4,0,32,4,1,0,32,4,4,0,32 

<230> 

3440 

SYS 37376 

<094 > 

3910 

DATA 4,1,4,32,4,68,0,0,0,33,0,0,32,68 


3450 

GOSUB 230 

< 148> 


,0,0,0,33,0,0,32,68,0,0,0,33,0,0 

<064> 

3460 

IF A*="CF1)"THEN 160 

< 161 > 

3920 

DATA 32,68,0,0,0,33,0,0,32,35,0,0,0,1 


3470 

IF A*="CF3>"THEN 2330 

<078> 


,0,1,0,99,0,0,0,12,0,32,0,14,0,0 

<122) 

3475 

GOTO 3450 

<097> 

3930 

DATA 0,1,0,0,0,80,0,0,0,20,0,0,0,44,0 


3480 

DATA* SNARE DRUM *,* AKZENTE *,* B 



,32,0,72,0,36,0,40,0,36,0,72,0,36 

<090) 


ASS DRUM *,* KL. TROMMEL* 

<155> 

3940 

DATA 0,44,0,32,0,72,0,36,0,40,0,36,0, 


3490 

DATA* GR. TROMMEL*,* HIHAT (ZU) *,* H 



72,0,36,0,1,0,1,1,65,0,8,0,1,0,1 

<005> 


IHAT (OF.)*,* BECKEN * 

<222> 

3950 

DATA 0,65,0,16,0,1,0,1,1,65,0,8,0,1,0 


3500 

FOR H=36S64 TO 37223:READ R:POKE H,A: 



,1,0,80,0,16,0 

<001 > 


NEXT 

<122> 




3510 

DATA 76,160,144,160,0,152,153,0,212,2 


6 



00,192,25,208,248,96,234,169,33,141 

<214> 




3520 

DATA 1,212,169,8,141,5,212,169,133,14 






1,4,212,96,169,9,141,8,212,169,40 

<164> 




3530 

DATA 141,12,212,169,21,141,11,212,96, 






169,240,141,15,212,169,17,141,19 

<221 > 

»Drum-Machine« (Schluß) 





B4CI-0I 

6 31" 















Anwendung 


C 64 


Kassetten- 

Layout 

Überlassen Sie die komplette Musik- 
Kassetten-Beschriftung von der Hülle 
bis zum Kassetten-Aufkleber dem 
Computer. Alle Daten kommen fertig 
zum Ausschneiden aus dem Drucker. 

»Kassetten-Layout« besteht aus zehn Programmpunkten, 
die im folgenden erläutert werden. 

1. Arbeitshinweise 

Innerhalb dieses Programmpunktes findet der Anwender 
eine ausführliche Beschreibung der Arbeitsmöglichkeiten 
dieses Programmes. 

2. Betriebsvariablen setzen 

Wie Sie wissen, gibt es bei Leerkassetten unterschiedliche 
Bandsorten, nicht jede Kassette hat eine Sicherheitsband¬ 
mechanik, manche Leute nehmen ihre Kassetten nur in Mono 
und andere nur in Stereo auf. 

Unterschiede gibt es auch in der Rauschunterdrückung. 
Manche schwören auf DOLBY, andere wiederum auf HIGH- 
COM. Hier kann sich jeder Benutzer seine eigenen Angaben 
nach Bedarf auswählen. G4CR onu 

3. Stai.Jardvariablen 

Hier findet der Benutzer bereits vorgegebene Aufnahmeda¬ 
ten vor. Diese Festwerte können allerdings vom jeweiligen 
Benutzer in der Zeile 5010 für eigene Bedürfnisse abgeän¬ 
dert werden. 

4. Dateneingabe 

Zuerst einmal wird der Kassettentitel für die Kassettenhülle 
abgefragt. Dann werden die ausgewählten Aufnahmedaten 
einschließlich des Kassettentitels angezeigt. 
Tastenfunktionen: 
w steht für Weiterblättern 
z steht für Zurückblättern 
m steht für Rückkehr ins Menü 
Ist alles richtig, drückt man die Taste »j«. Danach befindet 
man sich im Eingabemodus für die Hüllenseite 1. Für Seite 1 
sind 14 Zeilen verfügbar. Ein Zähler zeigt an, auf welche Zeile 
sich die nächste Eingabe bezieht. Leereingaben (Return) 
sind zulässig. Hat man alle 14 Zeilen hinter sich, erscheint die 
Kontrollseite. 

Hier hat man nun die Möglichkeit, Tippfehler unter Angabe 
der änderungsbedürftigen Zeilen zu korrigieren. Nummern- 
lose Zeilenangaben oder höhere Zeilenangabe als vorgege¬ 
ben, werden mit einer Fehlermeldung quittiert. Sind keine 
Korrekturen notwendig, drückt man die Taste »j« und es 
erscheint die Eingabeseite 2. 

Es wird analog zur Eingabenseite 1 verfahren. Einziger 
Unterschied: Nur 13 Zeilen sind verfügbar. Hat man auch hier 
alle Tipphürden überwunden, »landet« man in der Eingabe der 
Kassettenseite 1. Auch hier erscheint nach vollständiger Ein¬ 
gabe die entsprechende Kontrollseite zwecks eventueller 
Änderungen. Nun bleibt nur noch die Kassettenseite übrig. 
Hierbei entfällt allerdings die Eingabe der Titelzeile. Diese 
wird aus Kassettenseite 1 übernommen. Das Programm fragt 
nun, ob noch Aufnahmedaten (Herkunft von Kassette, LP, 


Band oder sonstige Tonträger) eingegeben werden sollen. 

Die nun folgende Funktion »Einspieldaten ausdrucken« ist 
natürlich nur interessant, wenn auch Einspieldaten eingege¬ 
ben wurden. 

5. Daten sichern 

Nachdem wir nun unsere Daten eingegeben haben, wollen 
wir sie auch sichern. Natürlich können wir die so erstellte 
Datei später wieder überschreiben, aber im Diskettenbetrieb 
fragt der Computer vorsichtshalber noch einmal nach, ob Sie 
es auch ernst meinen. Die eventuell unter dem gleichen 
Namen schon vorhandene Datei wird dann überschrieben. 
Falls Sie das aber nicht wollen, können Sie der zu speichern¬ 
den Datei einen Ersatznamen geben: 

Wählen Sie Menüpunkt 5. Dort kann man »D« für Diskette 
oder »T« für Turbotape wählen. 

Drücken Sie »D« und geben Sie den Dateinamen ein. Sie 
bekommen nach dem Speichern die Meldung: »Die Daten 
sind gesichert«, und das Programm springt ins Menü zurück. 

6. Daten laden 

Programmpunkt 6 arbeitet analog zu Programmpunkt 5. Nur 
werden hier bereits vorhandene Dateien geladen. 

7. Daten kontrollieren 

Innerhalb dieses Programmpunktes können Sie die einzel¬ 
nen Kontrollseiten auf etwaige Tippfehler untersuchen und 
notfalls korrigieren. Sie können durch Eingabe einer Zahl zwi¬ 
schen 1 und 7 gezielt eine bestimmte Kontrollseite aufrufen. 
Innerhalb der Kontrollseiten gelangen Sie mit »w« eine Seite 
weiter, mit »z« eine Seite zurück und mit »m« zurück ins Menü. 

8. Layout ausdrucken 

Die Druckerroutine wurde für einen MPS-802 geschrieben. 
D«^ Layout (siehe Bild) brauchen Sie nur noch auszuschnei¬ 
den und zu falten. Die beiden unteren Teile kleben Sie auf die 
Kassette 

9. Archivdaten eingeben/ausdrucken 

Jetzt müssen Sie die Aufnahmedaten eingeben und für wen 
die Kassette aufgenommen wurde. Wenn alles richtig ist, 
drücken Sie »j«. 

Sie werden dann aufgefordert, die Archivdaten für Seite 1 
einzugeben. Leereingaben (Return) sind zulässig. Die einge¬ 
gebenen Daten werden noch einmal in einer Kontrollseite 
angezeigt. 

Es folgt dann die Aufforderung, die Archivdaten für Seite 2 
einzugeben. 

0. Programmende 

Ihr Computer wird auf die normalen Schrift- und Farbwerte 
zurückgesetzt. Auf einen Reset (SYS 64738) wurde verzich¬ 
tet. Bei versehentlichem Drücken der Run/Stop-Taste kommt 
man mit einem »GOTO 10010« zurück ins Menü. 

Eingabehinweise: 

Zuerst müssen Sie die geänderte INPUT-Routine aus Listing 
1 eingeben. Dann folgt Listing 2. Beim Laden gehen Sie nach 
folgendem Schema vor: 


LOAD "INPUT",8,1 

SYS 49152 

NEW 

LOAD "LAYOUT",8 
RUN 


(Karl-Heinz Wöllecke/tr) 
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Anwendung 


Programmdokumentation 


Zeilennummer 

Programmpunkt 


1 - 

10 

Programmstart 


11 - 

30 

UP Leerfelder besetzen 


40 - 

58 

Floppy-Abfrage 


59 - 

452 

Dateneingabe für Layout 

-4- 

459 - 

486 

UP Datenkontrolle 

-7- 

499 - 

690 

Druckausgabe vorbereiten 


839 - 

892 

UP Druckausgabe Archivdaten 


939 - 

992 

UP Druckausgabe Layout 


1000 - 

1424 

Druckausgabe Layout 

-8- 

2499 - 

3188 

Arbeitshinweise 

•1- 

3999 - 

4490 

Elnspielvarlanten wählen 

-2- 

4999 - 

5100 

Gesetzte Einspielvarianten wählen 

-3- 

5999 - 

6169 

Daten sichern mit Diskette 

-5- 

6999 - 

7082 

Daten laden mit Diskette 

-6- 

7999 - 

8487 

Archivdaten eingeben 

-9- 

8898 - 

8996 

Druckausgabe Archivdaten 

-9- 

8999 - 

9000 

Programmende 

-0- 

9999 - 

10110 

Menue 



Cr SM 

Stereo DOLBY 

Jean-Michel Jarre Magnetic Fields 


Stereo DOLBY 

Jean-Michel Jarre Magnetic Fields 


***** Seite 1 ***** 
Magnetic Fields Part 1 18 


Programm s input 


c000 c 14 4 


C000 

. 

a9 

0b 

a0 

C0 

8d 

CD 

S 

03 

Bc 

ad 

| ***** Seite 2 ***** 

C008 


09 

03 

60 

20 

73 

00 

c9 

85 

1B 

C010 


*0 

06 

20 

79 

00 

4c 

e7 

a7 

Bc 

1 Magnetic Fields Part 2 3 

C018 

; 

20 

73 

00 

c9 

bl 

40 

06 

20 

26 

c0?0 

I 

bf 

ab 

4c 

«le 

a7 

a9 

00 

Bd 

81 

| Magnetic Fields Part 3 4 

C028 


6e 

cl 

20 

9b 

b7 

8e 

64 

cl 

23 

| Magnetic Fields Part 4 6 

C030 

C03B 

3 

20 

b0 

fd 

0C 

ae 

86 

20 

4d 

9e 

20 

Ö7 

4d 

e0 

ae 

28 

20 

7a 

3d 

1 Magnetic Fields Part 5 

C040 

3 

9e 

b7 

t?0 

19 

90 

03 

4c 

48 

48 

1 (The Last Rumba) 3 

C040 

3 

b2 

8i? 

7^ 

cl 

a4 

4d 

20 

0c 

68 


C050 

: 

e5 

20 

24 

ea 

a5 

d2 

85 

fe 

bi 

1 

C058 

i 

9B 

18 

65 

dl 

90 

02 

e6 

f e 

43 

1 

1-060 

C068 

: 

85 

65 

4d 

43 

a5 

90 

44 

02 

85 

e6 

4c 

fc 

98 

B5 

18 

4b 

b4 

90 64€H 

□t-iLina— 

C070 

3 

a5 

c6 

85 

cc 

Bd 

92 

02 

fo 

cb 

i 

C078 


4 7 

78 

a5 

cf 

40 

0c 

a5 

ce 

b2 

■ 

C000 

: 

ae 

87 

02 

a0 

00 

84 

cf 

20 

2a 

1 

C0R8 

: 

13 

ea 

20 

b4 

p5 

c9 

0d 

d0 

31 

i 

C090 

: 

03 

4c 

71 

cl 

c9 

14 

f0 

46 

db 

1 

C090 

3 

c9 

9d 

(0 

42 

c9 

ld 

40 

29 

50 

1 

C0a0 

3 

c9 

94 

40 

61 

c9 

91 

d0 

03 

8c 

i 

c0a0 


4c 

41 

cl 

c 1 

c9 

1B 

1 1 

d0 

rt0 

0T 

4c. 

7h 


c0b0 

: 

54 

ae 

G0 

15 

40 

de 


L0bB 

3 

0B 

c9 

db 

b0 

b3 

c9 

cl 

b0 

a4 

1 Part 1 

C0C0 

: 

0B 

C9 

60 

b0 

ab 

C9 

20 

90 

86 

1 

cBcB 

: 

a7 

c9 

22 

40 

a2 

ae 

6e 

cl 

e7 

1 

c0d0 

: 

ec 

64 

cl 

40 

9b 

ee 

6e 

cl 

71 

1 

c0dB 

3 

20 

16 

e7 

4c 

70 

c0 

ac 

6e 

23 


c0eM 

: 

cl 

40 

8d 

ce 

6e 

cl 

c9 

9d 

ae 


c0eD 

3 

*0 

0» 

bl 

4 b 

aa 

bi 

fd 

BB 

7c 

1 

c04 0 

3 

91 

f d 

8a 

9t 

fb 

c8 

c8 

40 

60 


c0tB 

: 

07 

CC 

6f 

cl 

90 

ec 

40 

ea 

B3 


C100 

: 

a9 

9d 

4c 

d8 

C0 

ac 

64 

cl 

59 


cl08 


ce 

64 

Cl 

88 

C0 

44 

40 

2b 

35 

1 J.-Mi. Jarre Magnetic Fields 

Ctl0 

3 

cc 

6e 

Cl 

90 

26 

bl 

4d 

c9 

11 

cllB 
cl 20 


20 

bl 

40 

4b 

ifl 

aa 


64 

4d 

cl 

c8 

40 

91 

1b 

4d 

85 

18 


8 

bl 

1 Part 2 * Part 3 * Part 4 * 

ci 28 

• 

Ba 

91 

f b 

88 

88 

C0 

f i 

40 

4b 

C.130 

- 

05 

cc 

6e 

L 1 

b0 

ea 

cS 

a9 

4B 

1 Part 3 (The Last Rumba) 

C 138 

3 

20 

91 

f d 

ee 

64 

cl 

4c 

70 

95 

1 

cl40 

: 

C0 

aa 

38 

ad 

6e 

cl 

e9 

2B 

06 

cl40 

: 

90 

07 

Bd 

6e 

cl 

Ba 

4c 

dB 

e 0 


c 150 

3 

c0 

4c 

70 

c0 

aa 

18 

ad 

6e 

69 


c 158 


cl 

69 

28 

b0 

07 

cd 

64 

cl 

0e 


C 160 

3 

40 

05 

90 

03 

4c 

70 

C0 

Bd 

be 

z 

cl6B 

: 

6e 

cl 

8a 

4c 

da 

C0 

ea 

ea 

48 


c 1 70 

3 

ea 

4c 

96 

Cl 

BH 

C0 

44 

d0 

8e 


C178 

: 

13 

20 

73 

00 

c9 

00 

fo 

07 

e7 


clB0 

: 

c? 

3a 

f0 

03 

4c 

79 

cl 

a0 

de 

1 J.-Mi. Jarre Magnetic Fields 
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Bild 1. Das fertige Layout (hier verkleinert) 
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Listing 1. Diese geänderte INPUT-Routine müssen 
Sie mit dem MSE (Seite 8) eingeben 
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1 

REM ** CASSETTEN-LAYOUT VON ** 

<082> 

89 

IF X*="J“THEN 100 

<071 > 

2 

REM ** KARL—HEINZ WOELLECKE ** 

< 190> 

90 

IF X*="N"OR X*="M"THEN RETURN 

<045> 

3 

REM ** PETERSTR.15 ** 

<223> 

91 

IF X*="W"THEN 150 

<247> 

4 

REM ** 3380 GOSLAR ** 

<215> 

92 

IF X*="Z“THEN PRINT"{RVSON,DOWN,SPACE>M 


5 

REM »« TEL:<05321)21246 ** 

<178> 


{SPACE,RVOFF,SPACE >ODER{SPACE,RVSON,SPA 


6 

REM ** NUR MIT INPUT-ROUTINE VON «* 

<224> 

CE >W{SPACE,RVOFF,SPACE >DRUECKEN ({RVOFF 


7 

REM ** THOMAS GRAF BENUTZEN !! ** 

<053> 


}":FOR T=1 TO 1000:NEXT:GOTO 79 

<028> 

8 

REM ** SIEHE AUCH 64'ER 6/85 ** 

<044> 

9B 

GOTO B8 

<204> 

9 

REM ** SEITE 148 ** 

<846> 

100 

PRINT"{CLR>"i:POKE E,6:P0KE F,6 

<055> 

10 

PRINT CHR*<147):PRINT CHR*<14):GOTO 100 


101 

PRINT"{LIG.BLUE514 ZEILEN MIT JE 39 ZE 



00 

< 04 7 > 


ICHEN VERFUEGBAR" 

<246> 

11 

REM **LEERFELDER BESETZEN*» 

<111> 

102 

FOR 1=6 TO 19 

< 161 > 

12 

FOR 1=6 TO 19 

<071 > 

104 

I*="{CYAN>3EITE 1{12SPACE,RVSON,SPACE} 


13 

IF A* <I)="{39SPACE >"THEN A*<I>=".“ 

<028> 


ZINGABE{SPACE,RVOFF}" 

<202> 

14 

NEXT:RETURN 

<209> 

106 

G*=“{YELLOW>ZINGABE FUER ZEILE :{SPACE 


15 

FOR J=1 TO 13 

< 172> 


,WHITE}" 

<005> 

16 

IF B* <J)=“{39SPACEVTHEN B*<J)=“." 

<248> 

108 

POKE Q,2:POKE R,9:SYS S:PRINT I* 

<0B2> 

17 

NEXT: RETURN 

<212> 

110 

POKE Q,4:POKE R,9:SYS S:PRINT G*;:PRIN 


18 

FOR K=1 TO 3 

< 133> 


T 1-5 

<149> 

19 

IF E*CK)="{35SPACE}"THEN E*<K>="." 

<003> 

112 

PRINT: PRINT 

<064 > 

20 

NEXT:RETURN 

<215> 

116 

INPUT>39,0,1, A* < I > : NEXT 

<120> 

21 

FOR K=5 TO 7 

<010> 

122 

PRINT:PRINT C* 

< 187> 

22 

IF E*(K) =“{35SPACE}"THEN E*<K)="." 

<006> 

124 

GET X*:IF X*=""THEN 124 

<195> 

23 

NEXT:RETURN 

<218> 

126 

IF X*="J"THEN GOSUB 12:G0T0 200 

<0B8> 

24 

FOR L=1 TO 14 

<198> 

12B 

IF X*="N"THEN 150 

<152> 

25 

IF F*(L>=" IBSPACEVTHEN F*<L>=“." 

<227> 

130 

GOTO 124 

<218> 

26 

NEXT:RETURN 

<221 > 

150 

PRINT"{CLR}";:POKE E,6:P0KE F,6:P0KE G 


27 

FOR M=1 TO 13 

<20B> 



<093> 

28 

IF H*(M)=“ {8SPACE > " THEN H*<M)="." 

<214> 

151 

GOSUB 12:PRINT"SEITE 1{11SPACE,RVS0N,S 


29 

NEXT:RETURN 

<224> 


PACE}JLDNTROLLE {2SPACE }W/Z /M {2SPACE, RVO 


39 

REM *«** FLOPPY EINGESCHALTET *** 

<086> 


FF}" 

< 131 > 

40 

POKE Q,9:POKE R,0:SYS S:PRINT"{BLUE>21S 


152 

PRINT:PRINT"{RVSON,LIG.BLUE,2SPACE}flEN 



KETTENSTATION EINGESCHALTET{3SPACE)J/N{ 



DERN{3SPACE}1{2SPACE}-{3SPACE}5{19SPAC 



2SPACE}“ 

< 171 > 


E,RVOFF,WHITE}" 

<023> 

42 

GET X*:IF X*=""THEN 42 

<IB3> 

153 

FOR 1=6 TO 10:PRINT A*(I):NEXT 

<027> 

44 

IF X*="J"THEN 48 

<099> 

154 

PRINT;:PRINT"{RVSON,LIG.BLUE,2SPACE}flE 


46 

IF X*="N"THEN 10010 

<0B0> 


NDERN{3SPACE}6{2SPACE}-{2SPACE}10{19SP 


47 

GOTO 42 

<025> 


ACE,RVOFF,WHITE}“ 

< 177> 

48 

POKE Q,9:POKE R,0:SYS S:PRINT”DISKETTE 


155 

FOR 1=11 TO 15:PRINT A*(I):NEXT 

<022> 


EINGELEGT<15SPACE}J/N{2SPACEJ M < 055> 

KJ*—. 

PRINT"{RVSON,LIG.BLUE,2SPACEIflENDERN{2 


50 

GET X*:IF X*=""THEN 50 

< 095 > 

SPACE >11{2SPACE>-{2SPACE}14{19SPACE,RV 


52 

IF X*="J"THEN 56 

<095? 


OFF,WHITE}" 

<047> 

54 

IF X*="N"THEN 10010 

<0BB> 

157 

FOR 1=16 TO 19:PRINT A*<I):NEXT 

<097> 

55 

GOTO 50 

<009> 

158 

PRINT"{RVSON,DOWN,CYAN,SPACE}fl ENDE 


56 

POKE Q,9:POKE R,0:SYS S:PRINT"{WHITE,2S 



R N{2SPACE>J/N ?{SPACE,RVOFF,DOWN,WHI 



PACE,CTRL-N,35SPACE> * 

< 191 > 


TE}" 

<132> 

58 

RETURN 

<116> 

1S9 

GET X*: IF X*=""THEN 159 

<041 > 

59 

REM *** DATENEINGABE ****** 

<1BB> 

160 

IF X*="J"THEN 168 

<062> 

60 

PRINT"{CLR}"; : POKE E,2:P0KE F,2:PRINT"{ 


161 

IF X*="N"THEN 200 

< 149> 


YELLOWJfiEBEN SIE NUN DEN ZASSETTENTITEL 


162 

IF X*="W"THEN 250 

<066> 


EIN" 

< 140> 

163 

IF X*="Z"THEN 79 

<246> 

61 

PRINT"{D0WNJ39 ZEICHEN SIND VERFUEGBARC 


164 

IF X*=“M"THEN RETURN 

<005> 


WHITEJ" 

<212> 

167 

GOTO 159 

<20B> 

62 

INPUT>39,0,9,AS<5):GOTO 72 

<152> 

168 

POKE 0,20:POKE R,0:SYS S:PRINT“ÜUMMER 


63 

POKE □,13:POKE R,0:SYS S:PRINT"{26SPACE 



DIE GEAENDERT WIRD{2SPACE}:" 

<241 > 


>" 

<048> 

170 

INPUT>2,30,20,X*:IF VAL<X*)<1 OR VALCX 


64 

POKE Q,6:POKE R,0:SYS S:PRINT"{RVSON,LI 



S )>14 THEN 190 

<092> 


G.GREEN,SPACEIBENDERN DES ZASSETTENTITE 


172 

Y=VAL(X$)+5 

< 129> 


LS{SPACE,RVOFF,WHITE >" 

<234> 

174 

POKE Q,22:POKE R,0:SYS SlPRINT A*(Y) 

<192> 

66 

POKE Q,9:POKE R,0:SYS S:PRINT A*<5> 

< 1B4> 

178 

INPUT>39,0,22,A*(Y):GOTO 150 

<126> 

68 

INPUT>39,0,9,A*<5> 

<22B> 

190 

PRINT:PR1NT:PRINT"{RVSON,SPACE}FALSCHE 


72 

PRINT"{3D0WNVC* 

<210> 


£1NGABE{7SPACE}FALSCHE ZINGABE{SPACE, 


75 

GET X*:IF X*=""THEN 75 

<249> 


RVOFF>" 

<031 > 

76 

IF X*="J“THEN 79 

< 151 > 

192 

FOR T=1 TO 1000:NEXT:GOTO 150 

< 153> 

77 

IF X*=“N"THEN 63 

< 102} 

200 

POKE E,6:POKE F,6:PRINT"{CLR}"; 

< 133> 

78 

GOTO 75 

<128> 

201 

PRINT" {LIG. BLUEM3 ZEILEN MIT JE 39 ZE 


79 

PRINT"{CLR>";:POKE E,3:P0KE F,3:P0KE G, 



ICHEN VERFUEGBAR" 

<025> 


l:PRINT"flUSGEWAEHLTE KRITERIEN :“; 

<143> 

202 

FOR 1=1 TO 13 

<095> 

80 

PRINT"{4SPACE,RVSON,SPACE)W/Z/M{SPACE,R 


204 

L*="(CYAN)SEITE 2{12SPACE,RVSON,SPACE} 



VOFFJ” 

<238> 


ZINGABE{SPACE,RVOFF}" 

<074> 

81 

PRINT" {DOWN,BLUEJZSANDSORTE: {6SPACE,GREE 


206 

M*="{YELLOW}ZINGABE FUER ZEILE :{SPACE 



N}";A*<1> 

<069> 


.WHITE}“ 

< 129> 

82 

PRINT"{DOWN.BLUEJ2ANDMECHANIK:{3SPACE.G 


208 

POKE Q,2:POKE R,9:SYS S:PRINT L» 

<185> 


REEN}";A*<2) 

<200> 

210 

POKE Q,4:POKE R,9:SYS S:PRINT MS;:PRIN 


03 

4» 

PRINT"{DOWN.BLUEIflUFNAHMEART:{4SPACE,GR 



T I 

< 123> 


EEN>";A*<3> 

< 197> 

212 

PRINT:PRINT 

< ld»4> 

85 

PRINT" {DOWN,BLUEIZAUSCHUNTERDR. ; {SPACE, 


216 

INPUT>39,0,1+5,B$(I) : NEXT 

< 199> 


GREEN}";A*<4> 

<174> 

222 

PRINT:PRINT C* 

<031 > 

86 

PRINT"{2D0WN,WHITE > ZASSETTENTITEL: ":PR 


224 

GET X*:IF X*=""THEN 224 

<071 > 


INT"{2DQWN,GREY I}"A* <5> 

<214> 

226 

IF X*=“J"THEN GOSUB 15:GOTO 300 

<10B> 

87 

PRINT"{WHITE,3D0WN >“C$ 

<068> 

228 

IF X*="N"THEN 250 

<000> 

88 

GET X*:IF X*=“"THEN BB 

<232> 

230 

GOTO 224 

<070> 
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250 PRINT"CCLR}";=POKE E,6:POKE F,6:PQKE G 
,1 

251 GOSUB 15:PRINT"SEITE 2€11 SPACE , RVSON,S 
PACE }£PNTROLLE <2SPACE >W/Z/M C2SPACE, R VO 
FF>“ 

252 PRINT:PRINT“CRVSON,LIG.BLUE,2SPACEJflEN 
DERN <3SPACE J1C2SPACE}—{3SPACE>5 <19SPAC 
E,RVOFF,WHITE}“ 

253 FOR 1*1 TO 5:PRINT B*(I>:NEXT 

254 PRINT;:PRINT"CRVSON,LIG.BLUE,2SPACE >flE 
NDERNC3SPACE >6 C2SPACE>-C2SPACE>10C19SP 
ACE,RVOFF,WHITE >" 

255 FOR 1=6 TO 10:PRINT B*<I>:NEXT 

256 PRINT"CRVSON,LIG.BLUE,2SPACE>SENDERN<2 
SPACE J11C2SPACE>-C2SPACE >130 9SPACE,RV 
OFF,WHITE}" 

257 FOR 1=11 TO 13:PRINT B*CI):NEXT 

258 PRINT"CRVSON,DOWN,CYAN,SPACEJQ ENDE 

R NC2SPACE>J/N ?{SPACE,RVOFF,DOWN,WHI 
TE>“ 

259 BET X*:IF X*=""THEN 259 

260 IF X*="J“THEN 26B 

261 IF X*=“N“THEN 300 

262 IF X*=“W"THEN 350 

263 IF X*="Z"THEN 150 

264 IF X*=“M“THEN RETURN 

267 GOTO 259 

268 POKE Q,19:POKE R,0:SYS S:PRINT"HUMMER 
DIE GEAENDERT WIRDC2SPACE>:“ 

270 INPUT>2,30,19,X*:IF VAL<X*X1 OR VALCX 
*> >13 THEN 290 
272 Y=VALCX*) 

274 POKE Q,22:POKE R,0:SYS S:PRINT B*(Y) 

278 INPUT>39,0,22,B*CY):GOTO 250 

290 PRINT:PRINT:PRINT"CRVSON,SPACE>£ALSCHE 

£1NGABE C7SPACE > LALSCHE EINGABE CSPACE, 
RVOFF}" 

292 FOR T=1 TO 1000:NEXT:GOTO 250 

300 POKE E, 4: POKE F, 4: PRINT" CCLR}" ; 

301 PRINT"CLIG.RED>3 TEILEN MIT JEC2SPACE> 
35 REICHEN VERFUEGBAR" 

302 PRINT"1 XITELZEILE MIT 29 REICHEN VERF 
UEGBAR" 

.303 FOR 1=1 TO 3 

304 L*="CYELLOW>£ASSETTENSEITE 1C3SPACE,RV 
SON,SPACE >EINGABECSPACE,RVOFF >" 

306 M*="£INGABE FUER ZEILE :CSPACE,WHITE>" 
308 POKE Q,3:POKE R,9:SYS S:PRINT L* 

310 POKE □,4:POKE R,9:SYS S:PRINT M*;:PRIN 
T I 

312 PRINT:PRINT 
316 INPUT>35,0,1+5,E*(I):NEXT 
318 PRINT:PRINT:PRINT"C9SPACE,RVSON,YELLOW 
,SPACE>XITELZEILE EINGEBEN !CSPACE,RVO 
FF,WHITE>“ 

320 INPUT>29,0,12,ES(4) 

322 PRINT:PRINT C* 

324 GET X*:IF X*="“THEN 324 

326 IF X*="J“THEN GOSUB 18:GOTO 400 

328 IF X*=”N“T1CN 350 

330 GOTO 324 

350 PRINT"CCLR>";:POKE E,14:POKE F,14:POKE 

G,1 

351 GOSUB 18:PRINT"£ASSETTENSEITE 1C2SPACE 
,RVSON,SPACEliONTROLLE C2SPACE>W/Z/MC2S 
PACE,RVOFF>" 

352 PRINT:PRINT”CRVSON,BLUE,2SPACE>flENDERN 
C3SPACE >1C2SPACE>—C2SPACE>3C16SPACE,RV 
OFF,WHITE>” 

353 PRINT:FOR 1=1 TO 3:PRINT E*(I):NEXT 

354 PRINT:PRINT"CRVSON,YELLOW,2SPACEJHTEL 
ZEILEC4SPACEX 4 )C8SPACE,RVOFF,WHITE} 
"SPRINT 

356 PRINT E*C4> 

358 PRINT"CRVSON,DOWN,LIG.GREEN,2SPACEJB E 

N D E R NC2SPACEJJ/N 7CSPACE,RVOFF,DO 
WN,WHITE}" 

359 GET X*:IF X*=""THEN 359 

360 IF X*="J“THEN 368 

361 IF X*="N“THEN 400 

362 IF X*="W"THEN 414 

363 IF X*="Z“THEN 250 


< 193> 


<055> 


< 123> 
<140> 


<021 > 
< 137> 


<147> 

<13B> 


<234> 

< 175> 

< 168> 
<255> 

< 172> 
<039> 

< 107> 
<062> 

< 121 > 

< 101 > 

<190> 

<040> 

<252> 


< 133> 

< 128> 

< 163> 

< 234 > 

<003> 

< 148> 

<049> 

<024> 

<063> 

<225> 

< 010 > 

< 012 > 


< 210 > 

<046> 

< 133> 
<205> 

< 131 > 

< 106> 
<1B0> 

<094 > 


<019> 


<031 > 
< 010 > 


<234 > 
< 222 > 


<205> 
<051 > 
<016> 
< 103> 
<052> 
<143> 


364 IF X*="M“THEN RETURN <207> 

367 GOTO 359 <170> 

368 POKE Q,12:POKE R,0:5YS S:PRINT"HUMMER 

DIE GEAENDERT WIRDC2SPACE>:“ <027> 

370 INPUT>1,30,12,X*:IF VALCXSXl OR VAL(X 

*>>4 THEN 390 <14I> 

372 Y=VALCX*):IF VAL(XS)=4 THEN 380 <246> 

374 POKE Q, 15:POKE R,0:SYS S:PRINT E*(Y> <051> 

370 INPUT>35,0,15,E$<Y)sBOTO 350 <033> 

380 POKE Q, 15:POKE R,0:SYS S:PRINT E*(4) <231> 

382 INPUT>29,0,15,E*<4>:GOTO 350 <004> 

390 PRINT:PRINT:PRINT:PRINT"CRVSON,SPACE >£ 

ALSCHE £1 NGABEC7SPACE>£ALSCHE EINGABEC 
SPACE,RVOFF}“ <107> 

392 FOR T=1 TO 1000:NEXT:GOTO 350 <100> 

400 POKE E,9:POKE F,9:PRINT"<CLR>“; <1BB> 

401 PRINT"CYELL0W>3 ZEILEN MIT JEC2SPACE>3 

5 ZEICHEN VERFUEGBAR" <226> 

402 FOR 1=5 TO 7 <121> 

403 L*="CGREEN>£ASSETTENSEITE 2C3SPACE,RVS 

ON,SPACE >£INGABECSPACE,RVOFF >“ <148 > 

404 M*="£IN0ABE FUER ZEILE :CSPACE,WHITE}" <122> 

405 POKE Q,2:POKE R,9:SYS S:PRINT L* <12B> 

406 POKE Q,3:POKE R,9:SYS S:PRINT M*;:PRIN 

T 1-4 <037> 

407 PRINTsPRINT <105> 

408 INPUT>35,0,I,E*(I>:NEXT <061> 

409 PRINT:PRINT C* <220> 

410 GET X*:IF X*=“"THEN 410 <001> 

411 IF X»="J"THEN GOSUB 21:GOTO 0000 <050> 

412 IF X*="N"THEN 414 <226> 

413 GOTO 410 <127> 

414 PRINT"CCLR}";:POKE E,14:P0KE F,14:P0KE 

G,1 <158> 

415 GOSUB 21:PRINT”fiASSETTENSEITE 2 C2SPACE 

, RVSON, SPACE }J!ONTROLLE C2SPACE }W/Z/MC2S 
PACE,RVOFF}" <043> 

416 PRINTsPRINT"CRVSON,BLUE,2SPACEIBENDERN 
C3SPACE}1C2SPACE}-C2SPACE>3 C16SPACE,RV 

OFF,DOWN,WHITE}" <049> 

417'FT' 1=5 TO 7:PRINT E*(I):NEXT <191> 

418 PRINTsPRINT"CRVSON,YELLOW,2SPACE>11TEL 

ZEILEC17SPACE,RVOFF,WHITE}“SPRINT <135> 

420 PRINT ES(4) <030> 

422 PRINT"CRVSON,DOWN,LIB.GREEN,2SPACE>a E 
N D E R N C2SPACE >J/N 7CSPACE,RVOFF,DO 
WN,WHITE}“ <013> 

424 GET X*sIF X#=“"THEN 424 <081> 

426 IF X*=“J"THEN 438 <062> 

428 IF X#=“N"THEN 8000 <192> 

430 IF X*="W"THEN 8113 <190> 

432 IF X*=“Z”THEN 350 <216> 

434 IF X*=”M"THEN RETURN <021> 

436 GOTO 424 <03B> 

438 POKE Q,12:POKE R,0:SYS S:PRINT"HUMMER 

DIE GEAENDERT WIRDC2SPACE}:“ <097> 

440 INPUT>1,30,12,X*:IF VAL(X*X1 OR VALCX 

*)>3 THEN 448 <169> 

442 Y=VALCX*)+4 <141> 

444 POKE Q,15:POKE R,0:SYS SsPRINT E*<Y) <121> 

446 INPUT>35,0,1S,E$(Y):GOTO 414 <173> 

448 PR I NT: PR I NT -.PRINTsPRINT" CRVSON, SPACE >£ 
ALSCHE 61 NGABE C7SPACE}£ALSCHE £1NGABEC 
SPACE,RVOFF}" <165> 

450 FOR T=1 TO 1000:NEXT:GOTO 414 <035> 

459 REM **** DATENKONTROLLE *#** <158> 

460 POKE E,1:POKE F,l:POKE G,5:PRINT"CCLR} 

“ <131> 

462 PRINT"CRVSON}-7- SÄTEN KONTROLLIERENC1 

7SPACE,RVOFF}“ <178> 

464 PRINT“CD0WNI6INGELADENE SÄTEN KOENNEN“ <206> 
466 PRINT“GESICHTET WERDEN." <112> 

471 PRINT"CD0WN,3RIGHT11 = SEITE 1“ <03B> 

472 PRINT“C3RIBHTI2 = SEITE 2" <242> 

473 PRINT“C3RIGHT73 = fiASSETTENSEITE 1“ <166> 


Listing 2. »Kassetten-Layouta-Hauptprogramm. Zur Ein¬ 
gabe verwenden Sie bitte den Checksummer auf Seite 6. 
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474 

475 

476 

477 

478 
47? 
481 

4B2 

486 

499 

500 
502 

504 

510 

512 

514 

S20 

522 

524 

530 

532 

534 

540 

542 

544 

590 

599 

600 
605 
610 
615 
620 
625 
630 
635 
640 
645 
650 
655 
660 
665 
670 
690 

839 

840 

845 

B50 

860 

865 

870 

875 

BBB 

885 

BBB 

890 

891 

892 


939 

940 

945 

950 

960 

965 

970 


PRINT"«RIGHTJ4 = £ASSETTENSEITE 2" <169> 

PRINT"IDOWN,3RIGHT>5 = flRCHIVDATEN IIT 
EL" <127> 

PRINT"«RIGHTJ6 = flRCHIVDATEN SEITE 1“ <17B> 
PRINT"«RIGHT>7 = flRCHIVDATEN SEITE 2" <053> 
PRINT"<DOWN,3RIGHT>8 = HEITERBLAETTERN <0B3> 
PRINT“{3RIGHTJ9 = flENUE <011> 

PRINT"«DOWN,3RIGHT,RVSON,SPACE JSITTE 
AUSWAEHLEN -->{SPACE,RVOFF>“ <138> 

GET X*:IF VALCXSXl OR VAL<XS)>9 THEN 
482 <043> 

ON VAL(XS)GOTO 150,250,350,414,8113,82 
14,8314,79,10010 <101> 

REM ** DRUCKAUSGABE VORBEREITEN** <035> 

FOR 1=1 TO 19 <145> 

IF AS(I> =".«8SPACE>"OR AS(I>="."THEN 
A*<I>="" <106> 

NEXT I <07B> 

FOR J=1 TO 13 <157> 

IF BS<J>=".<385PACEJ"0R BS<J>="."THEN 
BS(J)=““ <100> 

NEXT J <09B> 

FOR K=1 TO 9 <130> 

IF ES<K>=“.“THEN ES(K>="" <171> 

NEXT K < 116> 

FOR L=1 TO 14 <196> 

IF FS<L)=".<7SPACEJ"OR FS(L)="."THEN F 
*(L)="“ <165> 

NEXT L <134> 

FOR M=1 TO 13 <213> 

IF HS(M)=".{7SPACE>"OR H*<M>="."THEN H 
S(M>=“" <070> 

NEXT M <060> 

RETURN <140> 

REM ** LEERVARIABLEN BESETZEN ** <028> 

FOR 1=1 TO 19 <247> 

IF AS<I)=""THEN AS(I) =" .•” <112> 

NEXT <112> 

FOR J=1 TO 13 <008> 

IF BS(J)=""TH£N BS(J>="." <0BB> 

NEXT SMB7Sni 

FOR K=1 TO 9 <240> 

IF ES(K)=""THEN ES<K)=°.» <111> 

NEXT .<142> 

FOR L=1 TO 14 <055> 

IF FS(L)="“THEN FS(L)="." <0B8> 

NEXT <157> 

FOR M=1 TO 13 <077> 

IF HS<M) = ""THEN HS<M)=“. M <087> 

NEXT <172> 

RETURN <240> 

REM *** UP DRUCKAUSGABE ARCHIVDATEN ** 

* <226> 

PRINT"{CLR>";s POKE E,4iP0KE F,4:P0KE G 
,1 <003> 

PRINT"{RVSONJ-9- flRCHIVDATEN EINGEBEN/ 
AUSDRUCKEN «SPACE,RVOFF >“s GOSUB 500 <092 > 

POKE Q,10!POKE R,5:SYS S:PRINT"DRUCKER 
EINGESCHALTET{2SPACE J J/N «SPACE>” <057> 

GET XS:IF XS=""THEN 860 <137> 

IF XS=" J"THEN 880 <177> 

IF XS="N"THEN 8000 <126> 

GOTO 860 <193> 

POKE Q , 10 3 POKE R, 5:SYS SiPRINT" £APIER 
{2SPACEJEINGELEGT «SPACEJ J /N «SPACE >" <143 > 

GET XS:IF XS="“THEN 885 <165> 

IF XS=" J"THEN 892 <240> 

IF XS="N“THEN 8000 <146> 

GOTO 885 <145> 

POKE Q,10:POKE R,5:SYS S:PRINT" SANN D 
RUCKE ICH JETZT{2SPACEJ!{4SPACEJ":GOTO 
8900 <071> 

REM **** UP DRUCKAUSGABE LAYOUT *** <016> 

PRINT"{CLRJ";:POKE E,3sP0KE F,3iP0KE G 
,1 <094> 

PRINT"{RVSONJ-B- .LAYOUT AUSDRUCKEN{19S 
PACE,RVOFF>“:GOSUB 500 <016> 

POKE Q,10:POKE R,5s SYS S:PRINT"SRUCKER 
EINGESCHALTET «SPACE >J/N{3SPACE >" <157 > 

GET XS:IF XS=""THEN 960 <013> 

IF XS“"J"THEN 980 <025> 

IF XS=“N"THEN RETURN <178> 


975 GOTO 960 

980 POKE Q,10:POKE R,5:SYS 5:PRINT" £APIER 
{2SPACE JEINGELEGT «SPACEJJ/N«SPACE J“ 
985 GET XS:IF XS=""THEN 985 
988 IF XS="J"THEN 992 

990 IF XS="N"THEN RETURN 

991 GOTO 985 

992 POKE Q,10:POKE R,5:SYS S:PRINT" DANN D 
RUCKE ICH JETZT«SPACE>!{4SPACEJ" 

1000 OPEN 1,4,7 

1005 printwi, "T^rT^r mTrmrT^TTrnTrrrf't' 

1010 PRINT#1 ,“V "CHRS(16)"42R" 

1015 PRINT#1,"^ "AS <1)CHRS(16)“12“AS(2> CHR 
S < 16> "42W 

1020 PRINT#1,"E “AS(3)CHRS(16)"12"AS <4> CHR 
S (16) "42TT 

1025 PRINT#1,"U "AS(5)CHRS(16)"42W" 

1030 print*i , 

eeeeeeeeeeeeees" 

1035 PRINT#1,"E "AS<3)CHRS(16)"32"AS<4)CHR 
S <16)"42R" 

1040 PRINT#1,"E “AS (5) CHRS (16) "421T' 

1045 PRINT»!, " tjtjgutjbt jg g ggtj ggg g g tjtitifltjdWjPPP 

1050 PRINT#1,"E "OSCHRS(16)"42H" 

1055 FOR 1=6 TO 19: PRINT#1 , "TJ " AS (I) CHRS C1 
6) "42TT" :NEXT 

1060 PRINT»! , "YTTiYT' TVri utititi T-l’r'T'l’Y'TrT'T’ 

1065 PRINT»1, "TT "PSCHRS (16) "42R" 

1070 FOR 1=1 TO 13:PRINT#1,"E "B*(I)CHRS(1 
6)"42R“:NEXT 

1075 print»i , "riYirrT^ri-TTT-m-n-rrrVi-rrrrr 

1080 FOR 1=1 TO 3:PRINT»1,"B"ES<I)CHRS<16) 
"36R":NEXT 

1085 pRiNT»i,"{4SPACEjrrmTrrrrTrTTrrrrrr 
TTTTTTTTT «SPACEJR" 

1090 PRINT»1,"{2SPACEJ1"CHRS<16)"34”AS <1>" 
JT»* H" 

1095 PRINT»1,"«4SPACEJ"AS(2) 

1100 PR I NT# 1," {4SPACE ITTTTTTTTTTTTTTTTTTTT 
TTTTTTTTT «SPACE JH" 

1105 PRINT#1,"R(3SPACEJ"ES(4)CHRS(16)"36R" 

1120 F0R^I=5^T0 7sPRINT#l , " , g"ES < I ) CHRS < 16) 
"36H":NEXT 

1125 print#i , •• {4spaceJB eeea®eeöueeeöBBBee 
®l5@ÖPbyö{3SPACEJR" 

1130 PRINT#1,“«SPACE J"CHRS <16)"34"AS(1>“R 

1135 PRINT#1,"{2SPACEJ2{31SPACEJ"AS(2) 

1140 PRINT»! , " {4SPACE 

1143 PRINT#1 

1145 PRINT#1,"E<3SPACE J"ES(4 >CHRS <16)“36H" 
1150 PRINT#1, "TTT 


TTTTT T TTT rTTTTTTTTTTT 


1420 CLOSE 1 

1422 POKE □,10:POKE R,5:SYS S:PRINT" ALLE 
DATEN GEDRUCKT«SPACEJ!«SPACE>" 

1424 GOSUB 600:FOR T-l TO 3000:NEXT:RETURN 
249? REM **** ARBEITSHINWEISE **** 

2500 POKE E,1:POKE F,l:POKE G,14 
2505 PRINT"<CLR>"5:PRINT"{RVSONJ-1- ARBEIT 
SHINWEISE <21SPACE,RVOFF J" 

2510 PRINT"«SPACEJ£ ASSETTENLAY 
0 U T{4SPACE,DOWNJ" 

2520 PRINT"{RVSON,40SPACE,RVOFF)"j:PRINT 
2530 RETURN 
3000 GOSUB 2500 

3002 PRINT" {GREENJ1M .PROGRAMMPUNKT -2- KOE 
NNEN SIE 3HR“ 

3004 PRINT" fllNSPIELVERFAHREN FESTLEGEN." 
3006 PRINT"{2DOWNJZ.S.:{DOWNJ" 

3008 PRINT" SANDSORTE"SPRINT" SANDMECHANIK 

n 

3010 PRINT" flUFNAHMEART" 

3012 PRINT" ÄAUSCHUNTERDRUECKUNGSSYSTEM" 
3014 PRINT"{6D0WNJ“DS:POKE 198,0sWAIT 198, 


<045> 

<243> 
<041 > 
<08B> 

< 19B> 
<253 > 

<110> 

<227> 

< 171 > 
<214> 

<16B> 

<169> 

< 194> 

<083> 

<202> 

<209> 

<098> 

<255> 

<207> 

< 169> 
<015> 

<057> 

< 184> 

< 116> 

< 1B6> 

<010> 

<237> 

<201 > 
<070> 

<0B3> 

<030> 

< 174> 

< 161 > 
<081 > 

<1B9> 
< 106> 
<110> 

< 169> 

< 161 > 

<207 > 

< 114 > 
<100> 
<010> 

< 177> 

<253> 

<102> 

<046> 

<250> 

< 161 > 
<005> 
<219> 

<102> 
< 129> 
<233> 


36 
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3(316 

3020 

3022 

3024 

3026 

302B 

3030 

3032 

3034 

3038 


3040 

3042 

3044 

3046 

3048 

3050 

3052 

3054 

3056 

3064 

3082 

3084 

3086 

3088 

3090 

3092 

3094 

3096 

3106 

3108 

3110 

3112 

3120 

3122 

3124 

3126 

3128 

3130 

3132 

3134 

3152 

3154 


3156 

3172 

3174 

3176 

3178 

3180 


1 <064> 

GOSUB 2500 <010> 

PRINT”{CYAN,SPACE»IM £ROGRAMMPUNKT -3 
- KOENNEN SIE AUF" <174> 

PRINT” EIN FESTBELEGTES £1NSPIELVERFA 
HREN“ <161 > 

PRINT“ ZURUECKGREIFEN.” <008> 

PRINT"{DOWN,SPACEJZ.a.:“ <209> 

PRINT" SANDSORTE:C4SPACE,RVSON,SPACE> 

£E {SPACE,RVOFF >“ <1B6> 

PRINT" aANDMECHANIK:{SPACE,RVSON,SPAC 
E»SB<SPACE,RVOFF >“ <23B> 

PRINT" BUFNAHMEART:{2SPACE,RVSQN,SPAC 
EJSTEREO <SPACE,RVOFF>” <225> 

PRINT” ÄAUSCHUNTERDRUECKUNGSSYSTEM:<R 
VSON , SPACE > HXfilt () fißfl{SPACE, RVQFF > “ < 148> 

PRINT"{DOWN,SPACE >aiE{SPACE,RVSON >£TA 
NDARDVARIABLEN{RVOFF,SPACE »KOENNEN Sl 
E IN" <112> 

PRINT" DER 2EILE 5010 IHREN EIBENEN" <032> 

PRINT" 3EDUERFNISSEN ANPASSEN.{BLUE>” <156> 
PRINT”{2D0WN»"DS:P0KE 198,0:WAIT 198, 

1 <202> 

BOSUB 2500 <040> 

PRINT”{LIG.RED»BROGRAMMPUNKT -4- DIEN 
T DER SATEN=" <203> 

PRINT"EINBABE.” <151> 

PRINT”{RIBHTJiHRE EINGABEN KOENNEN SI 
E MIT DEN" <170> 

PRINT”{RIBHTJiDNTROLLSEITEN JEDERZEIT 
UEBERPRUEFEN" <173> 

PRINT“{RIGHTJUND GEGEBENENFALLS AENDE 
RN.” <213> 

PRINT:PRINT:PRINT”{GREY 3,DOWN >£ROGRA 
MMPUNKT -5- SICHERT IHRE SÄTEN.” <143> 

PRINT:PRINT:PRINT”{DOWN,BREEN > SICHERH 
EITSABFRAGEN VERHINDERN DAS“ <04B> 

PRINT”{RVSON »ÜEBERSCHREIBEN{RVOFF,SPA 
CE»VON BEREITS ” <021> 

PRINT”AUF DISKETTE VORHANDENEN SÄTEIE 
N." <242> 

PRINT:PRINT DS <137> 

POKE 198,0:WAIT 198,1 <014> 

BOSUB 2500 <0B8> 

PRINT”{YELLOW»£ROGRAMMPUNKT -6- LADET 
IHRE SÄTEN.” <090> 

PRINT:PRINT <000> 

PRINT”{DOWN,BREENJSAS PROGRAMM SPRING 
T BEIM VERSUCH" <153> 

PRINT"NICHT VORHANDENE SÄTEIEN VON SI 
SKETTE” <030> 

PRINT"ZU LESEN NACH DER EEHLERMELDUNG 
IN DAS" <250> 

PRINT"BENUE ZURUECK.PRINT:PRINT <198> 

PRINT”<DOWN,LIG.RED)flIT BROGRAMMPUNKT 
-7- KOENNEN SIE JHRE” <06B> 

PRINT“EINGELESENEN SÄTEN UEBERPRUEFEN 
UND" <1B3> 

PRINT“EVENTUELL VOR SRUCKAUSGABE AEND 
ERN.”:PRINT <216> 

PRINT"<DOWN»"DS <061> 

POKE 198,0:WAIT 198,1 <052> 

GOSUB 2500 <126> 

PRINT“{RED »BIT PROGRAMMPUNKT -8- RUFE 
N SIE DIE" <154> 

PRINT"{RVSON »SRUCKAUSGABE{RVOFF,SPACE 
»DES .LAYOUTS AUF.“ <1B1> 

PRINT"{2DQWN.BLUE3BIT PROGRAMMPUNKT - 
9- KOENNEN SIE DIE" <254> 

PRINT"BRCHIVDATEN DER VERWENDETEN BUS 
IK=” <168> 

PRINT"STUECKE EINGEBEN UND AUSDRUCKEN 
LASSEN." <231> 

PRINT"(2D0WN,GREEN »BIT .PROGRAMMPUNKT 
-0- ENDET DAS £ROGRAMM"; <123> 

PRINT"UND SETZT DIE BINTERGRUND- UND 
ÄAHMEN=" <006> 

PRINT“FARBE SOWIE DIE SCHREIBFARBE IN 
DEN“ <068> 

PRINT“SINSCHALTZUSTAND ZURUECK." <203> 

PRINT”{4D0WN,BLUE»**** HOCH EINMAL{2S 
PACEJJ/N **«*" <037> 


3182 GET XS:IF XS=""TH£N 3182 
3184 IF XS=”J"THEN 3000 
3186 IF XS="N"THEN RETURN 
31B8 GOTO 3182 

3999 REM **** EINSPIELVARIANTEN AUSWAEHLEN 

**** 

4000 PRINT”<CLR»" 5 :POKE E,9:POKE F,9:POKE 
G ,1 

4002 PRINT“{RVSONJ-2- SETRIEBSVARIABLEN SE 
TZEN{12SPACE,RVOFF»"j 

4005 PRINT"{RVSON,DOWN,SPACE»S A N D S O R 
T E{22SPACE,RVOFF»" 

4010 PRINT"—1— ZERRO{7SPACE>(£E)" 

4020 PRINT"—2— EHROMDIOXID <£R>“ 

4030 PRINT"-3- ££RR0CHR0M{2SPACE»<££> " 

4040 PRINT”-4— BETAL<7SPACEXflE)" 

4045 GET XS:IF XS=""THEN 4045 
4050 IF XS=“1“THEN A*<1)="£E“:GOTO 4100 
4060 IF XS="2"THEN AS<1)= "£R":GOTO 4100 
4070 IF XS="3“THEN AS<1>="££":GOTO 4100 
4075 IF X*="4"THEN AS C 1 >="BE": GOTO 4100 
4080 IF XS<"l"OR XS>”4"THEN 4045 
4100 PRINT"{RVSON,SPACE>S ANDMECHA 
N I KU 6 SPACE,RVOFF»" 

4110 PRINT“—1— SICHERHEITSMECHANIK" 

4120 PRINT"—2— SEINE SICHERHEITSMECHANIK" 
4130 GET YS:IF YS=“”THEN 4130 
4140 IF YS=”1”THEN AS<2>=”SB":GOTO 4200 
4150 IF Y*=”2”THEN A*(2)=”.”:GOTO 4200 
4160 IF Y*<"l"OR Y*>"2”THEN 4130 
4200 PRINT"(RVSON,SPACEJB UFNAHMEA 
R TU 8 SPACE,RVOFFJ” 

4210 PRINT”—1— STEREO“ 

4220 PRINT”—2— MONO" 

4225 PRINT”-3- MONO/STEREO" 

4230 GET Z*:IF Z*=""THEN 4230 
4240 IF Z*="1“THEN A*(3)=“STEREO":GOTO 430 
0 

4250 IF Z*=“2“THEN A»(3)="MONO":GOTO 4300 
4255 IF Z#=“3"THEN A*<3>=“MONO/STEREO":BOT 

DncTr t300 

4260 IF Z*<"l“OR Z*>"3"THEN 4230 
4300 PRINT”{RVSON,SPACEJS AUSCHMIN 
D E R U N G{10SPACE,RVOFF 3" 

4310 PRINT" —1— BiSBOfißfl" 

4320 PRINT”—2— flqLRY " 

4325 PR INT "-3- SEINE SAUSCHMINDERL1NG" 

4330 BET V*:IF V*=""THEN 4330 
4340 IF V*=" 1 “THEN At (4) =" 1U-G-H () .CJJ1”: GOTO 
4400 

4350 IF V*="2"THEN AS (4» = " JOlJtY " ; GOTO 4400 
4355 IF VS=”3"THEN AS<4)=".":GOTO 4400 
4360 IF VS<"1”OR VS>”3“THEN 4330 
4400 PRINT“{CLR,RVSON1-2- BETRIEBSVARIABLE 
N SETZEN{12SPACE,RVOFF J“; 

4402 PRINT”{2DOWN.SPACE3SESETZTE STRIEBSV 
ARIABLEN :” 

4410 PRINT”{RVSON,DOWN,SPACE»a A N D S O R 
T E{22SPACE,RVOFF»" 

4415 PRINT AS(1)"<DOWNJ” 

4420 PRINT“ {RVSON,SPACE»a ANDMECHA 
N I KM6SPACE, RVOFF»" 

4425 PRINT AS<21"{DOWN»" 

4430 PRINT”{RVSON,SPACEJB UFNAHMEA 
R TOBSPACE,RVOFF»“ 

4435 PRINT AS<3>“{DOWN}" 

4440 PRINT"{RVSON,SPACE»S AUSCHMIN 
D E R U N 8O0SPACE,RVOFF»" 

4445 PRINT AS(4)"{DOWN»“ 

4450 PRINT CS 

4460 GET US:IF US=""THEN 4460 
4470 IF US="J"THEN RETURN 
4480 IF US="N"THEN 4000 
4490 GOTO 4460 


Listing 2. »Kassetten-Layout«-Hauptprogramm 
(Fortsetzung) 


<001 > 

< 132> 

< 108> 
<241 > 

<046> 

<160> 

<171> 

<213> 
<242> 
<237 > 
<009> 
<124> 
<071 > 
<0B8> 
<017> 
<103> 
<001 > 
<027> 

< 115> 
<130> 
<061 > 
<224> 

< 153> 
<0B2> 

< 164 > 

<059> 

< 126> 
<085> 
<134> 
<013> 

<061 > 
<229> 

< 140> 

<0B8> 

<040> 

<213> 

<159> 

< 200 > 

< 143> 

<248> 

<026> 

<074> 

< 146> 

<251 > 

<019> 

< 110 > 

<196> 

< 181 > 
<014> 

<035> 

<088> 

< 182 > 

< 163> 
<070> 
<077> 
<096> 

< 140> 
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<136> 

7050 

INPUT DNS 

<096> 

4999 

REM **** GESETZTE EINSPIELVARIANTEN A 


7055 

CLOSE 15:OPEN 15,8,15 

< 112 > 


UFRUFEN **»* 

< 222 > 

7060 

CLOSE 1:OPEN 1,8,2,DNS+",S,R" 

< 130> 

5000 

PRINT"<CLR}";:P0KE E,12:POKE F,12 

<175> 

7062 

INPUT#15,A:IF A=0 THEN 7070 

<059> 

5002 

PRINT" (RVSON}-3- 5.T ANDARDV AR IABLEN{19 


7063 

POKE Q,15:POKE R,0:SYS S:PRINT"{BLACK 



SPACE , RVOFF , 3D0WN , BLUE > "; 

<055> 


,RVSON,2SPACE>"DNS"{2SPACE,RVOFF,SPAC 


5005 

PRINT"{RVSON,SPACE}fl TANDARDV 



EJNICHT VORHANDEN *“ 

<134> 


A R I A B L E{ 8 SPACE,RVOFF}" 

< 210 > 

7064 

CLOSE 1:CLOSE 15:FOR T=1 TO 2500:NEXT 


5010 

AS < 1 >="£E"t AS(2) = "SÜ":AS(3)»“STEREO": 



:RETURN 

< 102 > 


A* (4) ="H£ßti< > £911" 

<126> 

7070 

FOR 1=1 TO 19:INPUT#1,AS(I):NEXT 

<028> 

5030 

PRINT"{2DOWN> flANDSORTE{WHITE,BSPACE >: 


7071 

FOR J=1 TO 13:INPUT#1,BS(J):NEXT 

<064> 


";AS(1) 

< I2B> 

7072 

FOR K=1 TO 9:INPUT#1,ES(K):NEXT 

<226> 

5040 

PRINT"(2D0WN,BLUE}3ANDMECHANIK <WHITE, 


7073 

FOR L=1 TO 14:INPUT#1,FS(L>:NEXT 

<213> 


5SPACE >:“;AS(2) 

< 125> 

7074 

FOR M=1 TO 13:INPUT#1,HS<M):NEXT 

<031 > 

5050 

PRINT" C2D0WN,BLUE}flUFN AHMEART {WHITE ,6 


7076 

CLOSE 15 

<056> 


SPACE >:";AS (3) 

< 111 > 

7078 

CLOSE 1:CLOSE 15 

< 132> 

5060 

PRINT"(2D0WN,BLUE >ÄAUSCHMINDERUNG{WHI 


7080 

POKE Q,20:POKE R,0:SYS S:PRINT"{BLUE} 



TE,2SPACEJ:"JASC4) 

< 183> 


SIE SÄTEN SIND GELADEN{WHITE}“ 

<139> 

5080 

PRINT“(4D0WNJ-D* 

<174> 

7082 

FOR T=1 TO 1500:NEXT:RETURN 

< 210 > 

5090 

GET TS:IF TS< >""THEN 5090 

<059> 

7999 

REM »»« ARCHIVDATENEINGABE *** 

< 156> 

5095 

POKE 198,0:WAIT 198,1 

<241 > 

8000 

PRINT"{CLR}";:POKE E,1:P0KE F,1:P0KE 


5100 

RETURN 

<076> 


G,0 

<248> 

5999 

REM **** DATEN SICHERN MIT DISKETTE * 


8010 

PR I NT ” {RVSON, BLUE, SPACE >J5RCH IVDATEN E 



*»* 

< 138> 


INGEBEN7AUSDRUCKEN{ 6 SPACE,RVOFF}" 

<073.» 

6000 

PRINT"<CLR}"j:POKE E,7:P0KE F,7:P0KE 


8020 

PRINT"{3D0WN,4RIGHT>-1- £1NSPIELDATEN 



G,5 

<238> 


EINGEBEN" 

<067> 

6010 

PRINT"{RVSON}—5— SÄTEN SICHERN(23SPAC 


8025 

PRINT"{3D0WN,4RIGHT>-2- £1NSPIELDATEN 



E,RVOFF>" 

<196> 


AUSDRUCKEN" 

<165> 

6020 

PRINT"{2D0WN,2RIGHT,RV50N,SPACE > J{SPA 


8027 

PRINT"{3D0WN,4RIGHT >-3- flENUE" 

<084> 


CE,RVOFF,2SPACE}= HEITER“ 

<028> 

8030 

PRINT"{6D0WN,4RIGHTISITTE AUBWAEHLEN" 

<016> 

6025 

PRINT"{DOWN,2RIGHT,RVSON,SPACE > N{SPAC 


8035 

GET XS: IF VALtXSXl OR VAL(XS)>3 THEN 



E,RVOFF,2SPACE>= UENUE" 

<061> 


8035 

<247> 

6040 

BOSUB 40 

< 1 60> 

B040 

ON VAL(XS)GOTO 8100,840,10010 

<052> 

6045 

PRINT"{DOWN,WHITE>UNTER WELCHEM HAMEM 


B050 

GOTO 8035 

<077 > 


SOLLEN DIE" 

< 161 > 

8100 

PRINT"{CLR>" 5 :POKE E,2:P0KE F,2:P0KE 


6050 

PRINT"BATEN ABGESPEICHERT WERDEN 7{BL 



G,1 

< 133> 


UE}“:PRINT 

<174> 

8102 

PRINT"{RVSON,SPACE}£INSPIELDATEN EING 


6055 

INPUT DNS 

<117> 


EBEN {17SPACE , RVOFF > " 

< 111 > 

6060 

CLOSE 1!OPEN 1,B,2,DNS+",S,W" 

<226> 

8110 

PRINT"{DOWN,RVSON,SPACE}£INSPIELDATUM 


6070 

CLOSE 15:OPEN 15,8.15:INPUT#15,A,B*,C 



{ 6 SPACE,RVOFF,DOWN >“:INPUT >10,0,5,ES( 



, D 6 <1 37 > 1L 


8 ) 

<227> 

6075 

IF A<>63 THEN CLOSE 15:GOTO 6160 

< 156> 

8111 

PRINT:PRINT:PRINT:PRINT"{RVSON,SPACE) 


6080 

IF A=63 THEN PRINT"{RVSON,GREEN,2D0WN 



EUER WEN{11SPACE,RVOFF,DOWN >":INPUT >3 



,3SPACE >"BS"{3SPACE,RVOFF J":CLOSE 15 

<007> 


0,0,10,ES(9) 

<201 > 

6085 

POKE Q, 17: POKE R.22-.SYS S: PRINT" {GREE 


8113 

POKE E,5:POKE F,5:P0KE G,1 

< 127> 


N}£RSETZEN J/N{2SPACE}" 

< 160> 

8114 

PRINT"{CLR > EINSPIELDATEN{5SPACE,RVSON 


6090 

GET XS:IF XS=“"THEN 6090 

<017> 


, SPACE } «JDNTROLLE {2SPACE >W/Z /M {2SPACE , 


6095 

IF XS="J"THEN POKE Q,17:P0KE R,22:SYS 



RVOFF, 2DOWNV 

< 132> 


S:PRINT"CGREENIHIRD ERSETZT !{YELLOW 


8116 

PRINT"{DOWN,RVSON,LIG.GREEN,SPACE}£IN 



:GOTO 6160 

<173> 


SPIELDATUM{25SPACE,RVOFF,DOWN,WHITE >" 


6100 

IF XS="N"THEN PRINT"{DOWN,BLUE5HEUER 



:PRINT ES( 8 ) 

<228> 


HAME ?{WHITE,2SPACE>DANN{2SPACE >Y{2SP 


8117 

PRINT"{DOWN,RVSON,LIG.GREEN,SPACE >£UE 



ACE >SONST{2SPACE,RVSON,SPACE >*{SPACE, 



R WEN{30SPACE,RVOFF,DOWN,WHITE}":PRIN 



RVOFF,DOWN }" 

<097> 


T ES (9) 

<0B5> 

6105 

IF XS=" * " THEN RETURN 

<215> 

8118 

PRINT"{DOWN,RVSON,LIG.GREEN,SPACE > £AS 


6106 

IF XS="Y"THEN 610B 

<160> 


SETTENTI TEL : {23SP ACE .RVOFF, DOWN .WHITE 


6107 

GOTO 6090 

< 022 > 


>“:PRINT AS(5) 

< 164> 

6108 

PRINT"{BLUE 5 HEUER HAME: {WHITE,DOWN >": 


8120 

PRINT“{4D0WN>"CS 

<164> 


INPUT DNS:GOTO 6160 

<009> 

Bl 25 

GET XS:IF XS=""THEN B125 

<023> 

6160 

CLOSE 1:OPEN 1,8,2,"@:"+DNS+“,S,W" 

<085> 

8127 

IF XS="M"THEN RETURN 

<094> 

6161 

FOR 1 = 1 TO 19:PRINT#1,AS(I>:NEXT 

<217> 

8130 

IF XS="J"THEN 8200 

<032> 

6162 

FOR J=1 TO 13:PRINT#1,BS <J>:NEXT 

<253> 

8132 

IF XS="Z“THEN 414 

<076> 

6163 

FOR K=1 TO 9:PRINT#1,E*(K)=NEXT 

<1 19> 

8135 

IF XS="N"THEN 8100 

<031 > 

6164 

FOR L=1 TO 14:PRINT#1,FS(L):NEXT 

< 146> 

8137 

IF XS="W"THEN 8214 

<061 > 

6165 

FOR M=1 TO 13:PRINT#1,HS(M):NEXT 

< 220 > 

8140 

GOTO 8125 

< 151 > 

6166 

CLOSE 1:CLOSE 15 

<23Q> 

8200 

POKE E, 6 :POKE F,6:P0KE G,1 

<224> 

6167 

POKE Q,23:POKE R,0:SYS S:PRINT"{BLUE> 


8202 

PRINT“{CLR,RVSON,SPACE >£INSPIELDATEN 



SIE SÄTEN SIND GESICHERT{WHITE>" 

<158> 


EINBEBEN{3SPACE >5EITE 1{7SPACE,RVOFF, 


6168 

FOR T=1 TO 2500:NEXT 

<209> 


DOWN}" 

<214> 

6169 

RETURN 

< 131 > 

8204 

PRINT"i£TZT DIE flRCHIVDATEN EINGEBEN 


6999 

REM *** DATEN LADEN VON DISKETTE ** 

<006> 


!(DOWN >”1 PRINT"(2D0WN,RVSON,SPACE >1 I 


7000 

PRINT"<CLR>»;:POKE E,13:P0KE F,13:P0K 



T E L(SPACE,RVOFF}" 

<129> 


E G.l 

< 120 > 

8206 

PRINT"(4DOWN,RVSON,SPACE}flRCHIVNUMMER 


7010 

PRINT"{RVSON,GREY 2>-6- SÄTEN LADEN{2 



{SPACE,RVOFF}" 

<027> 


5SPACE,RVOFF>" 

< 147> 

8208 

FOR 1=6 TO 19:POKE Q,10:POKE R,0:SYS 


7015 

PRINT"{2DOWN,2RIGHT,RVSON,SPACE >J{SPA 



S:PRINT AS(I> 

<026> 


CE,RVOFF,3SPACE>={2SPACE>HEITER" 

<007> 

8210 

INPUT>8,0,14,FS(I—5):POKE Q,14:P0KE R 


7020 

PRINT"{DOWN,2RIGHT,RVSON,SPACE >N{SPAC 



,0:SYS S:PRINT"{BSPACE}" 

<211 > 


E,RVOFF,3SPACE>={2SPACE JflENUE" 

<040> 

B 212 

POKE □,10:POKE R,0:SYS S:PRINT"{3BSPA 


7035 

GOSUB 40 

<139> 


CE}":NEXT 

< 165> 

7040 

PRINT"{3D0WN,GREY 2>HEBEN SIE DEN SAT 


B214 

PRINT"CCLR}" 5 :GOSUB 24:POKE E,2:POKE 



EINAMEN EIN{WHITE}“:PRINT 

< 183> 


F,2:POKE G,1 

<027> 
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Anwendung 


8216 PRINT“flRCHIVDATEN SEITE 1{SPACE,RVSON 
, SPACE 1J5DNTROLLE W/ Z /M (2SPACE , RVOFF ) " 
SPRINT:PRINT 

8218 FOR 1=6 TG 19s SPRINT LEFT*(A*<1),25); 
SPRINT TAB(27>1-5;SPRINT TAB(31)F*(I- 
5)sNEXT 

8220 PRINT"{2D0WN)“C* 

8222 BET X*sIF X*="“THEN 8222 
B224 IF X*="J”THEN 8300 
8228 IF X*="N"THEN 8240 
8230 IF X*="Z"THEN 8113 
8232 IF X*=“W“THEN 8314 
8234 IF X*=“M"THEN RETURN 
8236 GOTO 8222 

8240 POKE Q,20:POKE R,0sSYS SSPRINT"HUMMER 
DIE GEAENDERT WIRD<2SPACE>:“ 

8242 INPUT>2,30,20,X*:IF VAL(X*)<1 OR VAL( 
X#)>14 THEN 8250 
8244 Y=VAL(X*) 

8246 POKE Q,22:PQKE R,0:SYS SsPRINT FS(Y> 
8248 INPUT>8,0,22,F*(Y>sGOTO B214 
8250 PRINTsPRINTsPRINT"(RVSON,SPACE)£ALSCH 
E £INBABE(7SPACE)EALSCHE EINGABECSPAC 

E, RVDFF )" 

8252 FOR T=1 TO 1000:NEXTsGOTO 8214 
8300 POKE E,6sP0KE F,6:POKE G,1 
8302 PRINT"(CLR,RVSON,SPACE)£INSPIELDATEN 
EINGEBEN(3SPACE)SEITE 2 C7SPACE,RVOFF, 
DOWN)“ 

8304 PRINT“£ETZT DIE flRCHIVDATEN EINGEBEN 
! {DOWN )" : PRINT"(2D0WN,RVSON,SPACE >X I 
T E L(SPACE,RVOFF)“ 

8306 PRINT"{4D0WN,RVSON,SPACEJflRCHIVNUMMER 
(SPACE,RVOFF)“ 

8308 FOR 1=1 TO 13:POKE Q,10:POKE R,0:SYS 
SsPRINT B*(I) 

8310 INPUT>8,0,14,H*(I)sPOKE B,14:P0KE R,0 
sSYS SsPRINT"(8SPACE)" 

8312 POKE Q,10sPOKE R,0:SYS S:PRINT“{38SPA 
CE>“sNEXT 

8314 PRINT"{CLRV’SsGOSUB 27sP0KE E,2sP0KE 

F, 2lPOKE G,1 

8316 PRINT“flRCHIVDATEN SEITE 2{SPACE,RVSON 
, SPACE) .KONTROLLE W/ Z /M {2SPACE , RVOFF > “ 
sPRINTsPRINT 

8318 FOR 1=1 TO 13:SPRINT LEFT*(B*(I),25); 
SPRINT TAB(27)1;SPRINT TAB(31)H*(I>:N 
EXT 

8320 PRINT"{2D0WN>"C* 

8322 GET X*s IF X*=""THEN 8322 
8324 IF X*="J“THEN RETURN 
8328 IF X*="N"THEN 8340 
8330 IF X*="Z"THEN 8214 


<244> 


<235> 
<150> 
<072> 
<005> 
<083> 
< 108> 
< 197> 
<090> 
<025> 

<204> 

<018> 

<008> 

<063> 

<027> 


<099> 

<080> 

<068> 


<187> 


<229> 

< 127> 
<044> 
<218> 
<009> 

< 133> 


<096> 


< 210 > 
<250> 
<204 > 
<243> 
<1B7> 
<228> 


8332 IF X*="W"THEN 8487 <149> 

8334 IF X*="M"THEN RETURN <190> 

8336 GOTO 8322 <133> 

8340 POKE Q,19:POKE R,0:SYS S:PRINT“HUMMER 

DIE GEAENDERT WIRD (2SPACE) : •' <065> 

8342 INPUT>2,30,19,X*:IF VAL(X*X1 OR VAL( 

X*>>13 THEN 8350 <072> 

B344 Y=VAL(X*> <108> 

8346 POKE Q,22:POKE R,0sSYS SsPRINT H*(Y) <165> 

8348 INPUT>S,0,22,HS(Y):GOTO 8314 <139> 

B350 PRINT:PRINTs PRINT”{RVSON,SPACE)FALSCH 
E EINGABE(7SPACE)£ALSCHE EINGABE{SPAC 
E,RVOFF)” <199> 

8352 FOR T=1 TO 1000:NEXTsGOTO 8314 <052> 

8487 IF X*=“W“THEN PRINT"{RVSON,DOWN,SPACE 
)J{SPACE,RVOFF,SPACE)ODER{SPACE,RVSON 
,SPACE)M(SPACE,RVOFF,SPACE1DRUECKEN ! 

"sFOR T=1 TO 1000:NEXT:GOTO 8314 <165> 

8898 REM *** DRUCKAUSGABE ARCHIVDATEN *** <030> 

8900 OPEN 1,4,7 <253> 

8903 FOR 1=0 TO 79:PRINT#1,“-";sNEXT <003> 

8905 PRINT#1,"£ ASSETTENLAYOU 

T(17SPACE)£ ASSETTEN"; <134> 

8910 PRINT«, " LAYOUT" <198> 

8913 FOR 1=0 TO 79s PRINT«NEXTsPRINT 

«SPRINT« <152> 

8915 PRINT« s PRINT«, “E INSPIELDA 

T U M{3SPACE>:(3SPACE)";E*(B) <231> 

8920 PRINT«, "E U E R(4SPACE)W E NC12SPACE 


):<3SPACE)";E*(9) 

8922 PRINT«:FOR 1=0 TO 79:PRINT«NE 
XT 

8925 PRINT«, "£ ASSETTENTITEL 
s(3SPACE)";A*(5) 

8927 FOR 1=0 TO 79sPRINT#1, 5 :NEXT 
8930 PRINT« s PRINT« 

8935 PRINT« , " JjANDSORTE"CHR* (16) “ 1 5DANDMEC 
HAN1K"CHR* (16) "35BJJFNAHMEART"; 

8940 PRINT#1,CHR*(16)"52HAUSCHUNTERDRUECKU 
NGSSYSTEM" 

8945 PRINT«,A*(1)CHR*(16)"15“A*(2)CHR*(16 
)”35"A*(3)CHR*(16)”52"A*(4) 

8950 PRINT« s PRINT« : PRINT« s PRINT« 

8951 PRINT« ,0*SPC (16)0*:PRINT# 1 : PRINT« 

8952 FOR 1=6 TO 19sPRINT#1,A*(I)CHR*(16)"4 
7 "F*(1-5)SNEXT 

8966 PRINT#1:PRINT#1:PRINT#1 
B970 PR1NT#1,P*SPC(16)P*:PRINT#1s PRINT#1 
8971 FOR 1=1 TO 13:PRINT#1,B*(I)CHR*<16)"4 
7 "H*(I)sNEXT 

8994 PR I NT# 1: CLOSE 1 

8995 POKE Q,10sPOKE R,5:SYS SsPRINT" ALLE 
DATEN GEDRUCKT(3SPACE)!{5SPACE)" 

8996 GOSUB 600:FOR T=1 TO 3000:NEXT:GOTO 1 
0010 

8999 REM **» PROGRAMMENDE *** 

9000 POKE E,14:POKE F,6:P0KE G,14:PRINT"{C 
LR)";SPRINT CHR*(142)sEND 

9999 REM **** MENUE **** 

10000 DIM A*(19),B*(13),F*(14),H*(13) 

10001 FOR 1=1 TO 4:A*(I>="."sNEXT 
10003 FOR K =8 TO 9sE*(K)=“."sNEXT 

10006 0=214:R=211:S=58640:E=53280:F=53281s 
G=646 

10007 D*=“{BLUE,DOWN)»*** IASTE DRUECKEN * 
***'■ 

10008 C*="{RVSON,DOWN,SPACE)flLLES RICHTIBT 
2SPACE)J/N ?(SPACE,RVOFF,DOWN)“ 

X000O n*="****» flEITE 1 **•**":P*="****• £ 
VITE 2 ****»" 

10010 PRINT"(CLR)";sPOKE E,0:POKE F,0 
10015 PRINT”(WHITE,2SPACE)£ A S S E T T E 
N(2SPACE)—(2SPACE)£ A Y 0 U T(5SPACE 
.GREEN)" 

10020 PRINT“(DOWN,2RIGHT)-1- flRBEITSHINWEI 
SE" 

10022 PRINT“(DOWN,2RIGHT)-2- BETRIEBSVARIA 
BLEN SETZEN " 

10025 PRINT"{DOWN,2RIGHT>-3- STANDARDVARIA 
BLEN" 

10030 PRINT“(DOWN,2RIGHT)-4- DATENEINGABE" 
10035 PRINT"(DOWN,2RIGHT)-5- DATEN SICHERN 

10040 PRINT"(DOWN,2RIGHT)-6- DATEN LADEN" 
10045 PRINT"(DOWN,2RISHT)-7- DATEN KONTROL 
LIEREN” 

10047 PRINT"(DOWN,2RIGHT)-8- AAYOUT AUSDRU 
CKEN" 

10050 PRINT"{DOWN,2RIGHT)-9- flRCHIVDATEN E 
INBEBEN/AUSDRUCKEN" 

10052 PRINT"(DOWN,2RIBHT)-0- £ROGRAMMENDE" 
100S5 PRINT"(DOWN,WHITE, 6 RIGHT)flUSWAHL > 

10060 GET X*sIF X*<“0"OR X*>"9"THEN 10060 

10062 IF X*<>"0"THEN 10065 

10063 GOTO 9000 

10065 ON VAL(X*)GOSUB 3000,4000,5000,60,60 
00,7000,460,940,8000 
10110 GOTO 10010 


<176> 

< 141 > 

<074> 

<027> 

<019> 

<09B> 

< 143> 

< 012 > 

<253> 

<094> 

<089> 

<080> 

< 156> 

<11S> 

<086> 

<160> 

<007> 

<174> 

<207> 

<233> 

<247> 

<1B0> 

<0B1> 

< 200 > 

< 176> 

< 123> 

<037> 

<005> 


<173> 
<001 > 
<027> 

< 167> 
<177> 

<238> 

<083> 

<2S0> 

< 104> 

<144> 

<235> 

< 022 > 

<177> 

< 140> 

< 161 > 

<037> 

<232> 


6 G4'et- 


Listing 2. »Kassetten-Layout«-Hauptprogramm 
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Datenfernübertragung (DFÜ) 


Mailbox-Basic - der einfache 
Weg zu der eigenen Mailbox 


Selbst gemacht ist immer noch am 
besten. Mit dieser speziellen Mailbox- 
Sprache brauchen Sie sich um die 
Bedienung der RS232-Schnittstelle 
keine Gedanken mehr zu machen. 


Die Mailboxen schießen wie Pilze aus dem Bo'den. Darunter 
gibt es gute, aber auch schlechte, vor allem aber teure. Viele 
Mailboxen sind deshalb teuer, weil sie die zur Verfügung ste¬ 
henden Möglichkeiten nicht richtig ausnutzen. So kommt es 
vor, daß immer wieder Wartezeiten entstehen, weil das Pro¬ 
gramm des Mailbox-Computers die geforderten 300 Baud 
nicht schafft. Mit Mailbox-Basic sind Sie in der Lage, eine 
schnelle eigene Mailboxzu schreiben. Eine einfache Mailbox 
ist meistens rasch geschrieben, so daß sie wenigstens im 
»trockenen«, also ohne Telefonanschluß, funktioniert. Um 
aber tatsächlich einen solchen »Briefkasten« am Telefonnetz 
zu betreiben, wird das Ganze schon schwieriger, denn die 
Hauptsache, die sehr zeitkritische RS232-Ein/Ausgabe fehlt 
noch. Dort treten dann die ersten Probleme auf. Wie wandelt 
man die Commodore- in ASCII-Zeichen um? Wie simuliert man 


einen Textspeicher? Wie umgeht man die Garbage Collec- Zürn-Ec {spiel: IINPUT A$ 


Maschinen-Routine befindet (siehe IWAIT). Erfolgt ein 
Abbruch, so wird das entsprechende Bit in der Statusvariable 
gesetzt. 

IWAIT A$ (X,C,S) 

Im Prinzip entspricht dieser Befehl dem IPRINT-Befehl. Im 
Gegensatz zu IPRINT springt IWAIT wieder ins Basic, wenn 
der RS232-Ausgabepuffer geleert ist, das heißt, wenn alle 
Daten über das Telefon geschickt worden sind. Daher bleiben 
die Abbruchmöglichkeiten bis zuletzt erhalten. Das Warten 
in der IWAIT-Routine wird auf dem Bildschirm angezeigt 
(siehe Bildschirmanzeigen). Die Parametermöglichkeiten 
entsprechen denen des IPRINT-Befehls. 

IINPUT A$ [,A (,Z1 [,Z2 ))) 

Hiermit wird eine Zeichenkette bis zu einem Return mit 
maximal »A« Zeichen Länge eingelesen, wobei (im Normalzu¬ 
stand) das Eingabegerät sowohl die Tastatur als auch die 
RS232-Schnittstelle sein kann. Ein Abbruch aus dieser Rou¬ 
tine ist auch durch Drücken der CTRL/X-Taste möglich. Es 
gibt hier ein Eingabe-Timeout, das heißt wenn 60 Sekunden 
lang kein Zeichen eingegeben wird, springt die Routine 
zurück ins Basic und es wird ein Bit in der Statusvariable 
gesetzt. Der bis dahin eingegebene Text wird in einem String 
abgelegt. Übernommen werden nur die Standard-ASCII- 
Zeichen, alle anderen werden ignoriert. Hier gibt es ebenfalls 
Möglichkeiten zur Parametereingabe: 


tion? Abhilfe bringt »Mailbox-Basic«, das diese und noch mehr 
Funktionen erfüllt. 

Mailbox-Basic (siehe Listing 1) ist eine kleine Basic- 
Erweiterung, die 12 neue Befehle zur Verfügung stellt, 
welche dann die gesamte RS232-Steuerung übernehmen. 
Die Befehle kann man einfach und ohne Probleme in ein 
bereits bestehendes Programm implementieren. 

Viele Möglichkeiten 

Und hier die neuen Befehle: 

IPRINT AS (,X,C,S) 

Dies ist ein umgewandelter PRINT-Befehl, der den Inhalt 
des Strings (hier A$) auf dem Bildschirm und auf die 
RS232-Schnittstelle (natürlich in ASCII-Förm) ausgibt. 
Außerdem gibt es verschiedene Parametereinstellungen, die 
bestimmte Abbruch- und Stoppfunktionen nicht zulassen. 
Hierbei gilt: 

1 = Abbruch zugelassen 
0 = Abbruch nicht zugelassen 
Die Parameterreihenfolge 
IPRINT A$,CTRL/X,CTRL/C,CTRL/S 
wird beispielsweise so geschrieben: 

IPRINT A$,0,1,1. 

Bei diesem Beispiel wird der CTRL/X-Abbruch verhindert, der 
CTRL/C-Abbruch und der CTRL/S-Stopp ermöglicht. Bei 
einem CTRL/S-Signal stoppt die Ausgabe für 120 Sekunden 
(bei Normalparametern). Dieser Stopp wird auch auf dem 
Bildschirm angezeigt (siehe Bildschirmanzeige). 

IPRINT A$ (ohne Parameter) 

Hier werden folgende Standardparameter gesetzt: 
CTRL/X-Abbruch und CTRL/S-Stopp möglich, das entspricht 
IPRINT A$,1,0,1. Die gesamten Abbruchroutinen bleiben nur 
so lange erhalten, wie sich der Computer in dieser 


Hier wird eine Eingabe von maximal 253 Zeichen gefordert. 
Sind diese erreicht, bricht die Routine beim nächsten einge¬ 
gebenen Zeichen mit einem Return ab. 

IINPUT A$,100 

Hier wird die höchste zu übernehmende Zeichenzahl von 
253 auf 100 Zeichen gesenkt. 

IINPUT A$,20,ASC(.) 

Hier werden höchstens 20 Zeichen übernommen, allerdings 
wird statt den eingegebenen Zeichen ein ».« (Punkt) auf die 
RS232-Schnittstelle gesendet. Die eingegebenen Zeichen 
bleiben im String erhalten (Anwendung: Paßwortabfrage). 
IINPUT A$,20,ASC(.),ASC(?) 

Hier wird zusätzlich statt dem eingegebenen Zeichen ein »?« 
auf dem Bildschirm ausgegeben. 

Programmbeispiel (Namenseingabe): 

10 A$=CHR$(38)+CHR$(224) 

20 OPEN,2.2,A$ 

30 IWAIT "Dein Name => " 

40 IINPUT A$,20 
50 IPRINT "Dein Name ist" 

60 IWAIT A$ 

70 CLOSE2 

Durch Verwendung von IWAIT vor IINPUT bleiben die 
Abbruchfunktionen bis zuletzt erhalten. Auch tritt dann die 
Eingabe-Timeout-Abfrage erst in Kraft, wenn der 
RS232-Teilnehmer den gesamten Text erhalten hat. 

8188 Byte Pufferspeicher 

IPUFFERL 

Mit diesem Befehl werden bis zu 8188 Zeichen (ohne daß 
eines davon verloren geht) in einen internen Puffer eingele¬ 
sen. Eingabegerät ist hier die Tastatur und/oder die 
RS232-Schnittstelle. Diese Routine übernimmt so lange Zei- 
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chen bis sie »...« + Return als Enderkennung erhält und über¬ 
gibt dann die Länge des eingegebenen Textes in die Variable 
»TL«. Durch Drücken der CTRL/X-Taste oder durch ein 
Eingabe-Timeout wird diese Routine verlassen; die Ender¬ 
kennung »...«+ Return wird dabei selbständig vom Programm 
in den Puffer abgelegt, damit der bis dahin eingegebene Text 
noch weiter verwendet werden kann. Die Länge des einzule¬ 
senden Textes kann durch eine nachfolgende Variable fest¬ 
gelegt werden (hier »L«). Der interne Puffer beginnt bei 
$AOOO (40960) und geht bis $BFFF (49151) und kann mit 
dem nächsten Befehl leicht ausgeiesen werden. 

!GET AD,A$ 

Durch diese Sequenz wird der interne Puffer ab der ange¬ 
gebenen Adresse (hier: AD) nach einem Return durchsucht, 
und dann in einen String übergeben. 

Programmbeispiel: 

110 A$=CHR$(38) + CHR$(224) 

120 OPEN2,2,2,A$ 

130 IPUFFER 8188 
140 A$="Der Text:" 

150 IWAIT A$+CHR$(13) 

160 AD = 40960 
170 IGET AD,A$ 

180 IF A$= "... "THEN 220 
190 AD=AD + LEN(A$) 

200 IPRINT A$+CHR$(13) 

210 GOTO 170 
220 IWAIT"Das war’s." 

230 CL0SE2 


Timeouts 


!SET S,E,C1,C2 

Hiermit können alle Timeouts verändert werden. 

S = CTRL/S-Timeout: Timeout bei Betätigen der CTRL/S- 
Taste (1 bis 255 Sekunden). Bei 0 gibt es kein Timeout. 
E = Eingabetimeout: Timeout bei jeglicher Eingabeforde¬ 
rung (1 bis 255 Sekunden). Bei 0 gibt es kein Timeout. 

CI = Maximale Durchlaufzeit der Carrierabfrageroutine 
(2 bis 255 Sekunden) 

C2 = Wie lange muß ein bestehendes Carrier gefunden wer¬ 
den, damit das Programm fortfährt (1 bis 30 Sekunden). CI 
muß größer als C2 sein. 

Kaltstart: Bei der Eingabe von SYS 49152 werden fol¬ 
gende Einschaltzustände gesetzt: 

ISET 120,60,30,2 
IRON /ICON /ICLR 

Carrier: Fehlt das Carriersignal bei einer RS232-Ein/Aus- 
gabe (User-Port:PB4 Pin H = 1 oder Bit4 in 56577 = 1), so 
springt das Programm in eine Carrier-Suchroutine, in der es 
(bei Normalparametern) 30 Sekunden lang ein zwei Sekun¬ 
den langes Carrier-Signal sucht. Wird dies nach 30 Sekun¬ 
den nicht gefunden, wird das »kein Carrier«-Bit in der Status¬ 
variablen »RS« gesetzt. Spätere RS232-Ein/Ausgabeversu- 
che sind zwecklos, da das entsprechende Programm sofort 
wieder ins Basic zurückspringt. Man kann allerdings mit ICLR 
das »kein Carrier«-Bit wieder löschen. 

Statusvariable »RS«: Sie ist dafür zuständig, alle Rückmel¬ 
dungen der angesprungenen Routinen in das Basic zu über¬ 
geben. 


IGET# F,A$ (L (, A)J 

Hier wird eine Zeichenkette der bestimmten Länge »L«,oder 
bis zu einem bestimmten Abbruchzeichen »A« von dem durch 
die Dateinummer »F« angesprochenen Gerät eingelesen 
und in einen String übergeben. Zur Erkennung, wie der String 
zustande kam, das heißt, ob es ein Abbruch wegen erreichter 
Länge oder wegen erreichtem Abbruchzeichen war, werden 
entsprechende Bits in die Statusvariablen gesetzt. 

Zum Beispiel: IGET # Dateinummer,A$. Es werden 255 
Zeichen von dem Eingabegerät eingelesen. Das Abbruchzei¬ 
chen wird automatisch auf 255 festgelegt. 

IGET# Dateinummer,A$,10 

Genau 10 Zeichen werden eingelesen. 

IGET # Dateinummer,A$,255,13 
Hier werden 255 Zeichen eingelesen, sofern sich kein End¬ 
kennzeichen mit dem CHR$-Wert 13 Findet. 


Bit: ” 

76543210 

10000000 

1000000 

100000 

10000 

1000 

100 

10 

1 


(wenn Bit X=1) 

= kein Carrier 
= RS232 an 

= Eingabetimeout erreicht 
(bei IINPUT/IPUFFER) 

= interner Puffer voll (bei IPUFFER) 

= bei IGET # Dateinr.,A$ max. Zeichenzahl 
erreicht 

= bei IGET # Dateinr.,A$ Abbruchzeichen 
gefunden 

= CTRL/C-Abbruch 
= CTRL/X-Abbruch 


Beispiel einer Abfrage: 


Programmbeispiel: 

10 A$ = CHR$(38) + CHR$(224) 

20 OPEN2,2,2,A$ 

30 A$="Text,S,R" 

40 OPEN 1,8,2,A$ 

50 IGET#1,A$,255,13 
60 IWAIT A$ 

70 IF ST AND 64 THEN 50 
80 CLOSE2 

ICLR 

Die Statusvariable »RS« wird bei gesetztem »kein Carriers- 
Bit zurückgesetzt (siehe Carrier). 

IRON/IROFF 

Schaltet die Ausgabe auf die RS232-Schnittstelle ein/aus. 
Bei IROFF fallen sämtliche Timeouts sowie die Carrierab¬ 
frage weg (siehe Carrier). 

ICON/ICOFF 

Schaltet die Carrierabfrage ein/aus (siehe Carrier). 


IF RS AND 211 THEN GOTO 

(wenn CTRL/C-Abbruch erfolgt, verzweige) 

Bildschirmanzeige: Zur Kontrolle, in welcher Routine sich der 
Computer zur Zeit befindet, werden folgende Zustände 
rechts oben auf dem Bildschirm ausgegeben: 
»<-WCSIT->« 

W = Programm befindet sich in der IWAIT-Routine 
C = Carrier fehlte momentan und der Computer befindet 
sich in der Carrier-Suchroutine 
S = Die CTRL/S-Taste wurde betätigt 
I = Der Computer befindet sich in einer Eingabeanforde¬ 
rung 

T = Ein Timeout ist bei dem laufenden Befehl festgesetzt 
Wenn keine der Funktionen angesprochen ist, zeigt der 

Computer »<->« auf dem Bildschirm an. Nach dem 

Verlassen der Routine wird der frühere Bildschirminhalt wie¬ 
der hergestellt. 

Funktionstastenbelegung: Zur besseren Übersicht wur¬ 
den folgende Funktionstasten mit CHR$-Codes für eine ein¬ 
fachere Mailbox-Steuerung belegt. 
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C 64 


Datenfernübertragung (DFU) 


Fl = CTRL/X 
F3 = CTRL/C 
F5 = CTRL/S 
F7 = CTRL/Q 

F8 = simuliert ein fehlendes Carrier (Anwendung: gewollter 
Rauswurf aus der Mailbox) 

Cursor: Das Programm besitzt einen eigenen stehenden 
Cursor (kleiner Strich), der dem Benutzer immer die aktuelle 
Position bei einer Ein/Ausgabe anzeigt (bei IPRINT /IWAIT 
/IINPUT /IPUFFER). 

Zum Schluß noch ein paar technische Daten. Das Pro¬ 
gramm belegt nach dem Starten zirka 2,5 KByte im SCOOO 
(49152)-Bereich, also keinen Basic-Speicherplatz. Der 
interne Puffer (für IPUFFER) hat eine Länge von genau 
8 KByte und liegt ab $A000 (40690) bis $BFFF (49151). 
Die gesamten Routinen sind für eine 7 Daten-Bit Host- 
Ein/Ausgabe mit beliebiger Baudrate (50 bis 2400 Baud) 
ausgelegt: das achte Bit bei einer 8 Daten-Bit-Ausgabe wird 
einfach ignoriert. Die Ausgabe wird wie gewöhnlich durch 


den Open-Befehl eingestellt (wieviel Daten-Bits, welche 
Baudrate). Die zur RS232-Übertragung möglichen Zeichen 
sind auf die normalen ASCII-Zeichen und alle Zeichen unter 
dem CHR$-Code 32 festgelegt. Allerdings werden ein Teil 
dieser Codes, wegen ihrer Steuerzeichenfunktion (CRSR- 
HOME, CRSR-UP/DOWN) nicht auf dem Bildschirm ausge¬ 
geben. 

Garant 


Diese Routinen halten, wenn richtig eingesetzt, das, was 
sie versprechen. Der beste Beweis hierfür ist wohl der prakti¬ 
sche Einsatz einer Mailbox. In diesem Falle ist das die ACM- 
Club e.V.-Mailbox in München (089/8120338), die nun 
schon seit etwa sechs Monaten mit diesen Routinen ein¬ 
wandfrei arbeitet. Rufen Sie doch einmal an und verschaffen 
sich einen Eindruck von der Leistungsfähigkeit des Mailbox- 
Basic. 

(R. Horstmann/aw) 
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Proterm-64AXT - Terminal¬ 
programm der Spitzenklasse 



Proterm-64/XT braucht den Vergleich mit kommerziellen Terminalprogrammen 
nicht zu scheuen. Viele DFÜ-Freaks sind der Meinung, daß Proterm 
sogar das beste Terminalprogramm für den C 64 ist. 


Proterm-64/XT ist die neueste Version von Proterm, das als 
»Public Domain«-Programm einen großen Bekanntheitsgrad 
erreichte. Norbert Demgensky hat uns seine neueste Version 
zum Abdruck zur Verfügung gestellt. 

Proterm-64/XT ist vollständig in Maschinensprache 
geschrieben und bietet somit ein Optimum an Schnelligkeit 
und Speicherausnutzung. Das Programm belegt während 
des Laufs lediglich 6,5 Kilobyte, der restliche Speicher steht 
für einen Textspeicher mit 99 Zeilen zu 80 Zeichen und den 
Protokollspeicher von etwa 31 Kilobyte zur Verfügung. 


Nach dem Laden des Programms erscheint links der Pro¬ 
grammname und auf der rechten Seite läuft eine Stoppuhr. 
Unter der Kopfzeile erscheint der Cursor und zeigt damit an, 
daß das Programm zum Terminalbetrieb bereit ist. 

Sondertasten sind CLR und CTRL-U. Mit CLR wird zum 
Hostrechner ein ESC gesendet, um zum Beispiel Menütexte 
oder Funktionen abzubrechen. Mit CTRL-U (Control und »U«) 
wird die Stoppuhr auf Null gesetzt. Es empfiehlt sich gerade 
bei Fernverbindungen bei Verbindungsaufbau die Uhr 
zurückzusetzen, damit man einen Überblick über die vergan- 
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gene Zeit und damit über die anfallenden Kosten hat. 

Alle Steuerfunktionen können über die Funktionstasten Fl 
bis F8 aufgerufen werden. Im einzelnen stehen hier folgende 
Funktionen zur Verfügung: 

Fl = Ändern der Übertragungsparameter (Baudrate, 
Datenbits, etc.) 

F2 = Farbauswahl für Hintergrund, Rahmen und Zeichen 
F3 = Speicherfunktionen für den Textspeicher 
F4 = Aufrufen des Mailbox-Verzeichnisses 
F5 = Protokoll-Funktionen (ansehen, sichern etc.) 

F6 = An- oder Abschalten des Protokollspeichers 
F7 = Dateifunktionen (ansehen, senden etc.) 

F8= Programmende 

Beim Aufruf einer der Funktionen wird in der linken oberen 
Ecke des Bildschirms jeweils ein Fenster eingeblendet, in 
dem, je nach Funktion, mehrere Unterfunktionen aufgerufen 
werden können. Dieses geschieht durch Drücken der vor 
jedem Punkt stehenden Ziffer. Jede andere Taste beendet 
die Funktion und stellt den alten Bildschirminhalt wieder her, 
das heißt Texte, die sich unter dem Fenster befinden, werden 
nicht zerstört. 

Im folgenden werden die einzelnen Funktionen in obiger 
Reihenfolge besprochen: 

Fl = Ändern der Übertragungsparameter 

Hier können folgende Parameter eingestellt werden: 

1. Baudrate 

Möglich sind die Baudraten 50, 75, 110, 150, 300, 600 und 
1200 Baud (Standardwert = 300). 

2. Datenbits 

Hier können Sie zwischen 7 und 8 Datenbits wählen, wobei 
7 Datenbits der Standard sind. 

3. Stoppbits 

Wahlmöglichkeit zwischen 1 und 2 Stoppbits, Standardwert 
ist 1 Stoppbit. 

4. Parity 

Zugelassen sind no, mark, space, even und odd-parity, wobei 
»no parity« der Standardwert ist. 

5. Duplex 

Möglich sind Vollduplex, Halbduplex und Host. 

»Vollduplex« bedeutet, daß jedes Zeichen erst als Echo vom 
Hostrechner auf dem Schirm erscheint. 

Bei »Halbduplex« wird das Zeichen gesendet und gleichzeitig 
auf dem Schirm ausgegeben. 

Bei »Host« wird der Gegenstelle jedes von ihr gesendete 
Zeichen zurückgeschickt, so wie es bei Mailboxen üblich ist. 
Standard ist Vollduplex zum Anrufen von anderen Mailboxen. 

6. Pause 

Hiermit kann eingestellt werden, wie Proterm automatisch 
Texte senden soll. Wahlweise können die Texte im Quittungs¬ 
betrieb, ohne jegliche Pause oder mit einstellbarer Verzöge¬ 
rung nach jedem Zeichen übertragen werden. 

7. Linefeed 

Je nach den Erfordernissen der Gegenstation kann bestimmt 
werden, welche Zeichenfolge anstelle des »Return« gesen¬ 
det werden soll. Möglich sind hier nur Return, Return und 
Linefeed, Linefeed und Return und nur Linefeed. 

Alle Parameter können durch Drücken einer der Tasten 
1 bis 7 geändert werden, wobei bei mehr als zwei Wahlmög¬ 
lichkeiten bei jedem Tastendruck der Wert eine Position wei¬ 
tergeschoben wird. 

F2 = Farbauswahl 

Im Grundzustand ist schwarze Schrift auf weißem Grund und 
weiße Rahmenfarbe eingestellt. Mit den Tasten 1 bis 3 lassen 
sich die Bildschirmfarben individuell einstellen. 

Gleiche Farben für Hintergrund und Schrift werden von 
Proterm-64/XT übersprungen, ansonsten sind aber alle 
möglichen Farbkombinationen zugelassen. 


F3 = Textspeicher 

Die folgenden Funktionen beziehen sich auf den eingebau¬ 
ten Textspeicher von maximal 99 Zeilen zu 80 Zeichen. 
Hier stehen folgende Funktionen zur Verfügung: 

1. Text eingeben 

In der Kopfzeile erscheint ein »Lineal«, das anzeigt, wo inner¬ 
halb der Zeile man sich gerade befindet. Die mögliche Zeilen¬ 
breite ist 80 Zeichen, wobei der Text horizontal und vertikal 
gescrollt wird, wenn die Grenzen des Bildschirms berührt 
werden. In der Kopfzeile wird angegeben, in welcher Zeile 
man sich gerade befindet. 

An Steuerfunktionen sind die Cursor-Tasten, INSERT und 
DELETE zugelassen, wobei INSERT und DELETE nur inner¬ 
halb der aktuellen Zeile arbeiten. HOME setzt den Cursor auf 
Zeile 1, Stelle 1 und CLR auf Zeile 99, Stelle 1. SHIFT- 
RETURN löscht die aktuelle Zeile ab Cursorposition. 

F7 fügt ab der aktuellen Cursorposition eine Leerzeile ein. 
Der Rest des Textes verschiebt sich entsprechend. 

F8 löscht die aktuelle Zeile. 

F3 beendet die Eingabe. Es erscheint dann wieder das 
Menüfenster.Der Text bleibt gespeichert und kann jederzeit 
durch Drücken von »1« neu editiert werden. 

2. Text laden 

Geladen werden kann jede beliebige sequentielle Datei mit 
maximal 99 Datensätzen. Ist die Datei länger, bleibt der Rest 
unberücksichtigt. 

3. Text sichern 

Der Inhalt des aktuellen Textspeichers wird auf der Diskette 
gesichert. 

4. Text senden 

Der Inhalt des aktuellen Textes wird an die Gegenstation 
gesendet. Die Ausgabe kann mit STOP angehalten und 
anschließend mit »c« abgebrochen oder mit jeder anderen 
Taste ’o. gesetzt werden. 

5. Text löschen 

Der aktuelle Textspeicher kann gelöscht werden. 

F4 = Mailbox-Verzeichnis ansehen 

Aus der optionalen Steuerdatei (siehe Anhang) kann eine 
Tabelle von Mailboxen mit Rufnummern und Parametern gela¬ 
den werden. Mit dieser Funktion wird die Tabelle, soweit vor¬ 
handen, auf dem Schirm angezeigt. Mit den Cursortasten 
kann jetzt der reverse Balken auf die gewünschte Zeile 
gesetzt werden. Nach Drücken von RETURN werden die 
gespeicherten Parameter übernommen und in der Kopfzeile 
die Telefon-Nummer eingeblendet. 

F5 = Protokoll-Funktionen 

Alle eingegebenen oder angekommenen Zeichen können 
protokolliert werden, wenn im Menü 1 das entsprechende 
Kennzeichen gesetzt wurde. 

Der Inhalt des Protokollspeichers kann bearbeitet werden. 
Es stehen folgende Funktionen zur Verfügung: 

1. Protokoll ansehen 

Der Inhalt des Protokolls wird auf dem Bildschirm noch einmal 
angezeigt. Nach jeweils einer vollen Seite wird die Ausgabe 
angehalten und kann mit SPACE fortgesetzt werden. Nach 
Ende des Protokolls ist man dann wieder im Menü. Der 
aktuelle Bildschirminhalt wird durch die Funktion nicht zer¬ 
stört. 

2. Protokoll drucken 

Das Protokoll wird auf einen angeschlossenen Drucker über 
den seriellen Bus ausgegeben, wobei das Programm die Pri¬ 
märadresse 4 verwendet, sofern in der optionalen Steuer¬ 
datei nichts anderes angegeben ist (siehe Anhang). 

3. Protokoll löschen 

Der Protokollspeicher wird gelöscht. 

4. Protokoll sichern 

Der Inhalt des Protokollspeichers kann unter einem beliebi¬ 
gen Namen auf der Diskette gesichert werden. 
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Es wird immer die aktuelle Anzahl der freien Bytes im Proto¬ 
kollspeicher angegeben, hier stehen etwa 31 Kilobyte zur 
Verfügung. 

F6 = An- oder Abschalten des Protokolls 

Es kann der interne Protokollspeicher ein- oder ausgeschal¬ 
tet werden. Bei eingeschaltetem »Protokoll« wird jedes 
gesendete oder empfangene Zeichen in den Speicher 
geschrieben und kann dann später noch mal angesehen, 
gedruckt oder auf Diskette gesichert werden. 

Bei eingeschaltetem »Protokoll« wird der Schriftzug 
»PROTERM-64/XT« in der Kopfzeile zur Kontrolle revers 
angezeigt. 

Der Protokollspeicher reicht bei kontinuierlichem Empfang 
für etwa 15 Minuten. 

F7 = Dateifunktionen 

Mit dieser Funktion kann man auf der Diskette gespeicherte 
sequentielle Dateien bearbeiten. Es stehen hier folgende 
Funktionen zur Auswahl: 

1. Datei ansehen 

Nach der Eingabe des Namens wird der Inhalt der Datei auf 
dem Bildschirm angezeigt. Nach jeder vollen Seite kann die 
Ausgabe mit SPACE fortgesetzt oder mit STOP abgebrochen 
werden. Anschließend ist man wieder im Menü. Der aktuelle 
Bildschirminhalt wird durch die Funktion nicht zerstört. 

2. Datei löschen 

Nach der Eingabe des Namens wird die Datei von der Dis¬ 
kette gelöscht. 

3. Datei senden 

Eine beliebige sequentielle Datei kann hiermit direkt von der 
Diskette zur Gegenstation gesendet werden. Im Gegensatz 
zum Textspeicher ist die Länge des Textes hierbei nicht 
begrenzt. Die Ausgabe kann jederzeit mit STOP angehalten 
und danach mit »C« abgebrochen oder mit jeder anderen 
Taste fortgesetzt werden. 

4. Inhaltsverzeichnis 

Alle sequentiellen Dateien auf der Diskette werden mit ihrem 
Namen zweispaltig angezeigt. Nach dem Drücken von 
RETURN ist man wieder im Menü. Der aktuelle Bildschirmin¬ 
halt wird durch die Funktion nicht zerstört. 

F8 = Programmende 

Nach Drücken von F8 kann man durch nochmalige Bestäti¬ 
gung mit »Fl« das Programm beenden. Jede andere Taste 
löscht das Programm wieder. 

Bei allen Funktionen, die mit Diskette arbeiten, wird in der 
Kopfzeile eine eventuelle Fehlermeldung angezeigt, wenn 
der Zugriff auf die Diskette nicht erfolgreich war. Die Meldung 
muß dann jeweils mit RETURN bestätigt werden. Beim 
Löschen einer Datei wird die Meldung in jedem Fall ausgege¬ 
ben und muß dort auch bestätigt werden. 

Phrasenspeicher anzeigen/aufrufen 

Mit der Taste »—« können die zehn möglichen Festtexte 
(Phrasen) angezeigt und durch eine der Zifferntasten 0-9 
an die Gegenstation abgeschickt werden. Jede andere Taste 
springt wieder ins normale Programm zurück. 

Die Texte werden in der optionalen Steuerdatei (siehe 
Anhang) definiert und beim Programmstart eingelesen. 

Die optionale Steuerdatei dient zur Definition von Standard¬ 
dateien, der Anpassung des verwendeten Druckers ans Pro¬ 
gramm, zur Steuerung der Farbkombination und zur Defini¬ 
tion eines Mailbox-Verzeichnisses. 

Die Datei wird als normales Basic-Programm eingegeben 
und muß unter dem Namen »..param« (Beispiel: Listing 2) auf 
der Proterm-Diskette gespeichert werden. 

Alle Einträge beginnen mit einem Anführungszeichen 
an der ersten Stelle; andere Zeilen werden von Proterm 
ignoriert. 

Standardtexte (Phrasen) 


Tabelle der Parameter 


1. Stelle = Baudrate 


0 

50 Baud 

1 

75 Baud 

2 

110 Baud 

3 

150 Baud 

4 

300 Baud 

5 

600 Baud 

6 

1200 Baud 

2. Stelle = Datenbits 


0 

7 Datenbits 

1 

8 Datenbits 

3. Stelle = Stoppbits 


0 

1 Stoppbit 

1 = 

2 Stoppbits 

4. Stelle = Parity 


0 

Even parity 

1 

Odd parity 

2 

No parity 

3 

Mark parity 

4 

Space parity 

5. Stelle = Duplex-Modus 

0 

Voll-Duplex 

1 

Halb-Duplex 

2 

Host 

6. Stelle - Pause 


0 

Quittungs-Betrieb 

1 

Keine Verzögerung 

2 

10 ms 

3 = 

20 ms 

4 

30 ms 

5 

50 ms 

6 

100 ms 

7 

200 ms 

8 

300 ms 

9 

500 ms 

7. Stelle = Linefeed 


0 

CR 

1 

CR + LF 

2 

LF + CR 

3 

LF 

Farbwerte für Farbkombination 

0 

Schwarz 

1 

Weiß 

2 

Rot 

3 

Cyan 

4 

Violett 

5 

Grün 

6 

Blau 

7 

Gelb 

8 

Orange 

9 

Braun 

a = 

Hellrot 

b = 

Dunkelgrau 

c = 

Mittelgrau 

d 

Hellgrün 

e = 

Hellblau 

f 

Hellgrau 


Standardtexte werden in der Form 
$n,text 

eingegeben, wobei für n eine der Ziffern 0 bis 9 anzugeben 
ist. Der Text kann bis zu 63 Zeichen umfassen, ein Klammer- 
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affe innerhalb des Textes wird als Return zur Gegenstation 
gesendet. 

Farbkombination 

Die gewünschte Farbkombination kann in der Form 
% Hintergrundfarbe, Rahmenfarbe,Zeichenfarbe 
eingegeben werden. Die möglichen Werte gehen von 0 - F, 
wobei die Buchstaben A - F die Werte 10 - 15 in hexadezima¬ 
ler Schreibweise darstellen. 

Druckeranpassung 

Für den verwendeten Drucker können folgende Parameter 
angegeben werden: 

/Primäradresse,Sekundäradresse (,c) 

Durch das »c« wird ein Commodore-Drucker gekennzeich¬ 
net, der dann zur korrekten Darstellung von Klein- und Groß¬ 
schreibung vor jeder Zeile ein Cursor-abwärts gesendet 
bekommt. 


Mailbox-Verzeichnis 

Die Liste der Mailboxen kann bis zu 600 Nummern umfassen, 
wobei jeder Eintrag 48 Byte des Protokoll-Speichers bean¬ 
sprucht. 

Die Definition einer Mailbox erfolgt in der Form 
+Name,Telefonnummer,Parameter 

Für den Namen sind maximal 25 Stellen vorgesehen; für die 
Telefonnummer maximal 15 Stellen. 

Die Parameter geben alle Übertragungsparameter der ersten 
Bildschirm-Maske an, wobei hier jeweils einstellige Ziffern 
von 0 - Maximum angegeben werden können. Es folgt eine 
Liste der einzelnen Parameter und die einzugebenden Werte. 
Erscheint bei der Anzeige der Mailboxliste hinter einer Defini¬ 
tion ein Sternchen, ist in der Definition ein Fehler vorhanden. 

(Norbert Demgenski/hm) 
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BontHKino«o aus 
anderen ländern bitte 
per Amlanosposi- 

anwesungl AcliUaig. 

N«ht die ««voenefteto 

Zahlkarle verwenden! 


Bestellungen aus de' 
Schweiz bitte direKt an: 
MartdiToohrtk 
Vertriebs AG Kolle-str 3, 
CH-6300 Zufl. 
Tel. 042'41 56 SG. 
Buatollungon aut 
ösIorretcJi b.tte direkt an. 
Bücherzentrum Meidfing. 
Scnonbrunnemtr 261. 

1120 Wien. 
T* 0222/833190 
Mifcroromput-tque 
Erhard Schiller 
Fasonga&se 21.1030 Wien. 
Toi 0222/785661 


Programme aus den früheren Ausgaben 

Sonderheft: Tips&Tricks 

(2. ü. Auflage) 

Floppv-utilitios CB 023 DM 29,90' 

Hilfsprogramme CB 024 DM 29,90' 

Sonderheft: Abenteuerspiele 

Bestell-Nr.: L685 S2 DM 34,90* 

Sonderheft: Spiele 

Beide Disketten in einem Paketl 
Verwenden Sie nur diese Bestell-Nr.: 

Bestell-Nr.: L 6 85 S3 A DM 34,90* 

Sonderheft: Grafik 

Bestell-Nr. L 6 85 S4 A DM 29,90' 

Sonderheft: Top-Themen 

12 Diskelten) 

Bestell-Nr. L 685 S6 DM 34.90* 

Sonderheft: Floppy, 

Datasette 

Oiskette, 

Bestell-Nr. L 685 S5 D DM 29.90* 

Kassette, 

Bestell Nr. L 685 S5 K DM 19,90* 

Ausgabe 11/85 

Bestell-Nr. L 685 11 A DM 29,90* 

Ausgabe 10/85 

Leider hat sich in die Bestell-Nummer 
der lernen Programm-Service-Anzeige 
ein Druckfehler eingeschlichen. Die kor¬ 
rigierte Bestell-Nummer lautet: 

L 6 8510 A DM 29,90* 

Commodore 64 

Check V3 Dez 64 S. 54 

MSE V1.0 


Floppy-Adjust 

s. 

32 

Eprom-Trans 

s. 

42 

Schreiberling 

s. 

54 

Cursus Latinus (AdM) 

s. 

57 

Hypra-Text IldM) 

s. 

67 

Pacman 

s. 

76 

Programm GEN 

s. 

86 

SM0N + 

s. 

87 

Sequenzer 

s. 

129 

Musik 

s. 

129 

Alarmanlage 

s. 

132 

Codeschloß 

s. 

132 

Ausgabe 9/85 



Bestell-Nr. L 6 8509 A 

DM 29. 

90* 

Commodore 64 



Sound-Machine 

S 

. 23 

Noteneingabe 

S. 24 

-25 

Sound Master 

s 

. 32 

Ringmod 

S 

. 32 

Moonlight 

s 

. 33 

SY NC 

s 

. 33 

Prüfungsfragen (AdM) 

S, 55 

-58 

Schlüssel ILdMI 

S. 59 

-61 

Disk Designer 

S. 70 

-72 

Blinker 

Logelei-1/2 

s S 

118 

Lichtgr. 

s. 

122 

Mischsort 

s. 

127 

Block Busters 

s. 

159 

X-Gleichung 

s. 

159 

Musik Tool 

s. 

159 

Ausgabe 8/85 



Bestell-Nr. L 68508A 

DM 29, 

90* 

Commodore 64 



Quicksort 

s. 

142 


Ptocedure 

S. 

78 

Hypra-Save 

S, 

79 

Uhr 

s. 

22 

NEWEA2 (AdM) 

s. 

60 

Disk-Monitor 

s. 

84 

Maskengenerator 

s. 

87 

Bit-Map 

s. 

81 

Hires3-Komplett 

s. 

159 

Forth-Compiler (LdM) 

s. 

63 

Vocabulary 

s. 

69 

Schach 

s. 

74 

Extern-Kurs 

s. 

147 

Sprites 

s. 

44 

Hypra-Zusatz 

s. 

25 

Hi-Text 2.0 

s. 

71 

Ausgabe 7/85 



Bestell-Nr. L 6 8507 A 

DM 29.90* 

Commodore 64 
Haushaltsbuch (AdM) 

S. 

57 

Terminalprogramm 

S. 

152 

Centron 

s. 

80 

Editor 

s. 

151 

Ein-/Ausgaberoutine 

s. 

77 

Fenster IC 161 

s. 

84 

File-Compactor 

s. 

82 

Hypra-Assembler ILdMI 

s. 

66 

lEEE-Basic 

s. 

46 

Logik 

s. 

144 

Merkzettel 

s. 

83 

Modulator 

s. 

46 

REM Killer 

s. 

75 

Sound Editor 

s. 

136 

Startgenerator 

Ausgabe 6/85 

s. 

74 

Bestell-Nr. L 6 8506A 

DM 29,90* 

Commodore 64 

MSE 

s. 

54 

HI-EDDI/MPS 801 

S. 

69 

Prost 

s. 

76 

E-Routine 64 

S. 

148 

GCR-HEX 

S. 

117 

HEX-GCR 

s. 

118 

Samurai 

s. 

72 

Scroll-Machine (LdM) 

s. 

61 

Crossreferenz 

s. 

155 

Heapsort 

C 16 

s. 

126 

F-Plotter 

s. 

68 

Ausgabe 5/85 



Bestell-Nr. L 6 8505 A 

DM 29.90* 

Commodore 64 

Che: 1 ' m. Schnell 

S. 

54 

MSE Lader 

S. 

55 

MPS 802 

S. 

31 

Format-System 

S. 

147 

VIC 

S. 

175 

65101 

S. 

71 

Sternenhimmel (AdMI 

S. 

57 

Assemblerkurs 

S. 

144 

Direktory-Sorter 

S. 

77 

Trick.OBJ 

S. 

65 

30-Movie-Maker (LdM) 

S. 

65 

Modulator (Heft 4) 

S. 

155 


VC 20 

Checksummer 

S. 54 

Minigrafik 

S. 69 

Longscreen 

C 16 

S. 83 

Help&Trace 

S. 84 

Ausgabe 4/85 

Bestell-Nr. L 6 8504A 
Commodore 64 

DM 29,90* 

Checksum. Schnell 

S. 54 

MSE Lader 

S. 58 

S-MON Teil 5 

S. 67 

Window 64 

S. 88 

XBASIC 

S. 59 

ASS. Kurs Teil 8 

S. 138 

Hypra-Perfect 

S. 76 

11 neue Einzeiler 

S. 153 

Print-List 

S. 79 

Netzgrafik 

S. 71 

ROT-DEMO 

S. 73 

X.Y-OEMO 1 u. 2 

S. 73 

Ostereier 

S. 51 

Befehlserweiterung 

VC 20 

S. 23 

Checksummer 

S. 56 

Supergrafik III 

S. 73 

Prg. Schutz 

S. 83 

Ausgabe 3/85 

Bestell-Nr. L 6 8603A 
Commodore 64 

DM 29.90* 

Checksu. Schnell 

S. 70 

MSE Lader 

S. 79 

Hires-3/Teil 2 

S. 136 

IntellisearchSC 

S. 153 

Son of Destroyer 

S. 42 

Ligatab (LdM) 

S. 63 

FL Basicloader 

S. 82 

Floppylister 

S. 82 

E.Zeichnen 1 und 2 

S. 72 

Meisterschütze (AdM) 

S, 53 

Saver 

S. 89 

Screensave 

S. 88 

Pic-Loader 

VC 20 

S. 90 

Checksummer 

S. 70 

IRQ-Clock 

S. 156 

Autostart 

S. 159 

Ausgabe 2/86 

Bestell-Nr. L 6 8502A 

DM 29,90* 

Ausgabe 1/85 

Bestell-Nr. L 6 8501A 

DM 29.90* 

Ausgabe 12/84 

Bestell-Nr. CB 022 

DM 29,90' 

Ausgabe 11/84 

Bestell-Nr, CB 020 

DM 29.90* 

Ausgabe 10/84 

Bestell-Nr. CB 019 

DM 29,90' 

Ausgabe 9/84 

Bestell-Nr. CB 014 

DM 29,90' 


Bedoutung der Abkürzungen 

■LdM - Listing des Monets 

•AdM = Anwendung des Monats 

•SB = Simons Basic 

•GV = Grundversion 

*GV > = alle Speicherversionen können 


verwendet weiden (einschließlich 
GVI 

3K « 3-KBytc-Spoichererwelterung 
wird benötigt 

’8K > - Spclchererweiterung größer als 8 
KByte wird benötigt 
UPB = Unterprogrammbibliothek 


Alle Preise inklusive Mehrwertsteuer. 


Fehlende Hefte erhalten Sie 
bei: Markt & Technik 
Vertrieb 64'er 
Hans-Pinsel-Str. 2. 

8013 Haar 











Datenfernübertragung (DFÜ) 


C 64 


Mailbox für 
jedermann 

Mit diesem Programm machen Sie 
Ihren C 64 zu einem elektronischen 
Briefkasten. Sie brauchen nur noch 
ein Gerät, das automatisch den Hörer 
abhebt. 

Der Betreiber der M.C.S.-Mailbox, Kürzel [THW], hat uns 
sein Programm zur Verfügung gestellt. Es hat sich in der Pra¬ 
xis bereits bestens bewährt. Mit diesem Programm kann jeder 
seine eigene Mailbox aufmachen. 

Ein Mailboxprogramm ist eigentlich nichts anderes als ein 
kombiniertes Verwaltungs- und Textverarbeitungsprogramm. 
Der Unterschied zu den genannten Programmen liegt nur in 
der Art der Datenverwaltung. Es verwaltet alle ankommenden 
Daten in seinem System und bietet viele Möglichkeiten es 
weiter auszubauen. 

Das Programm kann bis zu 400 Benutzer mit einer 1541 ver¬ 
walten. Zuzüglich der Text- und Info-Files. 

Neue Texte, die für alle bestimmt sind, werden vom Pro¬ 
gramm automatisch in das vorhandene Nachrichten-File 
(Datei für hinterlassene Nachrichten) eingebunden, so daß 
der nächste Anrufer diese Nachrichten sofort lesen kann. 
Damit ist gewährleistet, daß der Informationsfluß nicht unter¬ 
brochen wird und neue Daten sofort verfügbar sind. 

Die Verwaltung der Anrufer wurde mit einer relativen Datei 
verwirklicht, da diese sich am besten dazu bewährt hat. Plus¬ 
punkte einer solchen Datei sind zum einen der schnelle 
Zugriff auf die einzelnen Records und das unproblematische 
Ändern von Daten. 

Die Schnelligkeit wird auch dadurch erreicht, daß parallel 
zur Recordnummer auch ein Indexfeld mit den Anfangsbuch¬ 
staben der eingetragenen Anrufer im Computer mitläuft. 

Damit wird die Suche nach einem Namen zum Kinderspiel 
und macht sich bei der Identifizierung (UID) sehr schnell posi¬ 
tiv bemerkbar. 

Als Indexfeld wurde ein Integerfeld (U%(X)) verwendet, das 
einige Besonderheiten aufweist. Integervariablen verbrau¬ 
chen bekanntlich wenig Platz im Speicher. Man muß dann 
allerdings alle ASCII-Zeichen in eine Zahl konvertieren und 
diese im Feld ablegen. Beim Suchen wird dann die Zahl wie¬ 
der in ein Zeichen umgewandelt. Die Zeit, die dafür verloren 
geht, ist aber so gering, daß sie nicht ins Gewicht fällt. 

Eine entsprechende Lösung über ein Stringfeld ist nicht 
anzuraten. Dieses verbraucht nur unnötig Speicherplatz und 
zum anderen kann die Garbage Collection erbarmungslos 
zuschlagen. 

Noch ein Wort zur Koppler- oder Modemsteuerung. 

Das Programm verwendet die folgenden Signale und 
Anschlüsse am User-Port 


PB1 

Koppler/Modem 



Pegel 

high aus 
low aktiv 

PB3 

Klingelerkennung 



Pegel 

high kein Anruf 
low Anruf erkannt 

PB4 

Detect-Anzeige 



Pegel 

high keine Gegenstelle 
low Gegenstelle vorhanden 


Es ist wichtig, daß ein Relais zur Aktivierung des Kopplers 
und zum »Abheben« des Telefonhörers über einen Transistor 
als Treiber gesteuert wird, da nur so die User-Port-Ausgänge 
nicht zu stark belastet werden. Außerdem erzielt man damit 
auch die nötige Invertierung der Signale. Man kann dazu die 
Auto-Modem-Schaltung aus der 64'er, Ausgabe 9/84, Seite 
114 verwenden. Allerdings muß die Leitung PB5 (Anschluß H 
im Schaltplan) mit PB1 verbunden werden. 

Die Befehle für die Koppler/Modemsteuerung sind in die¬ 
sem Programm durch REM-Zeilen ausgewiesen. 

Das Programmpaket besteht aus drei einzelnen Programm¬ 
teilen, die zur Inbetriebnahme der Mailbox notwendig sind. 

1. DATEI/SORT/COPY 

Mit diesem Programm wird eine Datendiskette, mit allen 
Files, die das Hauptprogramm erwartet, kreiert. 

Nach der Frage »Datei anlegen« kann unterschieden wer¬ 
den, ob nur eine relative Datei, oder ob eine »komplette Datei« 
angelegt werden soll. Der Unterschied ist, daß bei der ersten 
Wahl nur die Diskette formatiert wird, eine relative Datei und 
ein sequentielles Indexfeld angelegt wird. 

Bei der zweiten Wahl wird eine komplette Datei angelegt mit 
den folgenden Files, die alle das Programm »MAILBOX« 
erwarten: 


Filename 

Filetyp 

Blöcke 

Verwendungszweck 

USER 

rel 

128 

Anrufer verwalten 

M-INDEX 

seq 

X 

Persönliches Indexfeld 

A-INDEX 

seq 

X 

Zwischenspeicher aktueller Daten 

BILD 

seq 

X 

Titelbild 

MESSAGE 

seq 

X 

Öffentliche Nachrichten (Texte) 

ALr 

seq 

X 

Allgemeines File (frei verfügbar) 

RI 

seq 

X 

Rechner Info (frei verfügbar) 

TEL 

seq 

X 

Telefonverzeichnis (freiverf.) 

CL 

seq 

X 

Clubfile (frei verfügbar) 

AK 

seq 

X 

Aktuelles (frei verfügbar) 

P1-P50 

seq 

X 

50 einzelne persönliche Nachrichten 


Die Files BILD,AL,RI,TEL,CL und AK müssen vom Mailbox- 
Betreiber selbst editiert werden. Denn diese werden vom 
Benutzer nur angesehen aber nicht beschrieben. 

Man nimmt dazu einen Editor (Terminal 64 ist dazu sehr gut), 
gibt dort seine Texte ein und speichert diese auf der Datendis¬ 
kette ab, indem man das vorhandene File überschreibt. Die 
anderen Files werden vom System selbst verwaltet. 

Im File »USER« werden die Benutzer, soweit sie sich einge¬ 
tragen haben, gespeichert. 

Es können bei dieser Version maximal 400 Benutzer verwal¬ 
tet werden. 

Pro eingetragenen Anrufer beziehungsweise pro Record 
der Datei werden folgende Daten abgelegt: 


Anrutername 

19 

Zeichen 

Wohnort/Stadt 

19 

Zeichen 

Rechnersystem 

10 

Zeichen 

Passwort 

10 

Zeichen 

Datum des letzten Login 

8 

Zeichen 

Uhrzeit des letzten login 

8 

Zeichen 

Bell on/off 

1 

Zeichen 

Linefeed on/off 

1 

Zeichen 

Profi/Anfänger 

1 

Zeichen 

Reserve 

2 

Zeichen 

Gesamte Recordlänge 

79 

Zeichen 

Plus ein Return (CR) 

80 

Zeichen 


Der File M-INDEX speichert die Namen und Paßwörter der 
eingetragenen Benutzer, für die eine persönliche Nachricht 
vorhanden ist. 
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Datenfernübertragung (DFÜ) 


Wenn sich ein Anrufer zu erkennen gibt (UID), sucht das 
System, ob der Name und das Paßwort im Indexfeld vorhan¬ 
den ist. Wenn ja, ergibt die Laufvariable I (FORI=1TO50) das 
persönliche Textfile (P 1 bis P 50) und wird dem Benutzer 
gezeigt. 

Im File A-INDEX werden alle aktuellen Daten gesichert, 
damit diese nicht verloren gehen, wenn das System sich ein¬ 
mal aufhängen sollte. Gesichert wird das Datum, Anzahl der 
Anrufe, und wann die letzte Nachricht abgespeichert wurde. 

Nach jedem Durchgang (Login-Logoff) werden die Daten 
dort gesichert. 

Persönliche Nachrichten werden in den Files PI bis P50 
abgelegt. Die Belegung dieser Files läuft parallel mit dem M- 
Indexfeld. Mit dem M-Indexfeld wird auch überprüft, ob noch 
Platz für eine weitere persönliche Nachricht vorhanden ist. 

Wird eine Nachricht für jemanden abgelegt, für den schon 
eine vorhanden ist, so wird der neue Text an das vorhandene 
File mit dem Append-Befehl (,s,a) angehängt. 

Die öffentlichen Texte, die von jedem Benutzer eingegeben 
werden können, werden automatisch an den Anfang des 
MESSAGE-Files gestellt. 

Besondere Bedeutung erhält das File »BILD«. Mit diesem 
File hat der Betreiber (Sysop) die Möglichkeit, die Anfangs¬ 
meldung seiner Box zu kreieren. 

2. [ML] INR 

Das Listing muß mit dem MSE eingegeben und auf Diskette 
gespeichert werden. Startadresse dieses Maschinenpro¬ 
gramms ist $C000. Die Maschinenroutine wird automatisch, 
wenn man das Mailboxprogramm gestartet hat, nachgeladen 
und aktiviert. 

Das Maschinenprogramm beinhaltet folgende Funktionen : 

a) Mit SYS49152 wird die RS232-Schnittstelle eröffnet und 
die Pufferzeiger in den $C000-Bereich verbogen. 

Würde man den Kanal in Basic eröffnen, würde der C 64 die 
beiden Ein-/Ausgabe-Puffer am Ende des Basic-Speichers 
anlegen und dadurch den Hauptspeicher um 512 Byte kür¬ 
zen. Aber warum soll man den Basic-Speicher verschwen¬ 
den, wenn man den SCOOO-Bereich dafür nutzen kann. 

b) DieZeiger$F157 (Input), $F1CA(Output) und $F13E(Get) 
werden »verbogen« und zeigen auf die eigene Routine. Dort 
erfolgen die Umrechnungen des ASCII-CBM-Codes. Damit 
spart man sich das lästige Konvertieren in Basic, was sich 
sicherlich auch in einer langsameren Geschwindigkeit aus¬ 
wirkt. 

So genügt es einfach zu sagen: PRINT # 2," HALLO ' um am 
User-Port reinen ASCII-Code zu senden. 

Zum anderen ist dieser PRINT-Befehl auch für die Bild¬ 
schirmausgabe zuständig. Mit einem einzigen PRINT erfolgt 
die Ausgabe auf dem Bildschirm und am User-Port. Dadurch 
erspart man sich die doppelten Ausgaben mit PRINT und 
PRINT #, was sich sicherlich auch vom Speicherplatz her 
bemerkbar macht. 

DerGET #-Befehl ist im Gegensatz zum PRINT # nur für ein 
Eingabegerät zuständig. 

c) Die letzte Routine hat schließlich die Aufgabe, Texte von der 
Floppy auf dem Bildschirm und gleichzeitig auf dem User-Port 
auszugeben. 

Unter anderem wird die Tastatur und der User-Port auf Ein¬ 
gaben abgefragt, und die Eingaben auf Steuerzeichen hin 
geprüft. 

Mit den Codes 
Ctrl/S Halt 
Ctrl/Q Weiter 
Ctrl/X Abbruch 
Ctrl/N Nächster 

kann die Textausgabe vom Benutzer gesteuert werden. 

Nebenbei wird auch die Detect-Anzeige (CD-Leitung aktiv, 
Carrier erhalten) vom Koppler abgefragt und nach Ausbleiben 
die Textausgabe unterbrochen. 


3. MAILBOX 

Um eine gewisse Übersicht und Struktur im Programm zu 
erreichen, wurden die einzelnen Funktionen in Programm- 
Blöcke aufgeteilt. 

Diese sind nach ihrem Zweck entsprechend mit REM- 
Zeilen gekennzeichnet. 

Die einzelnen Blöcke sind in Tabelle 1 dargestellt. 

Die einzelnen Befehle für die Box kann man den Help-Listen 
entnehmen, so daß hier nur ein paar Befehle beschrieben 
werden sollen. 


Zeile Funktion 

10 Floppy initialisieren 

17 Maschinenroutine laden 

32 Programm initialisieren 
(Variablenzuweisung) 

104 Indexfeld der Anruler-Datei laden 
114 Farbe setzen 

118 Eingabe der RS232 erfolgt nur in Großschrift 

121 Es ist Groß- und Kleinschrift erlaubt 

125 Warteschleife für Telefon oder Direktstart 

156 Ein-/Ausgabe und Berechnung der Uhrzeit und des Datums 

247 Dialog beenden (Verbindung abbauen und Daten sichernl 

265 Mailbox beenden (Daten sichern und Programm stoppen) 

272 Daten sichern (A + M-Indexfeld) 

286 Steuerzeichen für Ausgabe abfragen 
297 Textausgabe von Floppy (Einsprung zur Maschinenroutine) 
311 Abfrage des Klingelsignals, erkennt dann Start 
320 Bell on/off (CHR$(7)) 

330 Linefeed on/off (CHR$(10)) 

339 Detect-Abfrage am Akustikkoppler/Modem 
351 Timeout und Timelimit überprüfen 
372 Eingabeschleife für Box-Befehle 
385 Systembefehle für den Sysop 

Taste Fl = Direktverbindung Sysop/Anrufer (Chat) 

- ' 3 BM/A = Kontaktadresse ausgeben 
Taste F8 = Detect-Abfrage blockieren 

Muß gedrückt werden, wenn man im Direktmodus 
ohne Koppler oder Modem arbeitet. 

Taste F7 = Detect-Abfrage ist wieder aktiv 
CBM/R = Dialog Sofortabbruch 
397 String zusammen setzen (GET-Schleife) 

415 Relative Datei öffnen 

425 Record-Nummer für die relative Datei berechnen 

433 Anrufer erkannt und Start der Mailbox 

448 Anzeige der Mailbox-Menüs 

463 Anzeige der Mailbox-Befehle 

478 Befehle auswerlen und ausführen 

521 Berechnung des Timelimits 

535 Benutzer in der Datei mittels Indexfeld suchen 

560 Benutzer ruft den Sysop 

586 Anrufer/Sysop-Dialog (Chat, gleichbedeutend mit Taste Fl) 

602 Eintrag für persönliche Nachricht löschen 
608 Ausgabe für Uhrzeit/Datum und Online-Zeit 
624 Neuer Anrufereintrag (Freiwillige Eingabe) 

656 Benutzerdaten ändern 

742 Ausgabe der eingetragenen Benutzer der Box 

802 Benutzer-ID überprüfen 

855 Prüfen, ob eine persönliche Nachricht vorhanden ist 
867 Eingabe einer persönlichen Nachricht für einen anderen 
Benutzer 
892 Texteditor 

1053 Benutzer-ID erkannt und Identifiziert 
1058 Tonausgabe für Anruf und SOR (Sysop rufen) 

1074 Begrüßung des eingetragenen Benutzers 
1100 Kontaktadresse der Box 
1105 Fehlerabfrage der Floppy 
1121 Auto-Update (Neue Texte einbinden) 

1169 Ton wieder ausschalten 

1177 Mailbox-Texte und Systemmeldungen Tabelle 1. 

1277 Heip-üste Texteditor Aufschlüsselung 

1*1? H " up,menU des Mailbox-Programms 

1301 Mailbox-Menü 3 

1329 Infomenü nach Zellennummern 


er-omni 
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Da die Box sehr offen gehalten ist, kann sich jeder Anrufer 
selbst im System eintragen. Man gibt einfach »NU« ein, und 
danach seinen Namen, Stadt, Computer und das persönliche 
Paßwort. Nach einem »LOGOFF« wird man in die Benutzerli¬ 
ste aufgenommen und man kann sich dann mit dem Befehl 
UID <name> zu erkennen geben. Um einem anderen ein¬ 
getragenen Benutzer eine persönliche Nachricht zu 
schicken, wird der Befehl PME angewendet. Das System 
fragt dann nach dem Namen und wenn vorhanden, kann man 
danach seine Nachricht im Texteditor eingeben und abspei¬ 
chern. 

Es besteht auch die Möglichkeit, sich die Anruferliste anzu¬ 
schauen. Es gibt mehrere Arten der Ausgabe und Suche: 
UL Hiermit wird die gesamte Liste angezeigt. 

ULA Es wird die Anzahl der eingetragenen Benutzer 
angezeigt. 

ULN Es werden nur die Namen der Benutzer gezeigt. 

ULN. Hiermit kann man direkt einen Benutzer suchen. 

Es wird der gesamte Name überprüft. 

ULN ....* dito., allerdings wird nur die Anzahl der eingegebe¬ 
nen Zeichen überprüft. 

Es wird nach der Stadt gesucht (Funktion wie 
oben). 



ULS .. 


DULR 


ULD .. 


UIDA 






SOR 


PRO 


Mit diesem Befehl kann der Benutzer seine per¬ 
sönlichen Daten in der Datei ändern (beispiels¬ 
weise neuer Computer, neue Stadt, etc.). 

Damit kann der Benutzer den Betreiber (Sysop) 
rufen, und wenn dieser anwesend ist, kann ein 
Gespräch (Chat) geführt werden. 

Es werden die Systemmeldungen unterdrückt. 
Wenn man die Befehle kennt, ist es sehr nützlich 
die Help-Listen und Systemmeldungen blockieren 
zu können, da diese Ausgaben Zeit kosten, was 
sich in der Telefonrechnung niederschlägt. 

TI Man erhält das aktuelle Datum und Uhrzeit. Unter 

anderem wird die im System verbrachte Zeit ange¬ 
geben. 

PML Hat ein eingetragener Benutzer eine persönliche 
Nachricht erhalten, so kann er sie sich mit diesem 
Befehl noch einmal anschauen, da diese nach 
einem »LOGOFF« automatisch vom System 
gelöscht wird. 

BE Einige Terminals verwenden ein akustisches 
Signal, um den Benutzer auf bestimmte Meldun¬ 
gen aufmerksam zu machen. Dieses kann mit die¬ 
sem Befehl unterbunden oder freigegeben wer¬ 
den. 

LF Bestimmte DFÜ-Programme brauchen ein Line- 
feed, um den Cursor eine Zeile nach unten zu 
bewegen, da bei ihnen ein RETURN den Cursor 
nur am Zeilenanfang plaziert (on/off- Modus) 

Obwohl dieses Programm für den Mailbox-Betrieb 
geschrieben wurde, so besteht doch für den einen oder 
anderen die Möglichkeit, diese oder jene Funktion für andere 
Programme zu verwenden. Ein Beispiel wäre die Benutzer¬ 
verwaltung. Damit kann man sich ein sehr komfortables 
Adressenprogramm mit Direktzugriff aufbauen. 

Oder das Datum, das um 00:00 Uhr vom System automa¬ 
tisch erhöht wird. Schaltjahre werden selbstverständlich 
berücksichtigt. 

Compiler 

Es ist sicherlich ratsam, das Programm zu compilieren. Es 
erhöht auf alle Fälle die Geschwindigkeit. Aber die Frage ist, 
welcher Compiler sich dafür eignet. 

Der Petspeed eignet sich leider nicht dafür, da er Register 
in der Zeropage benutzt, die normalerweise der RS232 
zugeordnet sind. 


Der Bass-Compiler ist sehr mühsam, langsam und umständ¬ 
lich. 

Bewährt haben sich der Austro- und der Austrospeed Com¬ 
piler von Commodore. 

Empfehlenswert ist der Basic 64 von Data Becker. Dieser 
bietet so viele Möglichkeiten wie kein anderer. Allerdings 
sind einige Bedingungen oder Einstellungen nötig: 

Da Basic 64 den gesamten RAM-Bereich benutzt, somit 
auch den $C000-Bereich, wo die Maschinenroutine liegt, 
muß man dem Compiler klar machen, daß dieser Bereich für 
ihn tabu ist. 

Das macht man, indem man in der Parameterliste des Com¬ 
pilers Basic 64 den Punkt »E« aufruft und dort die Adresse 
49150 eingibt. Dadurch erkennt der Compiler, wo seine 
Grenze ist, und die Routine im $C000 Bereich bleibt erhal¬ 
ten. 

Noch einmal die Abtippvorschriften: 

Zuerst sollten Sie die beiden Basic-Programme (Listing 1 und 2) 
eintippen und auf Diskette speichern. Dann das Maschinen¬ 
programm (Listing 3). Mit dem Programm »DATEI/SORT/- 
COPY« generieren Sie dann eine extra Datendiskette. 

Die M.C.S.-Box, das heißt, das hier abgedruckte Programm 
im praktischen Einsatz, erreichen Sie über die Telefonnum¬ 
mer 040-2512371. 

(Thomas Wieske/hm) 


11 : 

12 CLOSE IS 

15,8,15,"I“ 
fV^_OSE 15 

15 RETURN 

16 : 

17 REM — CMLI ROUTINE LADEN —■ 


7 : 

8 POKE 650,128:GOTO 19 
7 : 

10 REM — FLOPPY INITIALISIEREN 


18 : 

19 X=17:PRINT CHR#(14)CHR*(8)CHR*<147)CHR* 
(X)CHR*(X)CHR*(158) 

20 PRINT“<4SPACE>flASTER-flAILB0X-lYSTEM<3SP 
ACEJVERS.3.0” 

21 GOSUB 12 

22 PRINT CHR*(X >"C2SPACE> ( £) 1985 C2SPACE>H 
RITTEN BY rZtiHI OF fl.fi.ä. ” 

23 FA=0 

24 GOSUB 115 

25 IF A—2 THEN 127 

26 IF PEEK (49152)0169 AND A=0 THEN A=1:L0 
AD“CML 3*",8,1 

27 PRINT CHR*(17)“SITTE SATENDISKETTE EINL 
EGEN"CHR*(17) 

28 PRINT"fl£<3SPACEIi"CHR* <157)CHR*(157)CHR 
*(157)INPUT X* 

29 IF X*="N"THEN END 

30 IF X*0"£"THEN 19 

31 : 

32 REM — PROGRAMM INITIALISIEREN - 

33 : 

34 PRINT CHR* (X >“««»» <2SPACE? S.V-5TER BOQTEH 

»«»«"CHR* < X) 

35 IF PEEK(828)<B THEN 41 

36 OPEN 15,8,15,"V“ 

37 PR INT ".SALI DATE" 

38 FA=2 

39 GOSUB 115 

40 POKE 828,0 

41 GOSUB 12 

42 CLOSE 3:CLR 

43 OPEN 3,3 

44 POKE 49800,240 

45 SYS 49152 


<239> 
<035> 
<241 > 

<125> 
<243> 
< 106 > 
<068> 
< 108 > 
<073> 
<248> 

<190> 

<250'- 

<228> 

<001 > 

<247> 

<203> 

< 107> 

< 144> 
<227> 

<076> 

<152> 

<197> 

<199> 

< 011 > 

<007> 

<023> 

<009> 

<066> 

< 174> 
<044> 
<075> 
<1B6> 

< 159> 

< 148> 
< 011 > 

< 123> 
<106> 
< 202 > 
<103> 


Listing 1. Das eigentliche Nlailbox-Steuerprogramm. 
Beachten Sie die Eingabehinweise auf Seite 6. 
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net 





















C 64 _ Datenfernübertragung (DFÜ) 


46 TE=56577 

<070> 

126 

: 

< 102> 

47 SI=54272 

<0BB> 

127 

PRINT XF*XN*Q* 

<034 > 

48 C=56584 

< 136> 

128 

GOSUB 173 

<024 > 

49 MX=50 

< 005 > 

129 

PRINT”ANRUFEC9SPACE>"RIGHT*(S*+AN*,10) 

<060> 

50 U7.=400 

<133> 

130 

PE=0 

<030> 

51 DIM TE*(40) 

<109> 

131 

ME=0 

<019> 

52 DIM Mt(50) 

< 1 41 > 

132 

UX*=”" 

<204> 

53 DIM UV. (400) 

<247> 

133 

PRINT"ANZAHL USERC4SPACE>"RIGHT*(S*+NR 


54 BE*=CHR*(7> 

<143> 


*,10) 

<039 > 

55 LI*=CHR*(10) 

< 132> 

134 

PRINT"as£f4SPACE)”AK* 

<188> 

56 CR*=CHR*(13> 

<175> 

135 

AN=AN+1 

<106> 

57 XNS=CHR*(17> 

<236> 

136 

AN*=STR*(AN) 

<093 > 

58 XF*=CHR*(19) 

<177> 

137 

NR*=STR*(NR) 

< 199> 

59 XE*=CHR*(24) 

< 161 > 

138 

PRINT XF*Q*Q*”'X* IME '5'ATUM 'ä'TART 


60 RU*=BE*+ 

< 109> 


&NDE " 

<019> 

61 GA=1 

< 181 > 

139 

GOSUB 205 

<251 > 

62 T2=l 

< 113> 

140 

TI*=UR* 

<097> 

63 BE=2 

<227> 

141 

GOSUB 171 

<229> 

64 LI=1 

<012> 

142 

POKE TE,255r REM RELAIS AN PB1 AUSSCHAL 


65 DX=1 

<101> 


TEN 

<149> 

66 LM=1500 

<195> 

143 

DY=0 

< 155> 

67 LL=100 

<075> 

144 

GOSUB 313 

<216> 

68 D=2 

<013> 

145 

GOSUB 163 

<025> 

69 UB*="fiAST” 

<24B> 

146 

PRINT 

<248> 

70 ct= M .c.a.nnFiND ->•• 

<04B> 

147 

GET E*:IF E*="”THEN 143 

< 184> 

71 PO=-l 

<238> 

14B 

IF E*=“T"THEN GOSUB 163:G0T0 158 

<252> 

72 FI*="A—INDEX” 

<108> 

149 

IF E*=”D"THEN GOSUB 171:GOTO 165 

< 187> 

73 GOSUB 299 

< 202> 

150 

IF E*=”E“THEN GOSUB 267:END 

<255> 

74 INPUT#B,DA*,AN*,NR*,AK* 

<254> 

151 

IF E*="S"THEN 435 

<229> 

75 CLDSE 8 

<142> 

152 

GOSUB 205 

<008> 

76 AN=VAL(AN*) 

< 138> 

153 

TI*=UR* 

<110> 

77 GOSUB 421 

< 109> 

154 

GOTO 143 

<242> 

78 FIS="M—INDEX” 

< 120> 

155 

3 

<131> 

79 GOSUB 299 

<208> 

156 

REM — EIN/AUSGABE UND BERECHNUNG DER 


80 FOR 1=1 TO MX 

<024> 


UHRZEIT UND DES DATUMS - 

<019> 

81 INPUT48,M*(I) 

<071 > 

157 

: 

< 133> 

82 NEXT 

<092> 

15B 

X*=CHR*(157)+CHR*(157)+CHR*(157)+CHR*( 


83 CLOSE 8 

<150> 


157):X*=X*+X* 

<243> 

B4 NR=VAL(NR*> 

< 113> 

159 

PRINT X*;:INPUT UR* 

<073> 

85 CLOSF 1:OPEN 1,0 

< 136> 

160 

GOSUB 195 

< 152> 

86 S*=" < 10SPACE}" 

87 S*=S*+S* 


ft 

< 118> 
<250> 

88 J*(l)="äONNTAG" 

<232> 

163 

PRINT XF*Q*"ÜHRZEITCI2SPACE>”TI*; 

<037> 

89 J*(2)="flONTAG” 

<201 > 

164 

RETURN 

<222> 

90 J*(3)="3IENSTAG" 

<1B3> 

165 

PRINT CHR*(145)"AATUM HEUTEC2SPACEJ"j 

< 123 > 

91 J*(4)="nmW0CH" 

<003> 

166 

INPUT DA* 

< 118> 

92 J* (5) = ".BONNERSTAG“ 

< 152> 

167 

DX=1 

<203> 

93 J*(6)="£REITAG" 

<231 > 

168 

GOSUB 173 

<064> 

94 a*C7)=”SAMSTAG" 

< 191> 

169 

GOSUB 171 

<001 > 

95 J*(0)=J*(7) 

<081 > 

170 

GOTO 143 

<002> 

96 O*(l) = "0JJ" 

<022> 

171 

PRINT XF*XN*Q*LEFT*(J#(Z)+S*,10)“DEN <2 


97 □* (2) = " 077." 

<094> 


SPACEJ"DA* 

<060> 

98 RL*=CR*+LI* 

<212> 

172 

RETURN 

<230> 

99 Q*=XN*+XN*+XN*+XNS+XN*+XN*+XN*+XN* 

<130> 

173 

TA=VAL(LEFT*(DA*,2)) 

<021 > 

100 A=2 

<033> 

174 

MO=VAL(MID*(DA*,4,2)) 

<108> 

101 FOR 1=0 TO 3 

< 168> 

175 

JA=VAL(RIGHT*(DA*,4)) 

< 175> 

102 POKE 830+1,0 

<152> 

176 

IF DX=1 THEN DX=0:GOTO 181 

<166> 

103 NEXT 

< 113> 

177 

TA=TA+1 

< 151 > 

104 REM — INDEXFELD USER RELATIV DATEI - 


178 

IF TA>31 THEN TA=1:M0=M0+1:IF M0>12 TH 



<139> 


EN M0=1:JA=JA+1 

< 165> 

105 GOSUB 417 

<057> 

179 

IF MO=2 THEN IF TA>28 THEN IF JA/40IN 


106 RE=60 

<218> 


T(JA/4)THEN M0=3:TA=1 

< 161 > 

107 FOR BL=UX-NR+1 TO UV. 

< 247> 

180 

IF TA>30 AND (M0=4 OR M0=6 OR M0=9 OR M 


108 GOSUB 427 

<076> 


0=11)THEN 177 

<230> 

109 GETttS.U* 

< 123> 

181 

K=INT(.6+(1/M0>) 

<067> 

110 UV. < BL) = ASC (U*) 

<077> 

1B2 

R=JA—K 

<239> 

111 NEXT 

< 121 > 

1B3 

0=M0+12*K 

<064> 

112 GOSUB 421 

< 144> 

1B4 

P=R/100 

<252> 

113 GOTO 19 

< 179> 

185 

Z«(INT(13*(0+1>/5))+(INT((5*R>/4))-(IN 


114 REM — FARBE SETZEN - 



T(P>)+(INT(P/4))+TA 

< 128> 

— 

< 197> 

186 

Z=(Z-(7*INT(Z/7))) 

<096> 

115 POKE 53280,FA 

<214> 

107 

TA*=STR*(TA) 

< 109> 

116 POKE 53281,FA 

<087> 

188 

IF LEN(TA*)=2 THEN TA*=" 0”+RIGHT*(TA* 


117 RETURN 

< 175> 


,1» 

<022> 

118 REM — NUR GROSSCHR1FFT FUER RS232 — 

- 

189 

M0*=STR*(MO) 

<216> 

- — - 

<080> 

190 

IF LEN(MO*)=2 THEN M0*=" 0"+RIGHT*(MO* 


119 POKE 49398,196 

<252> 



<079> 

120 RETURN 

<l/8> 

191 

J A*=STR*(JA) 

<063> 

121 REM — GROSS UND KLEINSCHRIFFT RS232 

- 

192 

IF LEN(JA*)=2 THEN JA*=" 0"+RIGHT*(JA* 



< 168> 



< 181 > 

122 POKE 49398,195 

<247> 




123 RETURN 

<181> 




124 : 

<100> 




125 REM - WARTESCHLEIFE FUER ANRUFER - 






<061 > 

Listing 1. Das Mailbox-Programm (Fortsetzung) 
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Datenfernübertragung (DFU) 


C 64 


193 

194 
193 

196 

197 

198 

199 
280 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 
231 

252 

253 

254 

255 

256 

257 
25B 

259 

260 
261 
262 

263 

264 

265 

266 
267 
26B 

269 

270 

271 


D A*=RIGHT*(TA*, 2 > + " - " +RIGHT*(MO*,2)♦“. 
“+RIGHT*(JA*,4) <063> 

RETURN <252> 

POKE C+7,PEEK ( C+7 > AND 127 <107> 

POKE C+6,PEEK(C+6)QR 128 <102> 

H=VAL(LEFT*(URS,2>) <158> 

M=VAL(MID*(UR*,3,2>) <162> 

S=VAL(RIGHT*(UR*,2)) <012> 

IF H>11 THEN H=H+68 <037> 

POKE C+3,16*1NT(H/10)+H-INT(H/10>»10 <046> 

POKE C+2,16*INT(M/10)+M-INT(M/10)*10 <180> 

POKE C+1,16*INT(S/10)+S-INT(S/10>«10 <143> 

PDKE C,0:RETURN <225> 

H=PEEK(C+3> <094> 

M=PEEK(C+2) <114> 

S=PEEK(C+1) <138> 

SX=PEEK(C) <054> 

FL=1 <157> 

IF CH AND 128 > = 12B THEN H=H-12B:FL=0 <248> 

IF FL=1 THEN 214 <20B> 

IF H=1B THEN 215 <222> 

H—H+18 <204> 

IF H=18 AND FL=1 THEN H=0 <244> 

UR*=' ,B <239> 

V=H <074> 

GOSUB 226 <137> 

GOSUB 228 <203> 

V=M <157> 

GOSUB 226 <140> 

GOSUB 228 <206> 

V=S <001> 

GOSUB 226 <143> 

GOSUB 228 <209> 

RETURN <027> 

V=INT(V/16)»10+V-INT(V/16)*16 <15B> 

RETURN <029> 

V*=STR*(V) <127> 

IF LEN < V*> =2 THEN V*=" 0"+RIGHT*(V*,1> <076> 
IF H=>1B AND M=>0 AND FL=0 AND PEEK(70 
6>=1 THEN POKE 706,0 <132> 

IF H=>0 AND M=>0 AND FL=1 AND PEEK (71 
)=0 THEN 233 
GOTO 237 <184> 

POKE 706,1 <108> 

GOSUB 173 <130> 

DX=1 <015> 

IF DY=0 THEN GOSUB 171 <090> 

UR*=UR*+RIGHT*(V*,2) <001> 

RETURN <040 > 

K*=STR*(XX) <224> 

YY=LEN(K*> <231> 

K*=RIGHT*(K*,YY-1) <039> 

IF YY=1 THEN RETURN <130> 

IF YY=2 THEN K*="00"+K* <028> 

IF YY—3 THEN K*="0"+K* <15B> 

RETURN <047> 

: < 222 > 


REM — DIALOG BEENDEN (LOGOFF) 


POKE 53280,7 
GOSUB 30B 
GOSUB 616 
GOSUB 308 
GOSUB 613 
GOSUB 1097 
GOSUB 679 
GOSUB 309 
GOSUB 513 
GOSUB 604 
GOSUB 268 
A*=" “ 

GOSUB 1123 
LO=0 
GOTO 34 
s 

REM — MAILBOX BEENDEN (DIRECT) - 


PRINT Q*"flAILBOX BEENDEN" 
X=PEEK(B28> 

X=X + 1 

POKE 828,X 


<129> 
<224> 
<057> 
<211 > 

< 187> 
<Z13> 
<093> 
<180> 

< 12B> 
<251 > 
<091 > 

< 116> 
<054> 
<035> 
<235> 
<22B> 
< 011 > 
<242> 

< 122 > 
<244> 
<057> 
<230> 
<043> 
<144> 
<249> 


272 REM — DATEN SICHERN 


273 s 

274 GOSUB 421 

275 OPEN 8,8,2,A-INDEX,S,W" 

276 PRINT RL*"INTERNER £HECK-“ 

277 PRINT#8,DA*;CR*;STR*(AN);CR*;STR*(NR)j 
CR*;AK*;CR* 

278 GOSUB 421 

279 OPEN 8,8,2,M—INDEX,S,W" 

280 FOR 1=1 TO MX 

281 PRINT#8,M*(I) 

282 NEXT 

283 GOSUB 421 

284 RETURN 

285 : 

286 REM — CONTROL ABFRAGE- 


287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 


GETttl, X* 

GET#2,Y* 

IF X*=“"AND Y*="“AND(EX=0 OR EX=2)THEN 
RETURN 

IF X*=XF*OR Y*=XF*THEN EX=1SPRINT“XOFF 
GOSUB 327 

IF X*=XN*OR Y*=XN*THEN EX=0:PRINT“XON" 
:GOSUB 327 

IF X*=XE*OR Y*=XE*THEN EX=2:PRINT"XEND 
GOSUB 327 
GOSUB 353 
GOTO 288 


REM — TEXTAUSGABE FLOPPY > RS232 


298 : 

299 GOSUB 421 

300 OPEN 8,B,0,FI*+" ,S,R" 

301 RETURN 

302 PRINT#D,RL* 

303 GOSUB 299 

a6 <0i*- ä ans 

306 GOSUB 421 

307 RETURN 

308 PRINT#3, " " ; : PRINTt*D,RL*; : RETURN 

309 PRINT#3," ";sPRINT#D,RL*:RETURN 

310 : 

311 REM — KLINGELABFRAGE 8. START WENN PB3 

= 1 (DEZ.8) IST - 

312 : 

313 IF(PEEK(TE)AND B)=B THEN RETURN 

314 POKE TE,255-2:REM RELAIS AN PB1 EINSCH 
ALTEN 

315 PRINT#D,RL«; 

316 TN=225 

317 GOSUB 1059 

318 GOTO 435 

319 : 

320 REM — ON/OFF BELL- 

321 : 

322 BE=BE+1 

323 IF BE=3 THEN BE=1 

324 PRINTtfD.-'aEÜ "0*(BE);RL* 

325 RETURN 

326 IF BE=2 THEN RETURN 

327 PRINT#D,BE*; 

328 RETURN 

329 : 

330 REM — ON/OFF LINEFEED - 


331 : 

332 LI=LI+1 
IF LI=>3 THEN LI=1 
IF LI = 1 THEN RL*=CR*+LI* 

IF LI=2 THEN RL*=CR* 

336 PRINTttD■ " .(_I-NLr_EJLD "0*(LI);RL* 

337 RETURN 

338 : 

339 REM — DETECT ABFRAGE AN PB4 (DEZ.16) 

IST PB4 = 1 DANN DETECT VORHANDEN - 


333 

334 

335 


340 

341 

342 


IF C0=1 THEN RETURN 
IF(PEEK(TE)AND 16)=0 THEN RETURN 


<043> 
<251 > 
<052> 
<229> 

<004> 

<104> 

<056> 

< 169> 
<226> 
<097> 
<03B> 
<061> 
<088> 
<007> 

< 159> 
<009> 
<047> 
< 210 > 

<040> 

<00B> 

<105> 

<0B5> 

< 176> 
<106> 
<018> 

< 149> 
< 020 > 
<077> 
<081 > 
<105> 
<229> 
<17B> 
<205> 
< 012 > 
<084> 
<111> 
<22B> 

< 156> 
<032> 

<201 > 

<034> 

< 165> 

<205> 
<043> 
<152> 
<245> 
<224> 
<041 > 

<168> 

<043> 

< 193> 
<237> 
<206> 

< 129> 
<031> 

< 117> 
<132> 
<051 > 

<242> 
<053> 
<0B5> 
<21B> 
<066 > 

< 192> 

< 126> 
< 141 > 
<060> 

<234> 
<062> 
<150> 
<001 > 


56 
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Datenfernübertragung (DFU) 


343 IF E2>=4 THEN 256 

344 E1=E1+1 

345 IF El>130 THEN E1=0:E2=E2+1:GOSUB 347: 
E*=““:XS=CR*:RETURN 

346 RETURN 

347 PRINTWD.RLTRLT"AX.TTJ, Mä lifliAKA EX.ST.E.R 

-LA £Oä .K-0.P-P.1.ER T2SPACE > P-K.E5.5.EX ! " : 

348 PRINT#D,RL*"ÜINW."STR*(E2>RL*RL* 

349 RETURN 

350 : 

351 REM — TIMEOUT/TIMELIMIT - 


352 : 

353 IF CQ=1 THEN RETURN 

354 GOSUB 342 

355 IF GA=1 AND VAL(TI*)>LM THEN T=12:G0SU 
B 1179:GOTO 256 

356 T1=T1+1 

357 IF TI>2000 THEN T1=1000:GOTO 359 

358 RETURN 

359 IF T2=0 THEN 256 

360 T=11 

361 GOSUB 1179 

362 FOR 1=1 TO 40 

363 PR1NT#D,BE*:“!“; 

364 NEXT 

365 T2=0 

366 E*="“ 

367 X*=CR* 

368 RETURN 

369 IF XI>1 THEN X1=X1+1:IF XI>350 THEN E* 
=““:X*=CR*:GOTO 399 

370 GOTO 377 

371 : 

372 REM — GET SCHLEIFE I - 


373 : 

374 E*= " " 

375 GOSUB 326 

376 GET#2,X* 

377 GET#2,X* 

378 GOSUB 353 

379 IF X*=""THEN 382 

380 GET#1,Y* 

381 IF Y*=""THEN 399 

382 GET#1,X* 

383 IF X*=""THEN PRINT CHR* (159) "■?"CHR* < 15 
7)CHR*(158>;:GOTO 369 

384 : 

385 REM — INTERNE BEFEHLE - 


386 : 

387 REM — DIRECT VERBINDUNG VOM SYSOP - 


388 IF X*=CHR*(133)THEN TT*=TI*:CE=1:CO=1: 
GOSUB 597:E*="":RETURN 

389 REM — ADRESSE AUSGEBEN VOM SYSOP - 


390 IF X*= n 3."THEN GOSUB 1101:GOTO 382 

391 REM — DETECT ABFRAGE UNTERDRUECKEN — 


392 IF X*=CHR*( 136) THEN PR I NT 11 DETECT EIN": 
CO=0:POKE 49800,240:GOTO 382 

393 IF X*=CHR*(140)THEN PRINT"DETECT AUS": 
CO“1x POKE 49800,208:GOTO 382 

394 REM — DIALOG BEENDEN VOM SYSOP - 


395 IF X*=CHR*<178)THEN 250 

396 : 

397 REM — STRING ZUSAMMENSETZTEN 


398 : 

399 X=ASC(X*> 

400 IF X<>13 THEN 406 

401 T1=0 

402 LL=100 

403 GOSUB 308 

404 PE=0 

405 RETURN 

406 IF CE=1 AND X*=XE*THEN GOSUB 308.-RETUR 
N 

407 IF X=17 OR X=19 THEN 377 

408 IF CE=0 THEN IF(X=8 OR X=20)AND LENtE* 
>>0 THEN E*“LEFT*(E*,LEN(E*>-1>:GOTO 4 
13 


<096> 

< 157> 

<069> 

<150> 

< 16B> 
<1B4> 

409 

410 

411 

412 

413 

414 

415 

IF LEN(E*)=>LL THEN GOSUB 327:GOTO 377 
IF CE=0 THEN IF E*=""AND(X=8 OR X=20)T 
HEN GOSUB 327:GOTO 377 

IF CE=0 THEN E*=E**X* 

IF PE=1 THEN X*=RUJ 

PRINT#D,X*}:GOTO 377 
: 

ntn ntLH1 IVt UHItl utr r NtN ■ 

s 1 DO ? 



<072> 

416 

s 


417 

GOSUB 421 

<253> 

418 

OPEN 15,8,15 

<074> 

419 

OPEN B,8,2,"USER" 

<162> 

420 

RETURN 

< 188> 

421 

CLOSE 8 


422 

GOSUB 12 

< 154 > 

423 

RETURN 

< 199> 

424 

- 

<172> 

425 

REM — RECORDNUMMER FUER RELATIVE DATE 




N 1 06 / 


1 

<005> 

426 

• 

< I37> 

427 

HB=INT(BL/256) 

< 113> 

428 

LB=BL-HB*256 

< 128> 

429 

X*=CHR*(2)+CHR*(LB>+CHR*(HB)+CHRS < 1+RE 

<037> 


) 

<120> 

430 

PRINT#15,"P"+XS 

< 130> 

431 

RETURN 

< 157> 

432 

s 

<044> 

433 

REM — ANRUFER ERKANNT UND START DES M 

< 172> 


AILBOX DIALOGES - 


434 

• 

<054> 

435 

PRINT CHR*(147)0*" äTART "XN*XN* 

<140> 

436 

C0=1 

<093> 

437 

Xl = 10 


438 

FOR 1=1 TO 2000 

<101> 

439 

NEXT 

<095> 

440 

PR I NT #D , RL*RL*RL* * fl. £. - > " ; 

< 165> 

441 

GET#2,X*,X* 

<049> 

442 

GOSUB 374 

<233> 

443 

GOSUB 1088 

<234> 

444 

CO=0 

<004|> £ 
<02B> 

446 fl*="000000" 

<029> 

447 

: 

<09B> 

44B 

REM — MAI LBOX -MENUES - 

<223> 




449 

: 

<205> 

450 

PRINT#D,RL* 

< 106> 

451 

GOSUB 119 


452 

GOSUB 1170 

<053 > 

453 

ON ME GOTO 456,458 

< 108> 

454 

PRINT#D, HflUPTnEXue. 


455 

GOSUB 460 

< 178> 

456 

PRINT#D, "— IXf-O-fULKU-L 


457 

GOSUB 460 

<201 > 

45B 

PRINT#D, "— flBiLaax.-fl£lüi& 


459 

GOSUB 460 

<015> 

460 

IF P0=1 AND CT=0 THEN PRINTttD, “ P-XJ.F.I. 

<002> 


-”;RL*;:IF GA=1 THEN PO=-l : GOTO 450 


461 

IF P0=1 THEN 472 

<065> 

462 

: 


463 

REM — MAILBOX-BEFEHLE - 

<176> 




464 

: 

< 1 *78 > 

465 

PRINTWD,RL * 


466 

ON ME GOTO 469,471 

<004> 

467 

print#d, ■’ nTTP- nn-.ix-.u_i j- s o.K- p.k.u- ae.- - 

<007> 


TI-_(,O.GJJX"RL*; 

<118> 

468 

GOTO 472 


469 

PRiNT#n,"H£LP-Ri-nK-nL—aL.-TJLL-nn-Hn"RL 

<045> 


*: 

<120> 

470 

GOTO 472 

<073> 

471 

print#d . - h e. LP- rii - u.L-u i_tin-pnT- pm - nE.- ni_. 

<088 > 


-Jü-Üfl“RL*: 

< 158> 

472 

PRINT#D,RL* 

< 156> 

473 

IF GA=1 THEN GOSUB 523 

<n0> 

474 

PRINT#D,C*; 

<050> 

475 

GOSUB 374 

<209> 

476 

IF E*=""THEN 474 

< 1 40 > 



<14S> 



<140> 

Listing 1. Das Mailbox-Programm (Fortsetzung) 


<041 > 

<204> 

< 174> 
<236> 
<219> 
<136> 

< 184> 

<138> 

<195> 

<066> 

<0R6> 

<224> 

<234> 

<13B> 

< 227 > 

< 146> 

<216> 

< 148> 

< 140> 

< 116> 

< 193> 
<02B> 
<235> 

< 154> 

<206> 

< 156> 
<17B> 
<142> 
<254> 
<235> 

< 195> 

< 158 > 
<150> 

< 132> 

< 148> 

< 118> 
<218> 

< 171 > 

< 169> 

<1U> 

<171> 

< 121 > 

< 190> 
<13B> 
<045> 
<007> 
<009> 
<055> 
<011> 
<055> 
<013> 

<237 > 
<082> 

<1B4> 

< 180> 
< 186> 
<136> 
<094> 

<194> 

<086> 

< 1 88 > 
<088> 

<110> 

<143> 

< 036 > 
<04B> 

< 165> 
<243> 
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477 

: 

<199> 


GOSUB 730:FU=1:GOTO 556 


<093> 

470 

REli — BEFEHLE AUSWERTEN- 


548 

IF FX=4 AND U*=UA*THEN FU=1:GOTO 

556 

<241 > 



<162> 

549 

RE=0 


<205> 

479 

- 

<201 > 

550 

GOSUB 427 


<010> 

480 

X*=LEFT*(E*,2> 

<225> 

551 

GOSUB 730 


<0B3> 

481 

X=LEN(E*> 

< 166 > 

552 

IF FX=1 AND CO*=CX*THEN FU=l:GOTQ 

556 

<223> 

482 

IF X>1 THEN SU*=RIGHT#(E*,X-2> 

<101> 

553 

IF FX=3 THEN FU=l:GOTO 556 


<059 > 

483 

Y*=LEFT*<E*,4) 

<240> 

554 

NEXT 


<056> 

484 

X=LEN<E*) 

<169> 

555 

FU=0 


<035> 

485 

IF X>3 THEN Z*=RIGHT*(E*,X-4) 

<037> 

556 

GOSUB 421 


<080> 

486 

IF E»="JUüJ»."OR E*="?"THEN GOSUB 1286: G 


557 

RE=0 


<213> 


OTD 450 

<096> 

558 

RETURN 


<108> 

487 

IF E*="ÜH"THEN ME=0:GOTQ 450 

<247> 

559 

s 


<027> 

488 

IF E*="iH"THEN ME=1:GOTO 450 

<185> 

560 

REM — BENUTZER RUFT DEN SYSOP — 



489 

IF E*="Hfl"THEN ME=2:GOTO 450 

<239> 




< 167> 

490 

IF Y*="üxa "THEN GOSUB 804:SE=1:GOTO 4 


561 

8 


<029> 


50 

<255> 

562 

T=S 


<111> 

491 

IF X*="UA."THEN GOSUB 744: GOTO 450 

<1067 

563 

GOSUB 1179 


<061 > 

492 

IF E*="HU"THEN GOSUB 626: GOTO 450 

<137> 

564 

TT*=TI* 


<160> 

493 

IF FT="LD-GOTT"DR E*="£Ü££"THEN LO=l:GO 


565 

FOR 1=1 TO 10 


<203 > 


TO 249 

<239> 

566 

PRINTttD,RU* S 


<108> 

494 

IF E*="UIHR"THEN B*=X1*:GOSUB 529:GOTO 


567 

TN=180 


< 117> 


450 

<106> 

56B 

GOSUB 1059 


<242> 

495 

IF £*="£ß£"THEN MF=2:GOSUB 869:GOTO 45 


569 

FOR J=1 TO 100 


<055> 


0 

<032> 

570 

RU=RU+1 


<129> 

496 

IF ES="£üt"THEN GOSUB 857:GOTO 450 

<141> 

571 

IF RU=30 THEN RU=1:FA=0:GOSUB 115 


<058> 

497 

IF E*="i£"THEN GOSUB 309:GOSUB 332:GOS 


572 

IF RU=15 THEN FA=2:GOSUB 115 


<094 > 


UB 308:GOTO 474 

< 125> 

573 

GETtt 1,X* 


<160> 

498 

IF E*=“&I."THEN FI*="RI" : GOTO 511 

<230> 

574 

GET*2,Y* 


<241 > 

499 

IF E*="£I"THEN GOSUB 308: GOSUB 613: GOS 


575 

IF X*=""AND Y*=""THEN 578 


< 122> 


UB 616:GOSUB 308:GOTO 474 

< 104 > 

576 

IF Y*=XE*OR X*=XE*THEN FA=0:GOSUB 

115: 


500 

IF E*="fli,' , THEN FI*=' , I S IESSAGE": GOTO 511 

<226> 


RETURN 


<053> 

501 

IF E*="n&"THEN FB*="N MESSAGE":MF=1:AU 


577 

IF X*="J"THEN 588 


<003> 


*="flEFF. UESSAGE":GOSUB 894:GOTO 59 

<045> 

578 

NEXT 


<0B0> 

502 

IF E*“"£i.“THEN FI*="CL":GOTO 511 

<092> 

579 

NEXT 


<081 > 

503 

IF E$="RO.R"THEN GOSUB 562: GOTO 450 

< 128 > 

580 

T=6 


< 145> 

504 

IF E*="flJ(."THEN FI*="AK":GOTO 511 

<088> 

581 

GOSUB 1179 


<079> 

505 

IF E*="flk"THEN FI*="AL":GOTO 511 

<092> 

582 

FA=0 


< 158> 

506 

IF E*="I&k”THEN FI *="TEL”:GOTO 511 

<041 > 

583 

GOSUB 115 


< 195> 

507 

IF E*="a£"THEN GOSUB 309:GOSUB 322:GOS 


584 

RETURN 


< 134> 


UB 308:GOTO 474 E4Xjt£55tf 

. . _ _ 


<053> 

508 

IF E*="PA&''THEN GOSUB 531-.GOTO 450 

< 191 > 


KcM — USER - SYSOP DIALOG - 



509 

GOSUB 515 

< 151 > 




<208> 

510 

GOTO 472 

<128> 

587 

S 


<055> 

511 

GOSUB 302 

<025> 

588 

T=7 


<169> 

512 

GOTO 450 

<0367 

589 

GOSUB 1179 


<0B7> 

513 

PRINTttD,RL*"HF-U£ ERJ»_"RL*: 

<214> 

590 

GOSUB 1170 


<022> 

514 

RETURN 

<064> 

591 

PRINTttD," —>“; 


<044> 

515 

ER=ER+1 

<155> 

592 

FA=0 


< 168> 

516 

PRINTttD,RL*"?>"E*"<?"RL*: 

< 187> 

593 

CE=1 


<221 > 

517 

RETURN 

<067> 

594 

CO=l 


<046> 

518 

PRINTttD,RL*".ä£üi U-5R-R i2 iäl H&IXX"RL* 

< 199> 

595 

TT*=TI* 


< 191 > 

519 

RETURN 

<069> 

596 

GOSUB 115 


<20B> 

520 

s 

<244> 

597 

LL=100 


<097> 

521 

REM — AUSGABE TIMELIMIT FUER GAESTE - 


598 

GOSUB 374 


<034 > 


- ■ - ■- - - - 

<135> 

599 

IF X*=XE*THEN CO=0:CE=0:TI#=TT*:RETURN 

<069> 

522 

: 

<246> 

600 

GOTO 597 


<164> 

523 

A1=INT(TI/60) 

<065> 

601 

8 


<069> 

524 

A2=INT(Al/60) 

<16B> 

602 

REM — CHECK INDEX FELD FUER PERS 

. MSG 


525 

A1=A1-A2*60 

< 030 > 




<216> 

526 

J*=STR*<14-A2>+" M."+STR*(59-A1 > 

<203> 

603 

3 


<071 > 

527 

PRINTttD,RL*"IIMELIMIT : "J*" S."RL* 

<153> 

604 

FOR 1=1 TO MX 


<040> 

528 

RETURN 

<07B> 

605 

IF PP*=MS < 11THEN M*(I) = "LOES" 


<077> 

529 

IF GA=0 THEN AE=1:GOSUB 653:AE=0:RETUR 


606 

NEXT:RETURN 


<037 > 


N 

<059> 

607 

s 


<075> 

530 

GOTO 532 

<094> 

608 

REM — AUSGABE TIME/DATUM/ONLINE 



531 

IF GA=0 THEN PO=-PO:RETURN 

<160> 




<221 > 

532 

PRINTttD.RL*"f UXK.TIAH Gi25J£.R RT"RL* 

<241 > 

609 

8 


<077> 

533 

RETURN 

<083> 

610 

GOSUB 205 


<214> 

534 

• 

<002 > 

611 

TE*=LEFT*<UR*,2>+".“+MID*(UR*,3,2) +" . “ 


535 

REM — USER SUCHEN IM INDEXFELD UND IN 



+RIGHT*(UR*,2) 


< 107> 


DER RELATIVEN DATEI - 

<206> 

612 

RETURN 


< 162> 

536 

• 

<004> 

613 

GOSUB 610 


<105> 

537 

FU=0 

<017> 

614 

PRINTttD,J*<Z>" DEN "DA*" / "TE*" 

UHR" 

<110> 

538 

GOSUB 417 

<23B> 

615 

RETURN 


< 165> 

539 

UDS=LEFT*(UA*,1> 

< 116> 

616 

M*=MID*(TI*,3,2> 


<166> 

540 

FOR BL=U7.-NR+1 TO U7. 

<172> 

617 

SE*=RIGHT*(TI*,2) 


<033> 

541 

RE=60 

<145> 

618 

GOSUB 308 


<07 1> 

542 

IF UDS< >CHR* ( U7. ( BL ) ) THEN 554 

<196> 

619 

PRINTttD,"ßNLINE : "M*" MIN. UND " 

SE*" 


543 

GOSUB 427 

<003> 


SEC. "; RL* ; 


<1B2> 

544 

INPUT»8,U* 

<037> 

620 

RETURN 


< 170> 

545 

IF U*OUA*THEN 554 

< 116> 

621 

PRINTttD,RL*"£INEN flOMENT BITTE.." 

RL* 

<000> 

546 

IF(FX=2 OR FX=4> AND XL=BL THEN 554 

<029> 

622 

RETURN 


< 172> 

547 

IF FX=2 AND U*=UA*THEN RE=0:GOSUB 427: 


623 



<091 > 


58 


Inet 




















C 64 


Datenfernübertragung (DFU) 


624 

REM — NEUER USER EINTRAG - 


698 U*=U*+LEFT*< RS*+S*,10)+LEFT*(CO*+S*,10 



— 

< 102 > 

> +LEFTS(UN*+S*,19) 

<212> 

625 

: 

<093> 

699 RETURN 

<249> 

626 

IF SE=1 OR FH=>3 THEN GOSUB 532:RETURN 

<208> 

700 GOSUB 417 

< 144 > 

627 

IF SP=1 THEN GOSUB 518:RETURN 

< 169> 

701 NR=NR+1 

< 154> 

628 

IF E2>1 OR ER>3 THEN T=10:GOSUB 1179:R 


702 IF NRXJXTHEN NR=U7. 

<190> 


ETURN 

< 178> 

703 BL=U7.-NR+1 

<070> 

629 

T=B 

<226> 

704 UNS=X1S 

<245> 

630 

GOSUB 1179 

<128> 

705 ST*=X2* 

<159> 

631 

PRINTttD,"HIE IST SEIN HAMET2SPACE»"j 

< 117> 

706 RS*=X3* 

<020> 

632 

L=18 

<092> 

707 C0*=X4* 

<058> 

633 

GOSUB 374 

<069> 

708 GOSUB 682 

<120> 

634 

IF LEN(E*>>0 THEN X1*=E* 

<011> 

709 GOSUB 427 

<169> 

635 

A*=LEFT*(E*,1) 

<030 > 

710 PRINT#8,U* 

<09B> 

636 

FOR 1=1 TO 64 

<153> 

711 RETURN 

<005> 

637 

IF E*=""OR A*=CHR*(I>THEN X1*=B*:RETUR 


712 IF SP=0 AND AE=0 THEN 716 

< 175> 


N 

<043> 

713 IF SP=1 AND AE=0 THEN RETURN 

<116> 

638 

NEXT 

<140> 

714 IF SP=1 AND AE=1 THEN 716 

< 249 > 

639 

UB*=ES 

<229> 

715 RETURN 

<009> 

640 

PRINT#D,"Ü0N WO RUFST 3J AN >": 

<042> 

716 GOSUB 621 

<000> 

641 

L=1B 

<101 > 

717 PRINT#D,RL*; 

< 193> 

642 

GOSUB 374 

<078> 

718 UA*=LEFT*(X1*+S*,19) 

<149> 

643 

IF LEN<E*>>0 THEN X2*=E* 

<036> 

719 CX*=LEFT* < X4*+S*,10) 

<003> 

644 

PRINT#D, "SEIN RECHNERSYSTEM >••; 

<159> 

720 IF Xl*=""OR X2*=""OR X3*=""0R X4*=“"TH 


645 

L=10 

<104> 

EN 682 

< 069 > 

646 

GOSUB 374 

<082> 

721 FX=4 

<097> 

647 

IF LEN(E*>>0 THEN X3*=E* 

<056> 

722 GOSUB 537 

<206> 

648 

BB=1 

<012> 

723 IF AE=1 AND FU=0 THEN PRINT«D,RL*"fiX S 


649 

PRINT#D, "äEIN £ERS. .PASSWORT >"; 

<182> 

ATEN GEAENDERT"RL*:GOSUB 1054:AE=0:RET 


650 

L=10 

< 109> 

URN 

<239> 

651 

GOSUB 374 

<0B7> 

724 IF AE=0 AND FU=0 THEN T=9:GOSUB 1179:S 


652 

IF LEN(ES)>0 THEN X4*=E* 

<077> 

P=l:RETURN 

<201 > 

653 

GOSUB 309 

<138> 

725 PRINT#D,RL*"filESER HAME IST LEIDER SCH 


654 

IF 6B=0 AND SP=0 THEN GOSUB 532:GB=0:R 


ON BELEGT 1 "RL* 

<030> 


ETURN 

<129> 

726 X1S=B* 

<254> 

655 

: 

< 123> 

727 UB*=UC* 

<244> 

656 

REM — USER DATEN AENDERN- 


728 GOSUB 1054 

<0B1 > 


— 

<171> 

729 GOTO 658 

<014> 

657 

- 

< 125> 

730 INPUT#8,U* 

<03B> 

650 

PRINT#D,"KÄMEI7SPACE)>"UB* j RL*; 

<233> 

731 D*=LEFT*(U*,B> 

<174> 

659 

PRINTSD,"STADTC6SPACE > >“X2*:RLS: 

<249> 

732 I*=MID*(U*,9,8) 

<199> 

660 

PRINT#D , M SYSTEM C5SPACE> >"X3*;RL*: < 000 > 

733 P>»VAL(MID*<U*,19,1>> 

<036> 

661 

PRINTND,"£ASSW. C5SPACE> >"X 4*;RL*; 

<003> 

734 S2=VAL(MID*(U*,20,1>)-1 

<0B3> 

662 

PRINT#D,RL*"££RTIG/flK i/X/ü >“; 

< 112> 

735 S3=VAL(MID*(U*,21,1)) 

<069> 

663 

GOSUB 374 

<099> 

736 RS*=MID* < U*,41,10) 

<056> 

664 

IF E*=""OR E*="X"OR E*="£"THEN 712 

<050> 

737 S4=VAL(MID*(U»,18,1)) 

<032> 

665 

IF E*<>“H"THEN GOSUB 677:GOTO 662 

<215> 

738 5T#=MID*CU*,22,19) 

<202> 

666 

PRINT#D,RLS"KORREKTUR i/X/ü >“j 

<045> 

739 CO*=MID*(U*,51,10) 

<231 > 

667 

GOSUB 374 

< 103 > 

740 UN*=MID*(U*,61,19) 

< 180> 

668 

IF E*="i"OR E*="i“THEN GOSUB 308: GOTO 


741 RETURN 

<035> 


631 

<21B> 

742 REM — USERLISTE ANZEIGEN - 


669 

IF E*="ß"THEN 712 

< 121 > 


<035> 

670 

GOSUB 677 

<226/ 

743 : 

<211 > 

671 

GOTO 666 

< 163> 

744 Z*=LEFT*(SU* , 1) 

<213> 

672 

UN*=X1* 

<213> 

745 PRINT#D , RL*"£1NGETRAGENE USER BEI fl.£. 


673 

ST*=X2* 

< 127> 

X. "RL* 

<120> 

674 

RS*=X3* 

<244> 

746 GOSUB 417 

< 190 > 

675 

C0*=X4* 

<026> 

747 SU=0 

<023 > 

676 

RETURN 

<226> 

748 RE=0 

< 148> 

677 

PRINT#D,RL*‘‘ ’i'A / - X - ES ODER/OR ’K'O 


749 W*=“" 

< 102> 


•!"RL*; 

< 114> 

750 V=LEN(SU*) 

<021 > 

678 

RETURN 

<228> 

751 0*=MID*(SU*,3,V) 

<068> 

679 

IF Xl*=""OR X2*=" "OR X3*=" "OR X4*='"’0R 


752 UA*=LEFT*(0*+S*,19) 

<228> 


E2>3 THEN RETURN 

< 208 > 

753 IF SP=0 THEN PRINT#D , RL*"TUE BUSGABE I 


680 

IF L0=1 AND XL>0 THEN BL=XL:GOSUB 672: 


ST FUER SAESTE BEGRENZT"RL*:GOTO 755 

< 130> 


GOSUB 417:GOSUB 708:RETURN 

<213> 

754 IF Z*='-ß"THEN PRINT#D,RL*“ßNZAHL ÜSER 


681 

GOTO 700 

< 149> 

ZUR 2EIT : "NR*:RL*;:GOTO 766 

<216> 

682 

GOSUB 610 

<174> 

755 W=0 

<236> 

683 

U*=LEFT*(LEFT*(DA* , 6)+RIGUT*(DA* , 2 > , 8) 


756 W*=RIGHT * (SU*,1) 

<245> 


+TE* 

< 122> 

757 IF SP=0 THEN Z*="H":SS=1:SU*="":GOTO 7 


684 

XY=1 

<044> 

60 

<076> 

685 

XX=SR 

<253> 

758 SS=LEN(SU#> 

<120> 

686 

GOSUB 239 

<211 > 

759 IF Z*=""THEN A*="ßLLE “+NR*+" USER ANZ 


687 

U*=U*+" ”+K* 

<008> 

EIGEN ":GOTO 768 

<1B3> 

608 

XX=LI 

<221 > 

760 IF Z*="ß"AND SS=1 THEN A*="ßACH NAMEN 


689 

GOSUB 239 

<214> 

SUCHEN '•: SU= 1 : L= 18 : RE=60 : GOTO 768 

<142> 

690 

US=US+K* 

<242> 

761 IF Z*="M"AND W*<>“*"AND SS>1 THEN PRIN 


691 

XX=PO+l 

< 104> 

T#D, " NACH HAMEN SUCHEN " RL*:W*="/" : GOTO 


692 

GOSUB 239 

<217> 

773 

<060> 

693 

U*=U*+K* 

<245> 



694 

XX=BE 

< 161 > 



695 

GOSUB 239 

<220> 



696 

U*=U*+K*+LEFT* ( STS+S*,19 ) 

< 192> 



697 

XY=0 

<025 > 

Listing 1. Das Mailbox-Programm (Fortsetzung) 



















Datenfernübertragung (DFU) 


C 64 


762 IF Z*="H"AND W*="*"AND SSM THEN A*="H 


ACH AAMEN SUCHEN":SU=1: L=1 B:GOTO 768 <094 > 

763 IF Z*=“2"AND SSM THEN A*="1JACH SATUM 

SUCHEN":SU=2:L=B:GOTO 768 <212> 

764 IF ZS="£"AND SS>1 THEN A*=“AACH RECHNE 

R SUCHEN":SU=3:L=10:GOTO 768 <096> 

765 IF Z*="fi”AND SS>1 THEN A*="AACH STADT 

SUCHEN"sSU=4:L=18:GOTO 768 <007> 

766 GQSUB 421 <034> 

767 RETURN <061> 

768 IF ZS="K"AND W*="*"THEN 0*=LEFT*(0*,LE 

N(0*>-1> <085> 

769 V=LEN(OS) <068> 

770 IF V>L THEN GOSUB 421:W*=”” <064> 

771 IF SSOl THEN PR I NT HD , RL*A*RLS: GOTO 77 

3 <170> 

772 GOTO 777 <066> 

773 PRINTttD, "USER - SYSTEM — 

-STADT-2ATUM“ <126> 

774 PRINTttD,RL* <193> 

775 IF W*="/"THEN FX=3:GQSUB 537:IF FU=0 T 

HEN T=13:GOSUB 1179:RETURN <049> 

776 IF W*=”/"AND FU=I THEN US*=U*:RE=0:SS= 

0:GOTO 787 <123> 

777 FGR BL=U7.-NR+1 TO U7. <155> 

778 GOSUB 427 <240> 

779 INPUTttB.US* <054> 

780 GOSUB 288 <099> 

781 IF EX=2 THEN 795 <034> 


782 IF SU=1 AND MID*(US*,61,V><>0*THEN 796 <025> 

783 IF SU—2 AND LEFT*(US*,V)<>0*THEN 796 <031> 

784 IF SU=3 AND MID*(US*,41,V)<>0*THEN 796 <027> 

785 IF SU=4 AND MID*(US*,22,VK>0*THEN 796 < 093> 

786 IF RE>0 THEN PR INTttD, US*;:IF SP=0 THEN 


SU=0 <237> 

787 IF RE=0 THEN PRINTttD,MID*(US*,61,19); <120> 

788 IF W<3 AND RE>0 THEN PRINTttD," “5 <033> 

789 IF SS=1 THEN 791 <250> 

790 PRINTttD," "MID*(US*,41,10)"I10SPACE>"M 

ID*(US*,22,19)" "LEFT*(US*, 8)5 <196> 

791 IF SSOl THEN PRINT#D,RL*; <050> 

792 IF W*="/"THEN PRINT1ID ,RL*;:RETURN <204> 

793 GOSUB 288 <112> 

794 IF SS=1 THEN W=W+1:IF W=4 THEN W=0:A*= 

”“:PRINTttD,RL*; <010> 

795 IF EX=2 THEN EX=0:GOSUB 421:RE=0:PRINT 

ttD, RL*: RETURN <003> 

796 T1=0 <045> 

797 NEXT <045> 

798 RE*0 <200> 

799 GOSUB 421 <069> 

800 RETURN <032> 

801 : <015> 

802 REM — USER ID (UID) PRUEFEN - 

-<036 > 

803 : <017> 

804 IF FH=3 THEN GOSUB 532:RETURN <203> 

805 IF SP=1 THEN GOSUB 518:RETURN <093> 

806 Y=0 <041 > 

807 X=LEN(Z*> < 053 > 

808 IF Z*="“THEN 450 <195> 

809 FOR 1=1 TO X <037 > 

810 IF Y=0 AND MID*(Z*,I,1J=-,“THEN Y=I:E* 

=RIGHT*(Z*,X—I):GOTO 813 <015> 

Bll NEXT <059> 

B12 IF Y=0 THEN Y=20 <198> 

813 UA*=LEFT*(Z*,Y-1) <182> 

814 UB*=UA* <076> 

815 UA*=LEFT*(UA*+S*,19) <021> 

816 UC*=UB* <215> 

817 IF Y< >20 THEN 823 <188> 

81B PRINTttD.RL*" PA5.5X0AT >"; <153> 

819 PE=1 <245> 

820 GOSUB 374 <002> 

821 PE=0 <215> 

822 IF E*=""THEN RETURN <137> 

823 CX*=LEFT*(E*+S*,10) <015> 

824 GOSUB 621 <110> 

025 SP=0 <063> 

826 GA=1 <184> 

827 FX=1 <109 > 

828 GOSUB 537 <058> 

829 IF FU=1 THEN 833 <215> 

830 PR I NT ttD,RL*"UNBEKANNTER iJAME/PASSWORT" 


RL* <250> 

831 FH=FH+1 <043> 

832 RETURN <128> 

833 GOSUB 309 <064> 

834 SP=1 <104> 

835 GOSUB 1076 <126> 

836 PRINTttD,RL*"SEIN LETZTER ANRUF ERFOLGT 

E"RL*: <093> 

837 XL=BL <148> 

838 PRINTttD, "AM "D*" UM "I*:RL*; <047> 

839 LI=S1 <169> 

840 PO=S2 <042> 

841 BE=S3 <227> 

842 GA=0 <16B> 

843 SW=0 <137> 

844 GOSUB 324 <202> 

845 GOSUB 334 <219> 

846 PP*=UN*+CO* <109> 

847 X1*=UN* <119> 

840 X2*=ST* <002> 

849 X3*=RS* <074> 

850 X4*=C0* < 141 > 

851 GOSUB 857 <137> 

852 GOSUB 1054 <207> 

853 RETURN <149> 

854 : <06B> 

855 REM — CHECK PERS. MESSAGE - 

- <060> 

856 : <070> 

857 FOR 1=1 TO MX <039> 

858 IF PP*=M*(I>THEN SW=1:GOSUB 863 <06B> 

859 NEXT <107> 

860 IF SW=0 THEN PRINT4D,RL*"iEINE £ERS. A 

ESSAGE FUER HICH VORHANDEN"RL* <237> 

861 IF SW=1 THEN PRINTttD,RL*"3AS WAREN ALL 

E PERS. flESSAGE FUER DICH"RL* <140> 

862 RETURN <158> 

863 PRINTttD,RL*"£ER5. HESSAGE FUER SICH.." <221> 

864 FX*="P"+STR*(I) <149> 

865 GOSUB 302 <127> 

866 EETURN <162> 

BfiTKfeM — EINGABE PERS. MESSAGE - 

- <055> 

868 : <082> 

869 FOR 1=1 TO MX <051> 

870 IF M*(I)="LOES"THEN 875 <101> 

871 NEXT <119> 

872 T=1 <103> 

873 GOSUB 1179 <117> 

B74 RETURN <170> 

875 GOSUB 308 <074> 

876 IF PO=-l THEN T=2:GOSUB 1179 <121> 

877 PRINTttD, "£ERS. Hä£ FUER >"; <006> 

878 GOSUB 374 <060> 

879 IF E*=““THEN RETURN <194> 

880 AU*=E* <032> 

881 UA*=LEFT*(E*+S*,19> <093> 

882 OK=0 <064> 

883 GOSUB 621 <169> 

B84 FX=2 <19B> 

885 GOSUB 537 <115> 

886 IF FU=0 THEN GOSUB 309:T=13:GOSUB 1179 

:GOTO 877 <171> 

BB7 QK=1 <101> 

888 P*=UN*+CO* <232> 

889 GOSUB 421 <159> 

890 GOTO 895 <160> 

891 : <105> 

892 REM — TEXT EDITOR - 

- <225> 

893 : <107> 

894 IF PEEK(B30+MF)>3 THEN T=4:GOSUB 1179: 

RETURN <214> 

895 YZ=0 <237> 

896 GOSUB 308 <095> 

897 TZ=1 <251> 

898 FOR 1=1 TO 40 <156> 

899 TE*(I)="" <175> 

900 NEXT <148> 

901 TY=1 <247> 

902 IF PO=-l THEN T=3:G0SUB 1179 <155> 

903 PRINTttD,RLS"- TEX.T-tUUT.OA -"RL* <210> 

904 PRINTttD, "SEINE EINGABE FUER "AUSRLS <192> 

905 ED=0 <079> 



60 
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906 ON GA GOSUB 523 

<110> 

980 I=LX 

<099> 

907 PRINTttD.RL S" KEL P-E-R-L-5P-ECH0 (“OS(EO 


981 GOTO 991 

< 131 > 

+ 1) ">-Hfl" RLS 

<228> 

982 RETURN 

<022> 

90B GOSUB 119 

<139> 

983 FOR 1=1 TO TZ 

<043> 

909 IF TZ<YZ THEN TZ=SZ 

<206> 

984 GOSUB 994 

<246> 

910 PRINT#D,RLSCS; 

<192> 

985 NEXT 

<233> 

911 GOSUB 374 

<093> 

986 PR I NT #D, RLS "ALLE .ZEILEN BELOESCHT"RLS 

<057 > 

912 IF ES=""THEN 910 

<125> 

987 TZ=1 

<085> 

913 EES=LEFTS(ES,1> 

<012> 

988 YZ=1 

< 106> 

914 LX=VAL(RIGHT*(ES,LEN(ES)-1)) 

<194> 

9B9 SZ=1 

<0B3> 

915 IF ES= OR"HEJ-P" =ESTHEN T=14: GOSUB 11 


990 GOTO 993 

<204> 

79:GOTO 90B 

<076> 

991 GOSUB 994 

<253> 

916 IF EES="fl"THEN GOSUB 960:GOTO 907 

<140> 

992 PRINT#D,RLS"ZEILE"+STRS(I)" GELOESCHT" 


917 IF ES="ECJtQ"THEN 924 

<224> 

RLS 

< 176> 

91B IF EE*="i."THEN GOSUB 974:G0SUB 30B:GOT 


993 RETURN 

<033> 

0 907 

<043> 

994 TES(I)="" 

<014> 

919 IF EES="£"THEN ON TY GOTO 927.996 

< 157> 

995 RETURN 

< 035> 

920 IF E*="Qa''THEN OG=2:GOTO 1004 

<251> 

996 SW=SW+1 

<225> 

921 IF E*="ä£"THEN OG=1:GOTO 1004 

<206> 

997 IF SW=1 THEN X=0 

<026> 

922 GOSUB 515 

<056> 

998 YZ=TZ 

<110> 

923 GOTO 910 

< 169> 

999 IF LX=0 THEN YZ=0:TZ=1:GOTO 927 

<072> 

924 EO=EO+l 

<093> 

1000 IF LX<0 OR LX>40 THEN 910 

<077> 

925 IF E0=2 THEN EO=0 

<210> 

1001 SZ=TZ 

<089> 

926 GOTO 907 

<124> 

1002 TZ=LX 

<221 > 

927 GOSUB 122 

<205> 

1003 GOTO 927 

<233> 

92B PRINT#D,RLS; 

<150> 

1004 LX=0 

<022> 

929 XZ—TZ 

<037> 

1005 FOR 1=1 TO TZ 

<065> 

930 TY=2 

<052> 

1006 LX=LX+LEN(TES(I)) 

<234> 

931 IF EO=0 THEN GOSUB 955 

< 166 > 

1007 NEXT 

<255> 

932 ES=““ 

<215> 

1008 IF LX>10 THEN ON OG GOTO 1016,1011 

<084> 

933 IF TZ=>41 THEN TZ=40:GOTO 907 

<237> 

1009 AS="j(£IN JEXT ZUM flBSPEICHERN VORHAND 


934 GOSUB 341 

<228> 

EN !•• 

<031 > 

935 GET#2,XS 

< 028 > 

1010 GOTO 1013 

< 156> 

936 IF X$=""THEN 93B 

< 117> 

1011 A*="2EIN JEXT IST NOCH IM EDITOR !" 

< 104> 

937 GOTO 940 

<231 > 

1012 OG=0 

<162> 

938 GET#1,X* 

<015> 

1013 IF 0G=2 THEN 450 

<042> 

939 IF XS=""THEN PRINT CHRS (159) “«-"CHRS < 15 


1014 PRINTStD ,RLSASRLS 

<039> 

7)CHRS(158);:GOTO 934 

<012> 

1015 GOTO 908 

<246> 

940 X=ASC(XS) 

<106> 

1016 GOSUB 621 

<046> 

941 IF X=24 OR X=27 THEN GOSUB 309:GOSUB 3 


1017 GDSUB 610 

<255> 

08:GOTO 905 

<011> 

1018 AKS=DA*+" / "+LEFTS(TES,5> 

<038> 

942 IF X=17 OR X=19 THEN 934 <235:0 

1019 '-''f=CRS+UBS+" / "+AKS+CRS+CRS 

<075> 

943 IF<X=8 OR X=20)AND LEN(ES)>0 THEN ES=L 


1020 GOSUB 421 

<034> 

EFTS(ES,LEN(ES)-1):GOTO 949 

< 131 > 

1021 IF 0K=1 THEN 1042 

<198> 

944 IF LEN(ES)=>70 THEN GOSUB 327:IF LEN(E 


1022 X=PEEK(B30+MF) 

<080> 

*>=>79 THEN GOSUB 308:GOTO 951 

<230> 

1023 X=X+1 

<033> 

945 IF LEN(ES)<1 AND<X=8 OR X=20)THEN GOSU 


1024 POKE 830+MF,X 

<175> 

B 327:GOTO 934 

<129> 

1025 FIS="@:"+FBS+",S,W" 

<199> 

946 IF X=13 THEN 951 

<255> 

1026 IF X>1 THEN FIS=FBS+”,S,A" 

<229> 

947 ES=E*+X$ 

<192> 

1027 GOSUB 12 

<237> 

948 IF EO=l THEN PRINT XSf 

<045> 

1028 GOSUB 1118 

<018> 

949 IF EO=0 THEN PRINT#D,XS: 

< 119> 

1029 OPEN 8,B,2,FIS 

<055> 

950 GOTO 934 

<100> 

1030 BC*=CRS+CRS+"-H£Äl-“+CRS+CHRS<14)+CRS 

< 183> 

951 IF ES= "-"OR ES— " ELHJ"THEN PR INT#D , RLS 


1031 FRINTHB.BKS; 

<091 > 

:EO=0:GOTO 905 

<003> 

1032 FOR J=1 TO TZ 

< 102> 

952 TES(TZ)=ES 

<134> 

1033 PRINT#B,TES(J) 

<067> 

953 TZ=TZ+1 

<179> 

1034 NEXT 

<028> 

954 GOTO 927 

< 184> 

1035 PRINT48,BCS; 

<093> 

955 A*=STRS(XZ) 

<140> 

1036 CLOSE B 

<0B7> 

956 A=LEN(AS> 

<040 > 

1037 GOSUB 1106 

< 122> 

957 IF A=2 THEN AS=MID*<AS,2,1>:PRINTHD,"0 


1038 PRINT#D,RLS"SEIN WURDE ABGESPEICH 


"+AS+">"; 

<212> 

ERT"RLS: 

<148> 

958 IF A=3 THEN PRINT#D,MIDS(AS,2,2)+">”; 

<029> 

1039 IF 0K=1 THEN OK=0:GOSUB 308:RETURN 

<054> 

959 RETURN 

<255> 

1040 PRINT#D,"UND IST BEIM NAECHSTEN ANRUF 


960 PRINT4D,RLS 

<123> 

ABRUFBAR"RLS 

<063> 

961 IF LX=0 THEN 967 

< 146> 

1041 GOTO 450 

<057> 

962 IF LX<0 OR LX>40 THEN RETURN 

<1B0> 

1042 FOR 1=1 TO MX 

<226> 

963 XZ=LX 

<1985 

1043 IF MS(I)=PSTHEN FAS="P":FBS=",S.A":GO 


964 GOSUB 971 

<098> 

TO 1049 

<018> 

965 PRINT#D,RLS 

<128> 

1044 NEXT 

<038> 

966 RETURN 

<006> 

1045 FOR 1=1 TO MX 

<229> 

967 FOR XZ=1 TO TZ 

<054> 

1046 IF MS (I) = "LGES' , THEN M$ < I) =P*s FAS=" P 


968 GOSUB 971 

<102> 

":FBS=",S,W":GOTO 1049 

<224> 

969 NEXT 

<217> 

1047 NEXT 

<041 > 

970 RETURN 

<010> 

1048 GOTO 869 

<145> 

971 GOSUB 955 

<201 > 

1049 GOSUB 12 

<003> 

972 PRINT#D,TES(XZ)sRLS; 

<236> 

1050 GOSUB 111B 

<040> 

973 RETURN 

<013> 



974 PRINT#D,RLS"JJDESCHEN ? >"; 

< 132> 



975 GOSUB 374 

< 157 > 



976 IF E$=""THEN 974 

<245> 



977 IF E*<>"Z"AND E*<>“3"THEN RETURN 

< 190 > 



978 IF LX=0 THEN 983 

< 151 > 



979 IF LX<0 OR LX>40 THEN RETURN 

<197> 

Listing 1. Das Mailbox-Programm (Fortsetzung) 
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1051 

OPEN 8,8,2,FA*+STR*(I)+FB* 

<008> 

1120 

s 


<080> 

1052 

GOTO 1031 

<136> 

1121 

REM — TEXT IN MESSAGE EINBINDEN (AUF 








«'D17 1 N 

1053 

REM —- USER ERKANNT UND ANZEIGEN 



UUrUHl ti " — — — 




— 

< 102> 

1122 

s 


<082> 

1054 

UX*=UB* 

< 11 1 > 

1123 

PRINT CHR*(147)XN*"£HECKING UPDATE" 

XN 


1055 

GOSUB 309 

<032> 


S 


<026> 

1056 

C*=UX*+“->" 

<242> 

1124 

GOSUB 12 


<078> 

1057 

RETURN 

<099> 

1125 

F A*=“MESSAGE" 


<060> 

1058 

REM — TON AUSGABE - 


1 126 

FOR 1=0 TO 3 


< 177> 



'223> 

1127 

IF PEEK(830+11=0 THEN NEXT:RETURN 


<215> 

1059 

PDKE SI.TN 

<120> 

1128 

GOSUB 12 


<082> 

1060 

POKE SI+l.TN 

<095> 

1129 

OPEN 15,8,15,"V" 


< 121> 

1061 

POKE SI+5,11 

<004> 

1130 

PRINT"UALIDATE"XN*XN* 


<204> 

1062 

POKE SI+6,10 

<067> 

1 131 

GOSUB 1106 


<216> 

1063 

POKE SI+24,15 

<024> 

1132 

CLOSE 15 


<210> 

1064 

POKE SI+7,TN+3 

<039> 

1133 

POKE 828,0 


<225> 

1065 

POKE S1+8,TN+3 

<105> 

1134 

OPEN 15,8,15, "R: "+FA*+"R" + " = ''+FA* 


<034> 

1066 

POKE SI+12,10 

< 198> 

1135 

GOSUB 1106 


<220> 

1067 

POKE SI+13,11 

<075> 

1136 

CLOSE 15 


<214> 

1068 

POKE S1+4,32 

<207> 

1137 

Q=0 


<0B6> 

1069 

POKE S1+4,33 

<210> 

1138 

E*=" " 


< 167> 

1070 

POKE SI+11,32 

<085> 

1139 

CX=0 


< 123> 

1071 

POKE SI+11,33 

<090> 

1140 

OPEN 15,8,15,"Rs"+FA*+"=N “+FA* 


<154> 

1072 

RETURN 

< 11 4> 

1141 

GOSUB 1106 


<226> 

1073 

. 

<033> 

1142 

CLOSE 15 


<220> 

1074 

REM — BEGRUESSUNG DES ERKANNTEN USER 


1143 

OPEN 5,8,6,FA*+",S,A" 


<075> 


S - 

<105> 

1144 

OPEN B,8,0,FA*+"R,S,R" 


<03B> 

1075 

- 

<035> 

1145 

SR=ST 


<010> 

1076 

GOSUB 205 

<172> 

1146 

IF SR>0 THEN 1159 


<180> 

1077 

A*="flALLO" 

<21 4> 

1147 

GET#8,X* 


<082> 

1078 

TT=VAL<UR*> 

<006> 

1148 

IF X*=""THEN 1145 


< 102> 

1079 

IF TT>1 AND TT<90000 THEN A*="£UTEN fl 


1149 

IF X*=CR*THEN 1152 


<095> 


ORGEN" 

< 141 > 

1150 

E*=ES+X* 


< 141 > 

1080 

IF TT>90000 AND TT<180000 THEN A*="EU 


1151 

GOTO 1145 


<028> 


TEN TRE“ 

<067> 

1152 

Q=Q+LEN(E*) 


<001> 

1081 

IF TT>190000 AND TT<2359S9 THEN A*=”fi 


1153 

PRINT CHR*<145)"flESSAGE FILE "RIGHT*< 



UTEN ABEND" 

<233> 


" <6SPACE>"+STR*<Q),6) 


<02B> 

1082 

IF TT>120000 AND TT<140000 THEN A*="fl 


1154 

IF Q>17000 THEN 1159 


<038> 


AHLZEIT" 

<182> 

1155 

IF Q>15000 AND E«= “- HEXT-“THEN 1159 


< 143> 

1083 

PRINT#D,RL*RL*A*" "UB*;RL*; 

<082> 

1156 

PRINT#5,E*;CHR*C13) ; 


<020> 

1084 

RETURN 

<126> 

1157 

E*=" " 


<186> 

10B5 

: 64«P*5«an 

115-< .,3TO 1145 


<035> 

10 B6 

REM — MAILBOX BEGRUESSUNG (START) — 


1159 

PRINT#5,;CR* ; 


<229> 



<253> 

1160 

CLOSE 5 


< 187> 

1087 


<047> 

1161 

CLOSE 8 


<212> 

1088 

GOSUB 308 

<033> 

1162 

OPEN 15,8,15 


<048> 

1089 

GOSUB 205 

<185> 

1163 

GOSUB 1106 


<248> 

1090 

TE*=LEFT* ( UR*,2 )+":" +MID* ( UR*,3,2 > 

<069> 

1164 

CLOSE 15 


<242> 

1091 

IF E*="*"THEN 0=3:GOTO 1094 

<213> 

1165 

OPEN 15,8,15,"S:N "+FA*+","+FA*+”R" 


<105> 

1092 

IF E*="."THEN 1094 

<170> 

1166 

CLOSE 15 


<244> 

1093 

FI*="BILD":GOSUB 302 

<094> 

1167 

NEXT 


< 161 > 

1094 

PRINT#D,RL*"AU BIST DER " +AN*". ANRUF 


1168 

RETURN 


<210> 


ER" 

<060> 

1169 

REM — TON AUSSCHALTEN - 



1095 

PR I NT#D , " AM "DA*" UM "TE*" HHR"RL*: 

< 172> 




<250> 

1096 

RETURN 

< 138> 

1170 

POKE SI,0 


<183> 

1097 

PRINTHD,RL*"XSCHUESS AND AYE BVE "UX* 


1171 

POKE SI+1,0 


<014> 


RL*; 

<203> 

1172 

POKE SI+7,0 


< 144> 

1098 

PRINTWD,RL*RL*"AIS ZUM NAECHSTEN MAL" 


1173 

POKE SI+8,0 


<210> 


RL* 

<244> 

1174 

POKE S1+24,0 


<177> 

1099 

RETURN 

< 141 > 

1175 

RETURN 


<217> 

1100 

REM — ADRESSE VOM SYSOP (M.C.S. 


1176 

• 


< 136> 



< 189> 

1177 






REM MAILBOX TEXTE 



1101 

PRINT#D,RL*"CIAH3"RL*; 

<212> 




<206> 

1102 

PRINTHD,"2000 HAMBURG 70"RL*; 

< 181 > 

1178 

• 


< 138> 

1103 

PRINTttD, "HUF DEM ÄOENIGSLANDE 43"RL* 

<119> 

1179 

PRINTttD.RL* 


< 088 > 

1104 

RETURN 

<146> 

1180 

CMD D 


<060> 

1105 

REM — FEHLER ABFRAGE FLOPPY - 


1181 

DN T GOTO 11B6,1191,1194,1199,1204, 

12 




< 196> 


08,1214 


<020> 

1106 

INPUT#15,E,EE*,EX1,EX2 

< 114 > 

1182 

IF T>7 THEN T’T-7 


<075> 

1107 

IF E<1 THEN RETURN 

<068> 

1183 

ON T GOTO 121B,1227,1236,1245,1256, 

12 


1108 

PRINT XN*".r.L.0.P.P.Y E_KR_0_R":E:EE*:EX1:EX2 

<154> 


66,1278 


<017> 

1109 

FOR 1 = 1 TO 50 

<241> 

1184 

PRINT#2,RLS 


<204> 

1110 

IF I>25 THEN TN=100:FA=2:GOSUB 115s GO 


1185 

RETURN 


<227> 


SUB 1059 

< 139> 

1186 

PRINT"£S KOENNEN ZUR ZEIT KEINE PERS. 


1111 

IF I<25 THEN TN=70:FA=10:GOSUB 115:GO 



HS G" RL» : 


< 146> 


SUB 1059 

<003> 

1187 

PRINT"ABGESPEICHERT WERDEN ! “RL*i 


< 125> 

1112 

NEXT 

<106> 

1188 

PRINT"AITTE NIMM DEN fiEFFENDLICHEN 

XE 


1113 

GET X* 

<235> 


IL."RL*; 


<088> 

1114 

IF X*=""THEN 1109 

<100> 

1189 

PRINT"AAS SYSTEM"RL* 


<197> 

1115 

IF X*=“W"THEN RETURN 

<201 > 

1190 

RETURN 


<232> 

1116 

IF X*="S"TH£N END 

< 144> 

1191 

PRINT“**** PERSOENLICHE flESSAGE EINGA 


1117 

GOTO 1109 

<123> 


BE ****•• RL*; 


<018> 

1118 

CLOSE 15 

< 196> 

1192 

PRINT"SITTE DEN HAMEN DES USERS ANGEB 


1119 

OPEN 15,8,15:RETURN 

<097> 


EN"RL* 


<0B2> 
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1193 RETURN <235> 

1194 PRINT"AAXIMAL 40 JEILEN<2SPACE} A'80 2 

EICHEN"RL#; <090> 

1195 PRINT"EINGABE MIT £’ ODER MIT fl' BE 

GINNEN"RL*: <235> 

1196 PRINT"flIT £TRL/fl / £S£ / £UA ODER MIT 

..."RL*; <115> 

1197 PRINT"KANN DIE EINGABE ABGEBROCHEN WE 

RDEN."RL* <206> 

1198 RETURN <240> 

1199 PRINT"SER ÜPDATESPEICHER IST VOLL!"RL 

*; <042> 

1200 PRINT"HEUE IEXTE KDENNEN ERST BEIM“RL 

*5 <129> 

1201 PRINT"NAECHSTEN ANRUF ANGENOMMEN WERD 

EN."RL*; <092> 

1202 PRINT"AAS SYSTEM”RL* <210> 

1203 RETURN <245> 

1204 PRINT " JY-S.TJUl O.P_L«JTf.K SUF£A"RL*; <092> 

1205 PR INT " BITTE JÜUTJH .qjE.il TUT £TRL/Ä AS 

SR£fi H £H"RL*; <090> 

1206 PRINT". < ENJ "RL*s <080> 

1207 RETURN <249> 

1208 PR I NT" 5.0 RBY EP I.S.T 2-U.P Z.E1.T. HECHT. RHU 

E5ENH . "RL*; <20B> 

1209 PRINT 11 VER.S_U.C_K £5 JITTJ 5PAETER HOCH fl. 

Ai UA£Ä"RL*; <239> 

1210 PRINT" HI_KT_E.RL.n5 5E EINE PERS . flESSHGE 

fl 8 I£S"RL*; <056> 

1211 PRINT" »» > {2SPACE X S.r_S.qP ODER C TJtH ] ( 

2SPACE ><<<<<"RL*; <044> 

1212 PRINT"AAS SYSTEM."RL* <196> 

1213 RETURN <255> 

1214 PRINT"flURRA . £R IST ANWESEND<2S 

PACE}!!"RL*; <20B> 

1215 PRINT"JUM flENUE KOMMST WIEDER MIT £TR 

L/fl"RL*; <179> 

1216 PRINT"WENN AU MIT DEM G£SPRAECH FERTI 

G BIST."RL* <067> 

1217 RETURN <003> 

121B PRINT"AU HAST DIE MOEGLICHKEIT DICH H 

IER"RL*; t 

1219 PRINT"EINZUTRAGEN UM flITBENUTZTER DER 

"RL*; <085> 

1220 PRINT"fl. £. fl. - SUÄ ZU WERDEN."RL*; <147> 

1221 PRINT"ALLE ANGABEN ERFOLGEN FREIWILLI 

6 "RL*; <224> 

1222 PRINT"UND WERDEN NICHT WEITER VERWEND 

ET."RL*; <133> 

1223 PRINT"SITTE ACHTE AUF AEBERTRAGUNGSFE 

HLER UND"RLS; <140> 

1224 PR INT" B.I.T.T.E NUR ERNSTGEMEINTE EINTRAG 

UNGEN"RL*; <165> 

1225 PRINT"VORNEHMEN !!"RL* <096> 

1226 RETURN <012> 

1227 PRINT"£K. HENN AU DIE .ffilX SPAETER MIT 

£SSfl££"RL*; <049> 

1228 PRINT"VERLAESST WIRD DER RECHNER AICH 

IN DIE"RL*; <148> 

1229 PRINT"USERLISTE EINTRÄGEN."RL*; <01B> 

1230 PRINT"^IM NAECHSTEN ANRUF VON AIR MU 

SST-RL*; <039> 

1231 PRINT"AU DICH BITTE MIT Ulil HAME UND 

ÄINEM"RL»; <092> 

1232 PRINT"PASSWORT EINLOGGEN DAMIT AU AEI 

NE £ERS."RL*; <112> 

1233 PRINT"AESSAGE LESEN KANNST."RL*; <243> 

1234 PRINT"AAS SYSTEM."RL* <218> 

1235 RETURN <021> 

1236 PRINT"AU HAST ZU VIELE UEBERTRAGUNGSF 

EHLER"RL*: <251> 

1237 PRINT"AUS SICHERHEITSGRUENDEN DIE AIR 

"RL*; <221> 

1238 PRINT“SICHERLICH EINLEUCHTENI2SPACE}M 

USS ICH"RL»; <202> 

1239 PRINT"AIR LEIDER DIE FUNKTION SPERREN 

-"RL*: <127> 

1240 PRINT"UERSUCH ES BITTE NOCH MAL MIT E 

INER"RL*; <210> 

1241 PRINT"BESSEREN 2ELEFONLEITUNG ODER"RL 

*; <12B> 

1242 PRINT"UEBERPRUEFE AEINEN &OPPLER EINM 

AL."RL*; <009 > 


1243 PRINT"AAS SYSTEM."RL* 

1244 RETURN 

1245 PRINT" .I-5,T. ans. tU-LF IflflfiXELI.L.I G. AAS 
AH Ai£S"RL*; 

1246 PRINT" E.I.KP-E_HKST ????"RL*; 

1247 PRINT"HENN ICH VON AIR WEITER NICHTS 
HOEREN"RL*; 

1248 PRINT"SOLLTE SEHE ICH MICH GEZWUNGEN 
DIE"RL*; 

1249 PRINT"VERBINDUNG VON MEINER SEITE ZU 
UNTER-"RL*; 

1250 PRINT"BRECHEN."RLS; 

1251 PRINT"SCHLIESSLICH WOLLEN AUCH ANDERE 
IN DIE<2SPACE>SDX."RLS; 

1252 PRINT 11 ALSA ,K.Oflfl Ifl fll£ HUF-EH ! ! ! ! "RL* 

; 

1253 PR INT "AAS HAfl ALL flLt..qiU-ETZT_E HflURUHG. 
!!"RL*; 

1254 PRINT"AAS SYSTEM."RL* 

1255 RETURN 

1256 PRINT" .TI.fl E .OJj T .P.EJU.OA fAPJJSA"RL*; 

1257 PRINT"-"RL*; 

1258 PRINT-AU HAST LEIDER AEIN JEITLIMIT U 
EBER-"RL*; 

1259 PRINT"SCHRITTEN !!!!!*"RL*; 

1260 PRINT"AABE BITTE VERSTAENDNIS DAFUER 
DAS ICH"RL*; 

1261 PRINT"DIE VERBINDUNG VON MEINER SEITE 
AB-"RL*; 

1262 PRINT"BRECHE UM AUCH ANDEREN USERN DI 
E £ELE—"RL*; 

1263 PRINT“GENHEIT ZU GEBEN HIER ANZURUFEN 
."RL*; 

1264 PRINT"SD LONG. AAS SYSTEM."RL* 

1265 RETURN 

1266 PRINT"SDRRY DIESER USER IST SO BEI MI 
R NICHT”RL#; 

1267 PR I NT " EINGETRAGEN. " RL* ; 

1268 PRINT"SUCHE DOCH MAL MIT DEM AEFEHL U 
£H ASA£*"RL#; 

1269 PRINT" IM flA.I-LJ.07UlEH.UE NACH DEM USER A 

£ '• R GIB"RL*; 

1270 PRINT"NUR DIE ANFANGS JUCHSTABEN UND 
'*'"RL*; 

1271 PRINT"(SDKER) AN."RL*; 

1272 PRINT"SOLLTE ER IMMER NOCH NICHT BEFU 
NDEN-RL*; 

1273 PRINT"WERDEN SO IST DIESER USER NOCH 
NICHT"RL*; 

1274 PRINT"BEI MIR EINGETRAGEN."RL*; 

1275 PRINT"AAS SYSTEM."RL* 

1276 RETURN 

1277 REM — HELPLISTEN- 


1278 

1279 

1280 
1281 
1282 
12B3 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 


PRINT"£XXI5SPACE}£INGABE"RL*; 
PRINT"flXXI5SPACE >ANZEIGEN"RL*; 

PRINT" £X X{5SPACE JiOESCHEN“RL*; 
PRINT"XX16SPACE >JEILE”RL*; 

PRINT"S£<6SPACE >SPEICHERN"RL*; 

PRINT" JCHQ {4SPACE>"+0*(E0+1)RL#; 
PRINT"AAI6SPACE >AAILBOXMENUE“RL* 
RETURN 
PRINT#D,RL* 

CMD D 

ON ME GOTO 1321,1302 

REM — HELP HAUPTMENUE - 


PRINT 
S" RL# 
PRINT 
PRINT 
PRINT 
PRINT 
N”RL* 
PRINT 
; 

PRINT 


"AELP15SPACE>61BT DIESE £ISTE AU 

"AAI7SPACE7AAILB0X-MENUE"RL*; 

" iü<7SPACE > JJMFO-MENUE " RL*; 
"ALÜK6SPACEJÜSER JA"RL*; 
S9ÄC6SPACEJSYSTEM SPERATER RUFE 

"£AU C6SPACE >£ROFIUMSCHALTUNG"RL* 

"ASC7SPACEISELL ON/OFF"RL#; 


<227 > 
<030> 

< 115> 
< 193 > 

<055> 

<088> 

< 187 > 

<009> 

<150> 

<015> 

<208> 

<23B> 

<041> 

<112> 
<111> 

<115> 

<218> 

< 132 > 

<141 > 

< 210 > 

<195> 

< 143> 
<051 > 

<130> 

< 246 > 

< 169> 

< 113> 

<105> 

<05B> 

<029> 

< 108} 
<I97> 
<003> 
<062> 

< 009 > 
<229> 
<015> 
<055> 

< 197 > 

< 177> 

< 111 > 
<247> 
<073> 

< 197> 
<169> 
<1V0> 

<244> 

<084> 

<168> 

< 124 > 
< 151 > 

< 166 > 

<00B> 

<1B0> 


Listing 1. Das Mailbox-Programm (Fortsetzung) 


64et, 

64er- 


iie. 
























Datenfernübertragung (DFU) 


C 64 


1297 PRINT" MEC7SPACE >i,INEFEED ON/OFF"RLS; 

1298 PRINT"XiC7SPACE >11ME/2ATUM/SNLINE"RL* 

; 

1299 PRINT" LOGOf F. I3SPACE > VERB INDUNG BEENDE 
N"RL*; 

1300 PRINT#D:RETURN 

1301 REM — HELP MAILBDXMENUE - 


1302 


PR INT "HELP «SPACE >GIBT DIESE L.ISTE AU 
S"RL*; 

PRINT"HU<7SPACE>HEUER USER EINTRAG"RL 
1304 PR INT "Mi. «SPACE > ÜBERLISTE BESANNT "RL* 


1303 


1305 

1306 

1307 
130B 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 
132B 

e «'s 


PRINT"ÜMB «SPACEJflNZAHL USER "RLS; 

PRINT"Mül16SPACE>HUR HAMEN ANZEIBEN"R 
L*; 

PRINT"ÜMH-HACH HAMEN SUCHEN "RL*; 

PRINT"HMH ...* MIT ADKER"RL*; 

PRINT"üiä_HACH STADT SUCHEN”RL*; 

PRINT"MLS_HACH RECHNER SUCHEN"RL 

*; 

PR I NT" ÜM8-HACH fiATUM SUCHEN "RL#; 

PRINT" U.IJW «SPACE>USER SÄTEN AENDERN" 
RL#; 

PRINT“£H£<6SPACE>£ERS. flESSAGE EINGAB 
E"RL#; 

PRINT"££LLC6SPACE>£ERS. flESSAGE LESEN" 
RL*; 

PRINT"fl£«SPACEIflESSAGE EINGABE"RL#; 
PRINT"flM<7SPACE >flESSAGE LESEN"RL#; 

PRINT"XH «SPACE> JNFOMENUE"RL#; 
PRINT"Hfl«SPACE>flAUPTMENUE"RL#; 
PRINTSD:RETURN 

REM — HELP INFGMENUE - 


PRINT"HELP«SPACE>GIBT DIESE MISTE 
S"RL#; 

PRINT"&i<7SPACE>J5ECHNER JMFO"RL*| 
PR I NT" flH. «SPACE > AKTUELLES "RL#; 

PR I NT " fli. «SP ACE > ALLGEME INES " RL*; 

PR I NT '• C7SPACE >S_UBINFOS"RL#; 

PRINT"flfl «SPACE)HAILBOXMENUE"RL*; 
PRINT"flfl« SPACE >HAUPTMENUE"RLS; 
PRINT#D:RETURN 


AU 


<226> 
<191 > 

< 000 > 

< 022 > 

<247> 

<096> 

<113> 

< 173> 
<007> 

< 012 > 

<079> 

<243> 

<059> 

< 175> 
<018> 

<025> 

<193> 

<243> 

< 194> 
<079> 
<05B> 
<077> 
<041> 

<232> 

<115> 

<152> 

< 111 > 

<23B> 

Xl* 2 > 

<239> 

<086> 

<050> 


Listing 1. Das Mailbox-Programm (Schluß) 


c OL 


6 POKE 53280,0 <0S6> 

7 POKE 53281,0 <185> 

8 DIM U*(400):X=17 <130> 

9 C#=CHR* (X > +CHR* (X) +CHRS (X) +CHR* (X) +CHR* < 

X) <206> 

10 C#=CHR*(19)+C*+C* <197> 

11 PRINT"MINEN flUBENBLICK BITTE"CHR#(14) <148> 

12 GOSUB 226 <188> 

13 PRINT CHR*(147)CHRS<158)"SATEI/5DRT/£DP 

Y{13SPACE>Ü3.0 fl.£.S. " <252> 

14 PRINT CHR*<X)CHR*<X>"HEL > SEGK6SPACEU 

13 <058> 

15 PRINT CHR*(X)"S£Q > HEL(6SPACEJC21 <175> 

16 PRINT CHR*<X>“2ATEI ANLEGEN«SPACE3C33 <15B> 

17 PRINT CHR# <X)"AND i 12SPACE>14 3 <215> 

18 PRINT C# <212> 

19 IF A<10 THEN PRINT"SITTE -X4SPACEJC 

3"; <036> 

20 IF A>10 THEN PRINT”SITTE -X4SPACE3C 

73"; <191> 

21 A=A+1 <100> 

22 IF A>20 THEN A=0 <244> 

23 BET A* <233> 

24 IF A*=“"THEN 18 <106> 


25 PRINT CHR*(157)CHR*(157)A* <117> 

26 ON VAL(A*1 GOTO 36,80,116,115,212 <113> 

27 RUN <069> 

28 PRINT CHR*(X)CHR*(X)"ANZAHL MSER >«SPA 

CE}";NR; <042> 

29 PRINT CHR# C157)CHR* 1157)CHR*(157)CHR* <1 

57); <251> 

30 INPUT AN <034> 

31 RETURN <089> 

32 HB=INT(BL/256) <108> 

33 LB=BL-HB«256 <231> 

34 PRINT#15,“P"+CHR# < 2)-*-CHR* < LB > +CHR*< HB) + 

CHR* <1) <145> 

35 RETURN <093> 

36 GOSUB 198 <125> 

37 GOSUB 28 <111> 

38 OPEN 15,8,15 <196> 

39 OPEN 8,8,2,"USER" <216> 

40 PRINT CHR*<147) <069> 

41 FOR BL=400—AN+1 TO 400 <033> 

42 GOSUB 32 <028> 

43 L=AN+BL-400 <144> 

44 INPUT# 8 ,U*<L) <038> 

45 U*=MID*(U*<L),61,4) <057> 

46 PRINT CHR*(19)U* <249> 

47 PRINT CHR*(X)U*(L> <066> 

48 U*<L)=U*+U*<L> <051> 

49 NEXT <059> 

50 CLOSE B <117> 

51 CLOSE 15 <145> 

52 PRINT CHR#(147)"SORTIEREN" <039> 

53 !,AN,U# <1) <045> 

54 FOR 1=1 TO AN <238> 

55 U*(I)=RIGHT*<U*<I),79) <226> 

56 NEXT <066> 

57 PRINT CHR*(147)CHR#(X)"£ERTIG“ <235> 

58 GOSUB 212 <090> 

59 AN=NR <058> 

60 PRINT CHR*(X)"SITTE 2ISKETTE WECHSELN" <123> 

61 PRINT CHR*(X)“HENN AUF EINER HEUEN SÄTE 

IF M. ISKETTE ALS" <199> 

62 PRINT"HELATIV DANN NUR HETURN" <111> 

63 PRINT CHR*(X)"ALS SEQUENZELES £ILE SA E 

INGEBEN" <168> 

64 PRINT CHR*(X>"SITTE HAEHL«SPACE3HM "; <053> 

65 PRINT CHR*(157)CHR*(157)CHR*<157)CHR*<1 

57)CHR*<157); <179> 

66 INPUT A* <164> 

67 IF A#=”S&"THEN 99 <007> 

68 IF A*< >"OK"THEN 60 <196> 

69 OPEN 1,8,2," 8 :USER SORTIERT,S,W" <232> 

70 PRINT CHR*(147)"SPEICHERN" <028> 

71 FOR 1=1 TO AN <255> 

72 PRINT»1,U*<I) <087> 

73 PRINT CHR* <19)CHR*(X)CHR#(X)U*(I) <124> 

74 NEXT <084> 

75 PRINT#1,"END" <060> 

76 CLOSE 1 <087> 

77 PRINT CHR# (X) “SAS EDITIERTE OLE MIT DE 

M HAMEN" <045> 

78 PRINT"'USER FERTIG’ ABSPEICHERN." <104> 

79 RUN < 121 > 

80 PRINT CHR*<147) "OLE LADEN" <077> 

81 AN=0 <249> 

82 PRINT CHR* < X)CHR#(X)"OLENAME ”; <063> 

83 INPUT A* < 181 > 

84 IF LEN(AS)>16 OR LEN<A*)<1 THEN G0 <020> 

85 OPEN 1,8,0,A*+",S,R" <002> 

86 SR=ST <223> 

87 IF SR>0 THEN 94 <250> 

88 INPUT#1,E* <102> 

89 IF E*="END"THEN 94 <039> 

90 AN=AN+1 <061> 

91 U*(AN)=E* <110> 

92 PRINT CHR*<147)AN <052> 

93 GOTO 86 <167> 

94 PRINT CHR*(X)"HERTIG" <041> 

95 CLOSE 1 <106> 

96 PRINT CHR*(X)"SITTE SISKETTE WECHSELN U 

ND HETURN"; <036> 

97 GET A* <051> 

98 IF AS< >CHR$(13)THEN 97 <174> 

99 OPEN 15,8,15 <001> 




64 




















C 64 Datenfernübertragung (DFÜ) 



100 

OPEN 8,8,2,"USER" 

<021> 

171 

PRINT”£ILE FUER ALLGEMEINES" 

<013> 

101 

PRINT CHR*(147) 

<130> 

172 

OPEN 1,8,2,"AL,S,W" 

<123> 

102 

FOR BL=400—AN+1 TO 400 

<094> 

173 

PRINT#1,"LEER" 

<196> 

103 

GOSUB 32 

<089 > 

174 

CLOSE 1 

<185> 

104 

L=AN+BL-400 

<205> 

175 

PRINT"AILE FUER .RECHNER INFO" 

<203> 

105 

PRINT CHR*(19)L 

<■27.7 > 

176 

OPEN 1,8,2,"RI,S,W" 

<171> 

106 

PRINT#8,U*(L> 

< 180> 

177 

PRINT#1,"LEER“ 

<200> 

107 

PRINT CHR*(X)U*(L> 

<126> 

178 

CLOSE 1 

< 189> 

108 

NEXT 

< 118> 

179 

PRINT"AILE FUER TELEFON" 

<227> 

109 

CLOSE 15 

<203> 

180 

OPEN 1,8,2,"TEL,5,W" 

<097> 

110 

CLOSE 8 

< 177> 

181 

PRINT#1,"LEER" 

<204 > 

111 

PRINT CHR*(147)CHR*(X)"ANZAHL USER JET 


182 

CLOSE 1 

< 193> 


ZT VAN 

<003> 

183 

PRINT"AILE FUER ULUBS" 

<225> 

112 

NR=AN 

<033> 

104 

OPEN 1,8,2,"CL,S,W" 

< 143> 

113 

SOSUB 203 

< 161 > 

1B5 

PRINT#1,"LEER" 

<20B> 

114 

RUN 

<156> 

186 

CLOSE 1 

<197> 

115 

SYS 64738 

< 175> 

1B7 

PRINT“AILE FUER AKTUELLES" 

<00B> 

116 

PRINT CHR#(147)CHR*(X)"flAILBDXDATEI AN 


188 

OPEN 1,8,2,"AK,S,W" 

<131 > 


LESEN" 

<021 > 

189 

PRINT#1,"LEER" 

<212> 

117 

PRINT CHR*(X>"SITTE NEUE DISKETTE EINL 


190 

CLOSE 1 

<201 > 


EGEN” 

<095> 

191 

PR INT "ÖLES FUER PERS. flESSAGE" 

< 178> 

118 

PRINT CHR*(X>CHR#(X)"ßDMPL. «SPACEJSAT 


192 

FÜR 1=1 Tü 50 

<084 > 


EI«SPACE JC13 

<157> 

193 

OPEN 1,8,2,"P"+STR#(I)+",S,W" 

<110> 

119 

PRINT CHR*(X)"KUR KEL. ÜATEI [2D 

<190> 

194 

CLOSE 1 

<205> 

120 

PRINT CHR*(X)"KETURN «SPACE> C3 3 

<021 > 

195 

NEXT 

<205 > 

121 

PRINT C*CHR*(X> 

<146> 

196 

PRINT CHR*(X>"AERTIG" 

<143> 

122 

IF A<10 THEN PRINT"SITTE -><4SPACE> 


197 

RUN 

<239> 


C 1"; 

<139> 

198 

OPEN 1 ,8,0, "A—INDEX ,S, R" 

<110> 

123 

IF AMU THEN PR INT "SITTE-X4SPACEI 


199 

INPUT# 1 , DAS , AN* , NR* , AK* 

<067> 


C?]"; 

< 038 > 

200 

CLOSE 1 

<211> 

124 

A=A+1 

<203> 

201 

NR=VAL(NR*> 

<230> 

125 

IF A>20 THEN A=0 

<091> 

202 

RETURN 

< 004 > 

126 

SET A* 

<0B0> 

203 

OPEN 1,8,2,"@:A—INDEX,S,W" 

<099> 

127 

IF A*=" "THEN 121 

<066> 

204 

NR*=STR*(NR> 

<010> 

128 

PRINT CHR*(157)CHR*(157)A* 

<220> 

205 

C*=CHR*(13> 

<069> 

129 

IF AS="1"THEN X=0:GOTQ 133 

< 181 > 

206 

PRINT#1,DA* 

<101 > 

130 

IF AS*"2"THEN X=l:GOTO 133 

<071> 

207 

PRINT#1,AN# 

<073> 

131 

IF A*=”3"THEN RUN 

<015> 

208 

PRINT#1,NR* 

<236> 

132 

SOTO 116 

<012> 

209 

PRINT#1,AK* 

<1385 

133 

PRINT CHR*(147)CHR*(X)"SISKETTE EßRMAT 
IEREN“ 

OPEN 15,8,15,"N:DATENDISK M.M.D..V3" 

C 

210 

CLOSE 1 

OITT! IPN 

<220 

<013^ 

134 

■7V.lV- 

2«'„.. =0 

<204> 

135 

CLOSE 15 

<229> 

213 

AX=AX+1 

< 139> 

136 

PRINT CHR* (X) ".RELATIVES £ILE FUER USER 


214 

PRINT U*(AX) 

<210> 


U 

<167> 

215 

IF AX>NR THEN RETURN 

<074> 

137 

RN=400 

<025> 

216 

PRINT"UEBERNEHMEN «SPACE >A<35PßCE>"CHR 


138 

HB=INT(RN/256) 

< 115 > 


*(157)CHR*(157)CHR*(157)CHR*(157)CHR*( 


139 

LB=RN-HB«256 

<211> 


157) CHR* (157) ; 

<038> 

140 

OPEN 1,8,2," USER , L , " -*-CHR# (80) 

<047 > 

217 

INPUT A* 

<059> 

141 

OPEN 15,B,15 

<043> 

218 

IF AS*"i"THEN 213 

< 140> 

142 

PRINTS15,"P"+CHR*(2)»CHR*(LB)+CHR*(HB) 


219 

IF A*="S"THEN RETURN 

< 135> 


+CHR*(1) 

<253> 

220 

IF A#<>"N"THEN 216 

<227> 

143 

PRINT41,CHR*(255) 

<154> 

221 

FOR I=AX TO NR 

<218> 

144 

PRINT#15,"P"+CHR*(2 > +CHR*(144)+CHR#(1) 


222 

U*(I)=U*(I+1) 

<067> 


+CHR*(1) 

<243> 

223 

NEXT 

<233> 

145 

A*="01.06.8500.00.00 0000mnS.U.BJ3. {12SPA 


224 

NR=NR 1 

<057> 


CE>.S_X—64 «SPACE > 1WS.T£ RI4SPACE > t TKW I <5S 


225 

GOTO 213 

<017> 


PACE >" 

<089> 

226 

IF PEEK(52286)=169 THEN RETURN 

<08B> 

146 

PRINT#1,LEFT* < A*+"C10SPACE V , 79 > 

< 158 > 

227 

XX=0 

<055> 

147 

CLOSE 1 

< 158 > 

228 

FOR 1=52286 TO 53131 

<070> 

148 

CLOSE 15 

<242> 

229 

READ A 

<013> 

149 

IF X=1 THEN RUN 

<004> 

230 

POKE I , A 

< 120 > 

150 

PRINT"(DOWN>XNDEX ££LD FUER PERS. HESS 


231 

XX=XX+A 

<236 > 


AGE" 

<007 > 

232 

NEXT 

<242> 

151 

OPEN 1,8,2,"M—INDE X,S,W“ 

<1V2> 

233 

IF XX-12895B THEN 236 

<255> 

152 

FOR 1=1 TO 50 

< 044 ; 

234 

PRINT"DATA-FEHLERV 

<068> 

153 

PRINT#1,"LOES” 

<1B3> 

235 

STOP 

<045> 

154 

NEXT 

< 164> 

236 

SYS 52286 

< 161 > 

155 

CLOSE 1 

<166> 

237 

RETURN 

<039> 

156 

PRINT"JNDEX OELD FUER ALLGEMEINES" 

<185> 

238 

DATA 169,73,141,B,3,169,204,141,9 

<244> 

157 

OPEN 1 ,8,2, "A—INDEX , S, W" 

< 150 > 

239 

DATA 3,96,32,115,0,201,33,240,6,32 

<057> 

158 

PRINT#1,"01.06.85" 

< 1B7> 

240 

DATA 121,0,76,231,167,32,115,0,234,234 

<094> 

159 

PRINT#1,”1" 

<237> 

241 

DATA 234,234,234,32,100,204,76,174 

< 137> 

160 

PRINT#1,"1" 

<238> 

242 

DATA 167,32,253,174,32,158,173,32 

<001> 

161 

PRINT#1,"01.06.85 / 00.00" 

<008> 

243 

DATA 247,183,165,20,141,152,207,165 

<052> 

162 

CLOSE 1 

< 173> 

244 

DATA 21,141,153,207,32,253,174,32 

<124> 

163 

PRINT"AILE FUER JITELBILD" 

<007> 

245 

DATA 158,173,56,165,71,233,3,133,75 

< 108> 

164 

OPEN 1,8,2,"BILD,S,W" 

<189> 

246 

DATA 165,72,233,0,133,76,162,1,173 

<194> 

165 

PRINT#1 , "flASTER-£ONTROL-.&YSTEM" 

< 149> 

24 7 

DATA 1S2,207,157,160,207,173,133,207 

< 1 7B> 

166 

CLOSE 1 

<177> 




167 

16B 

169 

PRINT"AILE FUER flESSAGE" 

OPEN 1 ,8,2, "MESSAGE,S,W" 

PRINT#1,"-KAXI-" 

<245> 

<001 > 

< 160> 

Listing 2. »DATEI/SORT/COPY«. Dieses Programm 
erzeugt die unbedingt benötigte Datendiskette. 

170 

CLOSE 1 

< 1B1 > 

Beachten Sie die Eingabehinweise auf Seite 6. 





64er- 

64ei- 











Datenfernübertragung (DFU) 


C 64 


248 

DATA 

157,180,207,169,1,157,200,207 

<001 > 

299 

DATA 

207,173,157,207,157,180,207,32 

<214> 

249 

DATA 

169,0,157,220,207,189,200,207 

<031 > 

300 

DATA 

131,207,32,131,207,202,173,156 

<255> 

250 

DATA 

141,156,207,189,220,207,141,157 

<201 > 

301 

DATA 

207,157,200,207,173,157,207,157 

<209> 

251 

DATA 

207,1B9,160,207,141,158,207,1B9 

< 149> 

302 

DATA 

220,207,76,128,206,32,131,207 

<168> 

252 

DATA 

180,207,141,159,207,32,47,207 

<090> 

303 

DATA 

232,173,156,207,157,200,207,173 

<045> 

253 

DATA 

173,151,207,48,4,202,208,221 

<010> 

304 

DATA 

157,207,157,220,207,202,189,160 

<234> 

254 

DATA 

96,189,200,207,141,156,207,189 

<013> 

305 

DATA 

207,232,157,160,207,202,189,180 

<033> 

255 

DATA 

220,207,141,157,207,169,1,141 

<172> 

306 

DATA 

207,232, 157,180,207,202,32, 101 

< 140> 

256 

DATA 

158,207,169,0, 141,159,207,32,101 

< 123> 

307 

DATA 

207,32,101,207,173,156,207,157 

<002> 

257 

DATA 

207,189,160,207,141,15B,207,141 

<137> 

308 

DATA 

160,207,173,157,207,157,180,207 

<068 > 

258 

DATA 

154,207,189,180,207,141,159,207 

<044> 

309 

DATA 

232,76,162,204,160,3,165,75,133 

<214> 

259 

DATA 

141,155,207,32,47,207,173,151 

< 167> 

310 

DATA 

79,133,Bl,165,76,133,B0,133,82 

<240> 

260 

DATA 

207,48,3,76,167,205,32,131,207 

<216> 

311 

DATA 

24,165,79,109,143,207,133,79 

<088> 

261 

DATA 

173,156,207,141,143,207,173,157 

<026> 

312 

DATA 

165,80,109,144,207,133,80,24 

<255> 

262 

DATA 

207,141,144,207,173,154,207,141 

<066> 

313 

DATA 

165,81,109,145,207,133,81,165 

<004> 

263 

DATA 

145,207,173,155,207,141,146,207 

<006> 

314 

DATA 

82,109,146,207,133,82,136,208 

< 159> 

264 

DATA 

32,132,206,32,180,206,173,151 

<204> 

315 

DATA 

223,96,160,0,140,151,207,177,79 

<226> 

265 

DATA 

207,48,218,173,156,207,141,143 

<049> 

316 

DATA 

141,147,207,177,81,141,148,207 

<053> 

266 

DATA 

207,173,157,207,141,144,207,173 

<083> 

317 

DATA 

200,152,205,147,207,240,2,176 

<069> 

267 

DATA 

158,207,141,156,207,173,159,207 

<133> 

31B 

DATA 

13,205,148,207,240,21,144,19 

< 170> 

268 

DATA 

141,157,207,169,1,141,158,207 

< 097 > 

319 

DATA 

238,151,207,76,30,207,205,148 

<1B4> 

269 

DATA 

169,0,141,159,207,32,101,207,173 

<011> 

320 

DATA 

207,240,2,176,62,206,151,207 

<214> 

270 

DATA 

156,207,141,158,207-, 173,157,207 

<010> 

321 

DATA 

76,30,207,140,149,207,160,1,177 

<217> 

271 

DATA 

141,159,207,173,143,207,141,156 

<079> 

322 

DATA 

79,133,77,200,177,79,133,78,172 

<255> 

272 

DATA 

207,173,144,207,141,157,207,32 

<134> 

323 

DATA 

149,207,136,177,77,141,150,207 

< 162> 

273 

DATA 

47,207,173,151,207,16,35,173 

< 197> 

324 

DATA 

140,149,207,160,1,177,81,133 

<097 > 

274 

DATA 

154,207,141,143,207,173,155,207 

< 131 > 

325 

DATA 

77,200,177,81,133,78,172,149 

< 187> 

275 

DATA 

141,144,207,173,158,207,141,145 

<246> 

326 

DATA 

207,177,77,200,205,150,207,208 

<0B1> 

276 

DATA 

207,173,159,207,141,146,207,32 

<056> 

327 

DATA 

3,76,195,206,144,184,76,224,206 

<051> 

277 

DATA 

132,206,32,180,206,173,151,207 

<075> 

328 

DATA 

96,160,2,177,79,72,177,81,145 

<037> 

278 

DATA 

48,152,32,47,207,173,151,207 

<039> 

329 

DATA 

79,104,145,Bl,136,16,243,96,169 

<254> 

279 

DATA 

16,18,173,156,207,141,143,207 

<143> 

330 

DATA 

0,141,151,207,173,157,207,205 

<140> 

200 

DATA 

173,157,207,141,144,207,32,132 

<255> 

331 

DATA 

159,207,144,6,240,8,238, 151,207 

<045> 

281 

DATA 

206,32,31,207,76,241,204,234 

<236> 

332 

DATA 

96,206, 151 ,207,96,173, 156,207 

<028> 

282 

DATA 

189,160,207,141,143,207,189,180 

<187> 

333 

DATA 

205,158,207,144,244,208,238,96 

<110> 

283 

DATA 

207,141,144,207,173,156,207,141 

<091 > 

334 

DATA 

173,156,207,24,109,158,207,141 

<137> 

284 

DATA 

145,207,173,157,207,141,146,207 

<031> 

335 

DATA 

156,207,173,157,207,109,159,207 

<255> 

285 

DATA 

32,132,206,32,31,207,173,156 

< 200 > 

336 

DATA 

141,157,207,96,169,0,141,151,207 

<237> 

286 

DATA 

207,141,158,207,141,143,207,173 

<127> 

337 

DATA 

56,173,156,207,237,158,207,141 

<147> 

287 

DATA 

157,207,141,159,207,141,144,207 

<198> 

338 

DATA 

156,207,173,157,207,237,159,207 

<130> 

2BB 

DATA 

32,81,207,189,160,207,141,158 <0441 

207,1B9,180,207,141,159,207,32 <104>' 


141,157,207,176,3,206,151,207 

<029> 

289 

DATA 

96,238,156,207,208,3,238,157 

<22B> 

290 

DATA 

101,207,173,151,207,48,15,189 

<208> 

341 

DATA 

207,96 

< 1B8> 

291 

DATA 

200,207,141,158,207,1B9,220,207 

<028> 

342 

RETURN 

< 1 46 > 

292 

DATA 

141,159,207,32,101,207,169,1 

< 177> 





293 

DATA 

141,158,207,169,0,141,159,207 

<124> 

6 



294 

DATA 

173,143,207,141,156,207,173,144 

< 157> 





295 

DATA 

207,141,157,207,173,151,207,16 

<109> 





296 

DATA 

52,189,200,207,232,157,200,207 

<176> 





297 

DATA 

202,189,220,207,232,157,220,207 

< 184> 





298 

DATA 

32,101,207,173,156,207,157,160 

<159> 

Listing 2. 
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cii0 

3 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

04 

ciia 


ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

17 

c 1 20 

: 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

lf 
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ea 
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Datenfernübertragung (DFÜ) 


c299 

s 

C0 

8 d 

lb 

C0 

20 

•J 

cl 

ae 

03 

c3c0 

i 

f0 

fl 

f 2 

f 3 

f 4 

f 5 

f 6 

*7 

af 

c4eQ 

: 

18 

00 

00 

lb 

00 

00 

00 

bb 

64 

c2a0 


ld 

C0 

d0 

ec 

20 

c2 

c 1 

a5 

59 

c3c8 

: 

fB 

f 9 

fa 

fb 

fc 

fd 

fe 

ff 

b6 

c4f 0 

- 

20 

21 

22 

23 

24 

25 

26 

27 

C0 

c 2 aB 

: 

90 

c9 

00 

d0 

dd 

ad 

lb 

C0 

70 

c3d0 

x 

00 

00 

00 

00 

00 

00 

00 

07 

df 

c4f 8 

: 

28 

29 

2 a 

2 b 

2 c 

2 d 

2 e 

2 f 

eB 

c 2 b 0 

s 

C9 

00 

f0 

f0 

c9 

0 e 

d0 

ec 

fe 

c3dB 

: 

14 

BB 

0 a 

00 

00 

0 d 

00 

00 

d7 

c500 

: 

30 

31 

32 

33 

34 

35 

36 

37 

f0 

c2bB 


4c 

f 8 

cl 

0 d 

Bd 

2 d 

d4 

d8 

d2 

c3e0 

x 

00 

00 

00 

00 

00 

BB 

00 

00 

el 

c50B 

: 

38 

39 

3a 

3b 

3c 

3d 

3e 

3f 

f 8 

c 2 c 0 

8 

c5 

ce 

2d 

0 d 

0 d 

00 

00 

00 

aa 

c3eB 

i 

18 

00 

M 

lb 

00 

00 

00 

00 

64 

c510 

X 

40 

Cl 

c 2 

c3 

c4 

c5 

c6 

c7 

7f 

c2cB 

: 

00 

00 

00 

00 

00 

00 

00 

00 

c9 

c3f 0 

: 

20 

21 

22 

23 

24 

25 

26 

27 

e0 

c51B 

: 

cB 

c9 

ca 

cb 

cc 

cd 

ce 

cf 

07 

c 2 d 0 


00 

01 

02 

03 

04 

03 

06 

07 

C0 

c3f B 

: 

28 

29 

2 a 

2 b 

2 c 

2 d 

2 e 

2 f 

eB 

c520 

X 

dB 

dl 

d2 

d3 

d4 

d5 

d6 

d7 

0 f 

c 2 d 8 

: 

08 

09 

0 a 

0 b 

0 c 

M 

0 e 

0 f 

cB 

C400 

i 

30 

31 

32 

33 

34 

35 

36 

37 

f0 

c52B 

X 

d8 

d9 

da 

5b 

5c 

5d 

5e 

5f 

f 8 

c2e0 

: 

10 

11 

12 

13 

08 

15 

16 

17 

10 

c40B 

: 

38 

39 

5« 

3b 

3c 

3d 

3e 

3f 

fB 

c530 

: 

C0 

cl 

c 2 

c3 

ca 

c5 

c6 

c7 

lf 

c2aS 

: 

18 

19 

la 

lb 

lc 

ld 

le 

lf 

d8 

c410 

t 

40 

cl 

c2 

c3 

c4 

c5 

c6 

c7 

7f 

c538 

• 

cB 

c9 

ca 

cb 

cc 

cd 

ce 

cf 

27 

c2f 0 

s 

20 

21 

22 

23 

24 

25 

26 

27 

e0 

c41B 

: 

c8 

c9 

ca 

cb 

cc 

cd 

ce 

cf 

07 

c540 

: 

dB 

dl 

d2 

d3 

d4 

d5 

d6 

d7 

2 f 

c 2 f 8 

: 

28 

29 

2 a 

2 b 

2 c 

2 d 

2 e 

2 f 

eB 

c420 

s 

dB 

dl 

d2 

d3 

d4 

d5 

d6 

d7 

0 f 

c548 

i 

d8 

d9 

da 

5b 

5c 

5d 

5e 

7f 

58 

c300 

c 

30 

31 

32 

33 

34 

33 

36 

37 

f0 

c428 

3 

dB 

fl 9 

da 

5b 

5c 

5d 

5® 

5f 

fB 

c550 

X 

BB 

BB 

00 

0 e 

00 

00 

00 

07 

20 

c30B 

: 

38 

39 

3a 

3b 

3c 

3d 

3e 

Zf 

fB 

c430 

X 

C0 

41 

42 

43 

44 

45 

46 

47 

«10 

c558 

• 

14 

BB 

0 a 

00 

00 

Bd 

Be 

00 

90 

c310 

s 

60 

61 

62 

63 

64 

65 

66 

67 

00 

c438 

3 

48 

49 

4m 

4b 

4c 

4d 

4e 

4f 

28 

c560 

3 

00 

11 

00 

13 

BB 

00 

00 

00 

4b 

c31B 

: 

68 

69 

6 a 

6 b 

6 c 

6 d 

6 e 

6 f 

08 

c440 

: 

50 

51 

52 

53 

54 

55 

56 

57 

30 

c568 

3 

1 B 

00 

00 

lb 

00 

00 

00 

00 

e4 

c320 

; 

70 

71 

72 

73 

74 

75 

76 

77 

10 

c448 

s 

58 

59 

5a 

5b 

5c 

5d 

5e 

7f 

78 

c570 


20 

21 

22 

23 

24 

25 

26 

27 

60 

C328 

8 

78 

79 

7a 

5b 

Sc 

5d 

Bb 

5f 

50 

C450 


00 

00 

00 

00 

00 

00 

00 

07 

5f 

c57B 

X 

28 

29 

2 a 

2 b 

2 c 

2 d 

2 e 

2 f 

6 B 

c330 

s 

60 

61 

62 

63 

64 

65 

66 

67 

20 

c458 

3 

14 

00 

Ba 

00 

00 

0 d 

00 

00 

57 

c5G0 

: 

30 

31 

32 

33 

34 

35 

36 

37 

70 

C33B 

: 

68 

69 

6 a 

6 b 

6 c 

6 d 

tm 

6 f 

28 

c460 

3 

00 

00 

00 

00 

BB 

00 

00 

00 

61 

c5B8 

: 

38 

39 

3a 

3b 

3c 

3d 

3e 

3f 

78 

c340 

: 

70 

71 

72 

73 

74 

75 

76 

77 

30 

c468 

X 

18 

00 

00 

lb 

00 

00 

00 

00 

e4 

c590 

: 

40 

Cl 

c2 

c3 

ca 

c5 

c6 

c7 

ff 

c34B 

- 

78 

79 

7a 

7b 

7c 

7d 

7e 

74 

37 

c470 

3 

20 

21 

22 

23 

24 

25 

26 

27 

60 

c39S 

• 

cB 

c9 

ca 

cb 

cc 

cd 

ce 

cf 

87 

c330 

: 

80 

Bl 

B2 

B3 

84 

85 

B6 

B7 

3f 

c47B 

X 

28 

29 

2 a 

2 b 

2 c 

2 d 

2 e 

2 f 

68 

c5a0 

X 

dB 

dl 

d2 

d3 

d4 

d5 

d6 

d7 

Bf 

c3S8 


88 

89 

8 a 

8b 

Bc 

8 d 

8 e 

Bf 

47 

c480 

3 

30 

31 

32 

33 

34 

35 

36 

37 

70 

c5a9 

: 

dB 

d9 

da 

5b 

5c 

5d 

5e 

5f 

78 

c360 

r 

90 

91 

92 

93 

N 

95 

96 

97 

4f 

c48B 

3 

38 

39 

3a 

3b 

3c 

3d 

Ze 

3f 

78 

c5b0 

: 

C0 

cl 

c 2 

c3 

c4 

c5 

c6 

c7 

9f 

c36B 

8 

98 

99 

9* 

9b 

9c 

9d 

9e 

9f 

57 

C490 

: 

40 

Cl 

c 2 

c3 

c4 

c5 

c6 

c7 

ff 

c5bB 

: 

cB 

c9 

ca 

cb 

cc 

cd 

ce 

cf 

a7 

c370 


a 0 

al 

a 2 

a3 

a4 

a5 

a6 

a7 

5f 

C498 

: 

c8 

c9 

ca 

cb 

cc 

cd 

ce 

cf 

87 

c5c0 

: 

dB 

dl 

d2 

d3 

d4 

d5 

66 

d7 

af 

C37B 

8 

a8 

a9 

aa 

ab 

ac 

ad 

ae 

af 

67 

C4a0 

3 

d0 

dl 

d2 

d3 

d4 

d5 

d6 

d7 

Bf 

c5c8 

: 

dB 

d9 

da 

5b 

5c 

5d 

5e 

7 f 

da 

c3B0 

3 

b0 

bl 

b2 

b3 

b4 

b5 

b6 

b7 

6 f 

C4a8 

; 

dB 

d9 

da 

5b 

5c 

5d 

5e 

5f 

7B 

c5d0 

: 

20 

00 

ff 

00 

ff 

00 

ff 

00 

f0 

c3B8 

8 

b8 

b9 

ba 

bb 

bc 

bd 

be 

bf 

77 

c4b0 

X 

C0 

41 

42 

43 

44 

45 

46 

47 

20 












c390 

: 

40 

41 

42 

43 

44 

45 

46 

47 

B0 

c4bB 

l 

48 

49 

4a 

4b 

4c 

4d 

4e 

4f 

aB 












c398 

: 

48 

49 

4a 

4b 

4c 

4d 

4e 

4f 

88 

c4c0 

3 

50 

51 

52 

53 

54 

55 

56 

57 

b0 












c3a0 

3 

50 

51 

52 

53 

54 

55 36 

57 

90 

C4c8 

8 

58 

59 

Sa 

5b 

5c 

5d 

5 e 

7f 

f 8 












C3a8 

c3b0 

3 

58 

e0 

59 

el 

5a 

e 2 

db 

e3 

dr 

P4 

dd 

e5 

dB 

r»f 

«7 

$7 

-*f 

C4d0 

c4dB 


00 

14 

00 

00 

00 

0 a 

0 e 

00 

00 

00 

00 

0 d 

00 

0 e 

07 

00 

a0 

10 

Listing 3. 

Der Maschinensprache- 

c3b8 

3 

>8 

e9 

ea 

eb 

ec 

Sk* 

BB 

ef 

a7 

c4e0 

S 

00 

11 

00 

13 

00 

00 

00 

00 

cb 

teil der Mailbox (Schluß) 




a m s^cr onun^ " 

DFU - Was ist das? 


Modem 

Datenübertragungseinrichtung, die direkt an das Telefon¬ 
netz angeschlossen wird, also nicht über den Telefonapparat. 

Akustikkoppler 

Datenübertragungseinrichtung, die über das Telefon an 
das Postnetz angeschiossen wird. Erkennbar sind Akustik¬ 
koppler an den Gummimuffen für die Aufnahme des Telefon¬ 
hörers. 

Handshaking 

»Handshaking« bezeichnet den Vorgang des Aussendens 
von Daten und des Wartens auf die Empfangsbestätigung des 
Computers, mit dem man den Datenaustausch vornimmt. 

Simplex 

Wenn auf einer Datenübertragungsleitung Daten nur in 
einer Richtung übertragen werden können, bezeichnet man 
dies als Simplexbetrieb. Dieses Verfahren wird wegen der 
fehlenden Rückmeldemöglichkeiten jedoch selten ange¬ 
wandt. 

Halbduplex 

Im Halbduplexbetrieb bestätigt der empfangende Compu¬ 
ter den Empfang der Daten. 

Volldupiex 

Im Vollduplexbetrieb können beide Computer gleichzeitig 
senden. Weiterhin wiederholt der empfangende Computer 
die Daten und sendet sie an den ersten Computer zurück. 
Stimmen diese Daten überein, wird das nächste Byte gesen¬ 
det. Sind sie nicht korrekt, werden sie wiederholt. 

333 ? 


Baud-Rate 

Die Baud-Rate bezeichnet die Geschwindigkeit mit der 
Daten übermittelt und empfangen werden. 300 Baud bedeu¬ 
tet, daß 300 Bits pro Sekunde übertragen werden. 

Paritätsbit 

Um die Übertragungssicherheit zu erhöhen, wird jedes 
Byte durch ein zusätzliches Bit ergänzt. Die Ergänzung 
erfolgt so, daß die Summe der gleichartigen Binärzustände (0 
oder 1) eine ungerade oder gerade Zahl ergibt. Wird kein Bit 
ergänzt, so hat die Übertragung keine Parität. 

Start/Stopp-Bits 

Einige Computer verlangen die Übertragung einer 
bestimmten Anzahl von Null-Bits nach jedem Byte. Die Benut¬ 
zung von je einem Stopp-Bit und einem Start-Bit ist am 
häufigsten. 

Treibersoftware, Terminalprogramm 

Mit Treibersoftware oder Terminalprogramm bezeichnet 
man die Programme, die die Datenübertragung steuern. Mit 
ihnen wird zum Beispiel die Übertragung von Stopp-, Start- 
und Paritäts-Bits eingestellt und gesteuert. 

Mailbox 

Eine Mailbox ist eine Art elektronischer Briefkasten. Es wird 
zwischen drei Kategorien unterschieden: 

1. Öffentliche Mailboxen (Zutritt für jedermann) 

2. Private Mailboxen (Zutritt nur für eingetragene Benutzer) 

3. Gemischte Mailboxen (öffentlicher und privater Bereich). 
Alle drei Kategorien können gewerblichen Charakter 

haben. Im gewerblichen Bereich dienen Mailboxen oft zur 

Aufnahme von Bestellungen. 
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Sysop 

Der System-Operator ist der Betreiber einer Mailbox oder 
die Aufsicht am Mailbox-Computer. 

Übertragungs-/Eingangsprotokoll 

Mit diesem Protokoll werden die Regeln festgelegt, die dem 
Übertragungsverfahren zugrunde liegen. Erst wenn beide 
Computer manuell oder automatisch auf das gleiche Übertra¬ 
gungsprotokoll eingestellt sind, kann eine sinnvolle Daten¬ 
übertragung beginnen. 

Timeout 

Der Timeout ist die Zeitspanne, die eine Mailbox auf die Ein¬ 
gabe des Benutzers wartet, bevor sie annimmt, daß der 
Benutzer die Verbindung beendet hat. DieTeiefonverbindung 
wird dann auch von der Mailbox beendet, damit die Leitung für 
den nächsten Anrufer zur Verfügung steht. 

Gesamtzeitlimit 

Das Gesamtzeitlimit ist das Zeitkonto des Benutzers inner¬ 
halb des Computersystems, mit dem er Kontakt aufgenom¬ 
men hat. Erreicht der Anrufer sein Zeitlimit, wird die Verbin¬ 
dung automatisch beendet. Es soll verhindert werden, daß 
einzelne Benutzer einen Computer stundenlang blockieren. 
Das Zeitlimit von »eingetragenen Benutzern« ist meist größer 
bemessen als das von »Besuchern«. 

Answer/Originate 

Wenn Sie mit einem Computer Verbindung aufnehmen, 
muß Ihr Modem oder Akustikkoppler auf »Originate« gesetzt 
sein. Dadurch wird das »Einführungsprotokoll« begonnen. 
Kommunizieren Sie direkt mit einem Computer, muß der eine 
im »Originate-«, der andere im »Answer-Modus« sein. Ist die 
Verbindung aufgebaut, spielt der Modus keine Rolle mehr. 
Datex-P 

Datex-P ist ein Verbindungsnetz der Bundespost. Über 
zentrale Vermittlungsstellen kann meist über große Entfer¬ 
nung zum Orts-Tarif kommuniziert werden. Siehe auch »Die 
Netze der Post«, 64'er, Ausgabe 6/85, Seite 46. 

Btx 

Service-Netz der Bundespost. Ausführlicher siehe auch 
»Die Netze der Post«, 64'er, Ausgabe 6/85, Seite 46. 

Telebox 

Die Telebox ist eine von der Bundespost betriebene Mail¬ 
box. Sie ist nur für eingetragene Benutzer konzipiert. 

ISDN 

Mit ISDN (Integrated Services Digital Network) wird der bis 
1988 geplante Netzausbau der Bundespost bezeichnet. 

7-Bit-, 8-Bit-Übertragung 

Um den ASCII-Code darzustellen, benötigt der Computer 
nur sieben Bits. Mit dem Ausdruck 7-Bit-, 8-Bit-Übertragung 
wird angegeben, ob in einem übertragenen Byte sieben 
Datenbits (also der ASCII-Wert) und ein »Füllbit« (7-Bit- 
Übertragung) oder sieben Datenbits und ein Paritätsbit (8-Bit- 
Übertragung) enthalten sind. 

Wortlänge 

Die Wortlänge bezeichnet die Anzahl der Bits in einem 
»Übertragungsbyte« beziehungsweise einer Übertragungs¬ 
einheit. Sie besteht aus den Datenbits, dem Paritätsbit, dem 
Startbit und den Stopp-Bit(s). Bei acht Datenbits, einem Pari¬ 
tätsbit, einem Startbit und zwei Stopp-Bits ist die Wortlänge = 
12. Aus »Schlampigkeit« wird in der Datenfernübertragung in 
diesem Fall oft von einem »Byte« gesprochen, obwohl es 12 
Bits beinhaltet. 

Datenendeinrichtung 

Mit »Datenendeinrichtung« wird das Gerät »am Ende« einer 
Übertragungsleitung bezeichnet. Wird die Datenübertragung 
mit einem C 64 vorgenommen, so ist dieser die Datenendein¬ 
richtung. Ein Modem oder Akustikkoppler ist dagegen ein 
Datenübertragungsgerät. (hm) 


Telefon-Nummer 

Name 

betriebsbereit 
von bis 

0202 

/ 

463678 

Ronsdorfer Box 

18-24 
Fr/Sa 16-06 

0202 

/ 

559350 

Toelleturm Box 

24h 

0203 

/ 

787111 

MMS 2 

22 - 06 

0211 

/ 

324517 

EVD(RCPM) 

24h 

0211 

/ 

340071 

Data Becker 

24h 

0211 

/ 

350180 

Die Kiste 

k. A. 

02161 

/ 

200928 

Symic 

24h 

02202 

/ 

50033 

Computer-Center 

24h 

02204 

/ 

57025 

Creative-Database 

24h 

0221 

/ 

236534 

UDC 

24h 

0221 

/ 

558336 

KCT »Bit Dschungle» 

24h 

0221 

/ 

1616284 

Saturn 

24h 

0221 

/ 

371076 

WDR-Computerclub 

24h 

0221 

/ 

394976 

P.M.S. Köln 

24h 

02304 

/ 

44770 

S.I.S. 

24h 

0231 

/ 

7552541 

IBM, Dortmund 

k. A. 

02331 

/ 

16401 

Kobra-Box, Hagen 

24h 

02374 

/ 

13420 

Maerkische Box 

k A. 

02383 

/ 

50866 

I.G.S., Kamen 

k. A. 

0241 

/ 

512062 

HALU 

15-19 

0241 

/ 

870555 

A.I.S. 

18-09 

02841 

/ 

66241 

Esprit 

k. A. 

02841 

/ 

57325 

MHB 

22 - 06 

030 

/ 

7868178 

C.C.S 

16-22 

030 

/ 

4652439 

Coko 

22-09 

030 

/ 

6818679 

IBB 

22-09 

030 

/ 

724467 

Testline Berlin 

20 - 24 

030 

/ 

8024228 

Compac 64 

22 - 08 

040 

/ 

312880 

GGM 

k. A. 

040 

/ 

364347702 

C.C.C. 

22 - 06 

040 

/ 

6321608 

T.A.B 

k. A. 

040 

/ 

4916117 

H.I.S 

k. A. 

040 

/ 

6523486 

M.C.S 

24h 

040 

/ 

73113293 

H.M.S 

k. A. 

040 

/ 

7540598 

C-64 User-Club 

20-23 

042 

04 u 

/ 

5277016 

Tornado 

k. A. 

1 

8802383 

RAM 

k. A. 

04101 

1 

23789 

Wang-Info 

k. A. 

04431 

1 

2731 

WIS 

21 - 03 

06081 

1 

9677 

Taunusmailbox 

15-07 

06102 

1 

17328 

Panter-Box 

k. A. 

06126 

/ 

52492 

IHB 

22-03 

06154 

1 

51433 

DECATES 

24h 

06181 

1 

48884 

Otis 

19-09 

06187 

1 

25828 

Thor 

k. A. 

06434 

1 

6291 

C.C.C.C. 

22-06 

069 

1 

816787 

Tecos 

20-07 

069 

1 

6638191 

COMBO 

k. A. 

069 

1 

63501110-29 

Control Data 

k. A. 

07031 

/ 

26166 

Elias 

k. A. 

0711 

/ 

461032 

PFM 

19-06 

0711 

/ 

519008 

Norsak 

k. A. 

089 

1 

222066 

Graphton 

k. A. 

089 

t 

392289 

Hitech Jr. 

k. A. 

089 

/ 

596422 

TEDASI 

24h 

089 

/ 

598423 

TEDAS II 

24h 

089 

l 

7931332 

Phoenix 

k. A. 

089 

1 

831288 

Schwanstein 

k. A. 

091 1 

1 

334927 

UBN 

17-12 

0234 

1 

7004022 

Uni Bochum 

k. A. 

0234 

1 

7004023 

Uni Bochum 

k. A. 

0241 

1 

81081 

RWTH (Aachen) 

k. A. 

0551 

1 

21843 

Uni Göttingen VAX 

k. A. 

0641 

1 

76032 

Uni Gießen 

k. A. 

069 

1 

557844 

Uni Frankfurt 

k. A. 

0721 

1 

60452 

Uni Karlsruhe 

k. A. 

089 

1 

228730 

Uni München 

k. A. 


24h *= durchgehend betriebsbereit, k. A. - keine Angaben 


Damit Sie »Proterm« oder »Mailbox-Basic« testen können, 
haben wir einige deutsche Mailbox-Nummern für Sie heraus¬ 
gesucht. Rufen Sie doch mal an! 


Sollten Ihnen Begriffe nicht klar geworden sein, oder 
sollten Sie Begriffe vermissen, die wir in dieser Übersicht 
nicht berücksichtigt haben, so schreiben Sie uns bitte. 



68 







C 64 


Dateiverwaltung 


Ordnung im 
Lager 

Verschaffen Sie sich einen ständigen 
Durch- und Überblick über Ihren 
Lagerbestand und erleichtern Sie 
sich gleichzeitig die Jahresinventur. 


Tippen Sie zuerst das Hauptprogramm »Artikel« (Listing 1) 
mit dem Checksummer ein, und speichern Sie es auf Dis¬ 
kette. Dann erstellen Sie sich eine Datendiskette. Die INPUT- 
Routine (Listing 2) geben Sie mit dem MSE ein, und speichern 
es auf der Datendiskette. Dann richten Sie sich die Datenfiles 
wie unten angegeben ein. 

Das Programm ist durch eine Menüsteuerung leicht zu 
bedienen. In den jeweiligen Masken sind alle Angaben zur 
Programm-Steuerung enthalten. Nach Neueingaben, Ände¬ 
rungen, Streichungen, Stückzahleingaben etc. kommt immer 
eine Abfrage »Daten abspeichern j/n?«. Durch die Verwen¬ 
dung einer sequentiellen Datei wurden schnelle Zugriffszei¬ 
ten erreicht und die durch die unterschiedlichen Betriebs¬ 
systeme der Drucker (zum Beispiel MPS 802) verschiedent¬ 
lich auftretenden Probleme mit Relativdateien vermieden. 
Die Arbeitsweise des Programms 
Das Programm wird mit »load "Artikel",8« geladen. Nach 
dem Start werden die bereits abgespeicherten Artikelstamm¬ 
sätze geladen und das Programm springt in das Hauptmenü. 
Das Programm gliedert sich wie folgt: 

1. Neueingabe von Artikelstammsätzen. In der Eingabemaske 
erscheint der jeweils letzte Datensatz. 

Ein Artikelstammsatz besteht aus den folgenden Eingaben: 

1. Artikelbezeichnung bestehend aus maximal 22 Zeichen. 
Das erste Zeichen muß ein geSHIFTet eingegebener 
Buchstabe sein. 

2. Artikel-Nummer bestehend aus genau 10 Zeichen. Zwei 
Buchstaben, der erste geSHIFTet eingegeben = Fir¬ 
menkurzzeichen, Dezimalpunkt gefolgt von einer sechs¬ 
stelligen Dezimalzahl = Verkaufspreis. 

3. Einkaufspreis bestehend aus genau sieben Zeichen. 
Sechsstellige Dezimalzahl 

4. Stückzahl maximal vierstellig 

Die Eingaben werden nach den obigen Angaben abgefragt 
und bei Nichterfüllung zurückgewiesen. 

2. Änderungen 

Durch Eingabe der Satznummer, angegeben jeweils in der 
ersten Spalte einer Liste beziehungsweise in der Bild¬ 
schirmausgabe, erscheint der gewünschte Datensatz in 
der Eingabemaske. Die Werte können überschrieben 
beziehungsweise mit RETURN übernommen werden. 

3. Bildschirmausgabe 

Die Bildschirmausgabe kann je nach Wunsch für alle Artikel 
oder alle Artikel einer Firma erfolgen. Auf dem Bildschirm 
erscheinen jeweils 17 Artikelstammsätze mit Satz- 
Nummer, Artikelbezeichnung (nur mit den ersten 10 Zei¬ 
chen), Artikel-Nummer, Einkaufspreis und Stückzahl. 

4. Druckerausgabe 

Eine Listenausgabe kann erfolgen über 

1. Alle Artikel ausdrucken 

2. Alle Artikel einer Firma ausdrucken 

3. Inventurliste drucken 

Auf der Inventurliste erscheinen nur Artikel 
mit Stückzahl größer Null. 


Programmaufteilung 

10 - 

90 

Allgemeine Zuweisungen von Daten zu den Varia¬ 
blen 

100 - 

170 

Einlesen von abgespeicherten Artikelstammsätzen 

400 - 

420 

Grundbild für die einzelnen Masken erstellen 

450 - 

730 

Zuweisen der Menüangaben 

800 


Cursor positionieren 

850 - 

900 

Bildschirmangaben zur Menü- und Programmsteue¬ 
rung 

960 


Blattvorschub 

1000 - 

1100 

Hauptmenü und seine Steuerung 

1200 - 

1470 

Neueingabe von Datensätzen 

1500 - 

1720 

Änderung von Datensätzen 

2000 - 

2310 

Bildschirmanzeige 

2500 - 

2950 

Drucken der Warenbestandslisten 

3000 - 

3100 

Sortieren der Datensätze 

3500 - 

3950 

Streichen von Datensätzen 


Die wichtigsten Variablen und Felder 


a% 
az% 
b1% 
da% 

ek 

s 

sl 

s 2 

s3 

s4 

s5 

s6 

vk 


.-.□nU ia y ’■ 
z% 
at$ 
bz$ 
dtS 
f$ 
f1$ 
fiS 
j$ 
mS 
t$ 
v$ 

a$( 600 ) 
bS(9) 
c$(4) 
b%(100) 
i%(4) 

j%(4) 


= Anzahl der vorhandenen Datensätze 
= Anzahl der zu sortierenden Sätze 
= Blattnummer 

= Abfrage, in welchem Programmteil sich das Programm 
befindet 

= Einkaufspreis/Stück 
= Spaltenangabe für Cursorposition 
= Stückzahlangabe der Artikel 
= Summe der Verkaufspreise pro Artikel 
= Summe der Einkaufspreise pro Artikel 
= Zwischensumme der Verkaufspreise 
= Zwischensumme der Einkaufspreise 
= Endsumme der Verkaufspreise 
= Endsumme der Einkaufspreise 
= Verkaufspreis/Artikel 
= Zeilenangabe für Cursorposition 
= Druckzeilenzähler 
= Artikel-Nummer 
= Artikelbezeichnung 
= Datum 

= Formatierungsstring 
= Formatierungsstring 
= Firmenkurzbezeichnung 
= Jahreszahl 

= Menü- beziehungsweise Maskenüberschrift 
= chr$( 28 ) 

= Feld für Artikelstammdaten 
= Feld für Menü- beziehungsweise Maskenangaben 
= Feld für Artikelstammdateneingaben 
= Feld für zu streichende Satz-Nummer 
= Feld für Längeneingabe der einzelnen Stammdaten¬ 
eingaben 

= Feld für Längeneingabe zur Artikelstammdaten¬ 
aufteilung (ein Artikelstammdatensatz besteht aus 
den 4 Einzeleingaben) 




5. Sortieren 

Die Sortierroutine sortiert alle Artikelstammsätze nach Fir¬ 
men und innerhalb der Firmen nach aufsteigender Artikel- 
Nummer. Somit sind alle Artikel nach der jeweiligen Artikel- 
Nummer = Verkaufspreis, in den Listen schnell zu finden. 

6. Streichen 

Mit der Routine Sätze streichen, können nacheinander bis 
zu 100 Satznummern von zu streichenden Sätzen einge¬ 
geben werden. 

Bei Fehleingabe kann mit der Pfeil-Links-Taste und 
RETURN die jeweils letzte Eingabe wiederholt werden. 
Nach jedem Streichungsvorgang sollte ein Sortiervorgang 
folgen. 
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7. Stückzahleingabe 

Nach Eingabe der gewünschten Satz-Nummer erscheint 
der entsprechende Artikelstammsatz in der Eingabe¬ 
maske. Der Cursor springt in das Eingabefeld Stück und 
die alte Stückzahl kann überschrieben werden. Hierdurch 
ist eine schnelle Stückzahländerung gegeben. 

8. Stückzahl auf Null setzen 

Diese Routine setzt alle Stückzahlen auf Null (zum Beispiel 
vor der Inventur, wenn gewünscht). 

Nach jeder Dateiänderung erfolgt die Abfrage »Datei abspei- 
chem j/n«. 

Bitte beachten: 

Um mit dem Artikel-Programm zu arbeiten, fertigen Sie sich 
am besten eine Datendiskette an. Da das Programm direkt 
nach dem Start nachlädt, müssen die INPUT-Routine sowie 
beide Datenfiles bereits auf Diskette verfügbar sein. Erstellen 
Sie die Datenfiles bitte wie folgt: 
open 8,8,8, "Artikel-Nr.,s,w" :close8 (RETURN) 
open 8,8,8, "Anzahl-Saetze,s,w": 
print#8,0;chr$(13):close 8 (RETURN) 

Achten Sie unbedingt auf Groß-/Kleinschreibung 

(Werner Demuth/og) 


PROGRAMM I INPUT 


C000 C1F4 


C000 


A9 

0 B 

A0 

C0 

BD 

08 

03 

BC 

AD 

C00B 


09 

03 

60 

20 

73 

00 

C9 

BS 

18 

C010 


F0 

06 

20 

79 

00 

4C 

E7 

A7 

BC 

C018 


20 

73 

00 

C9 

Bl 

F0 

06 

20 

26 

C020 


BF 

AB 

4C 

AE 

A7 

A9 

00 

BD 

Bl 

C028 


6 E 

CI 

20 

9B 

B7 

BE 

6 F 

CI 

23 

C030 


20 

FD 

AE 

20 

9E 

B7 

t0 

28 

7A 

C03B 


B0 

0C 

86 

FD 

20 

FD 

AE 

20 

3D 

C040 


9E 

B7 

E0 

19 

90 

03 

4C 

48 

F8 

C04B 


B2 

8 E 

70 

CI 

A4 

FD 

20 

0C 

68 

C050 


E5 

20 

24 

EA 

A5 

D2 

BS 

FE 

Bl 

C05B 


9B 

18 

65 

Dl 

90 

02 

E6 

FE 

43 

C060 


85 

FD 

A5 

F4 

05 

FC 

9B 

18 

BF 

C068 


65 

F3 

90 

02 

E6 

FC 

85 

FB 

90 

C070 


A5 

C6 

05 

CC 

BD 

92 

02 

F0 

CB 

C07S 


F7 

70 

A5 

CF 

ra 

0C 

A5 

CE 

B2 

C0B0 


AE 

B7 

02 

A0 

00 

B4 

CF 

20 

2A 

C0B8 


13 

EA 

20 

B4 

ES 

C9 

0D 

00 

31 

C090 


03 

4C 

71 

CI 

C9 

14 

F0 

46 

DB 

CB98 


C9 

9D 

F0 

42 

C9 

10 

F0 

29 

50 

C0A0 


C9 

94 

F0 

61 

C9 

91 

D0 

03 

8 E 

C0A8 


4C 

41 

CI 

C9 

11 

D0 

0 5 

4C 

7B 

C0B0 


54 

Bl 

AE 

18 

D0 

E0 

15 

F0 

DE 

C0B8 


08 

C9 

DB 

B0 

83 

C9 

CI 

B0 

A4 

C0C0 


08 

C9 

60 

B8 

AB 

C9 

20 

90 

86 

C0CB 


A7 

C9 

22 

F0 

A3 

AE 

6 E 

CI 

E7 

C0D0 


EC 

6 F 

CI 

F0 

9B 

EE 

6 E 

CI 

71 

C0D8 


20 

16 

E7 

4C 

7P 

C0 

AC 

6 E 

23 

C0E0 


CI 

F0 

8 D 

CE 

6 E 

CI 

C9 

9D 

AE 

C0E8 


F0 

EE 

Bl 

FB 

AA 

Bl 

FD 

88 

7C 

C0F0 


91 

FD 

8 A 

91 

FB 

CB 

CB 

F0 

60 

C0F8 


07 

CC 

6 F 

CI 

90 

EC 

F0 

EA 

83 

C100 


A9 

9D 

4C 

D8 

C0 

AC 

6 F 

CI 

59 

CI 08 


CE 

6 F 

CI 

88 

C0 

FF 

F0 

2B 

35 

C110 


CC 

6 E 

CI 

90 

26 

Bl 

FD 

C9 

11 

CI 18 


20 

F0 

F0 

CC 

6 F 

CI 

F0 

IB 

85 

CI 20 


Bl 

FB 

AA 

Bl 

FD 

CB 

91 

FD 

1B 

CI 20 


BA 

91 

FB 

88 

BB 

C0 

FF 

F0 

FB 

CI 30 


05 

CC 

6 E 

CI 

B0 

EA 

CS 

A9 

48 

C138 


20 

91 

FD 

EE 

6 F 

CI 

4C 

70 

95 

CI 40 


C0 

AA 

38 

AD 

6 E 

CI 

E9 

28 

06 

C148 


90 

07 

8 D 

6 E 

CI 

BA 

4C 

DB 

E0 

CI 50 


C0 

4C 

70 

C0 

AA 

1B 

AD 

6 E 

69 

CI 58 


CI 

69 

28 

BB 

07 

CD 

6 F 

CI 

0E 

CI 60 


F0 

05 

90 

03 

4C 

70 

C0 

BD 

BE 

C168 


6 E CI 

BA 

4C 

DB 

C0 

EA 

EA 

FB 

CI 70 


EA 

4C 

96 

01 

BB 

C0 

FF 

D0 

8 E 

C178 


13 

20 

73 

00 

C9 

00 

F0 

07 

E7 

C180 


C9 

3A 

F0 

03 

4C 

79 

CI 

A0 

DC 

C188 


00 

4C 

EB 

CI 

Bl 

FD 

C9 

20 

54 

CI 90 


F0 

E2 

C8 

8 C 

6 F 

CI 

20 

FD 

36 

CI 98 


AE 

20 

BB 

B0 

4B 

9B 

48 

20 

FA 

C1A0 


A3 

P6 

68 

85 

65 

68 

85 

64 

E2 

CI AB 


AD 

6 F 

CI 

20 

75 

B4 

B4 

FB 

88 

C1B0 


A0 

00 

91 

64 

CB 

BA 

91 

64 

31 

C1B8 


ce 

A5 

FB 

91 

64 

A0 

01 

Bl 

37 

C1C0 


64 

48 

ca 

Bl 

64 

85 

65 

66 

89 

CI CB 


B5 

64 

AC 

6 F 

CI 

BB 

Bl 

FD 

BB 

C1D0 


AE 

18 

D0 

E0 

15 

F0 

08 

C9 

67 

CI DB 


41 

90 

04 

09 

80 

D0 

06 

C9 

BE 

C1E0 


20 

B0 

02 

09 

40 

91 

64 

C0 

9E 

C1E8 


00 

D0 

E2 

AE 

70 

CI 

20 

0C 

BC 

C1F0 

: 

E5 

4C 

AE 

A7 

FF 

00 

FF 

00 

9C 


6*en on 


Listing 2. Die 
Eingaberoutine 
»INPUT« geben 
Sie bitte mit 
dem MSE ein. 


10 REM"ARTIKEL” 

20 PRINT CHR*(147)lIF SX=B THEN BX=1: LOAD" 
INPUT",8,1 

30 SYS 49152: JX<1)=1: JX<2>=23: JX(3)=33l JX ( 
4)=40:V*=CHR*(29>iT*="!“ 

40 L1 *= "--:L2*=■=====”:BL*=■<5SHIFT-SP 

ACE>” : DIM A* (600) ,B7. (100) : OPEN 15,8,15 
50 FÜR 1=1 TO 4:L1*=L1*+L1*:L2*=L2*+L2*:BL 
*=BL*+BL*:NEXT IiL3*=LEFT*(L2*,40> 

60 BOSUB 400:Z=6sS=8.GOSUB B00:PRINT"£INEN 
SUGENBLICK BITTE” 

70 L5*=LEFT*(LI*,39):IX(1)=22:IX(2)=10:IX< 
3)=7«IX(4)=4:L*="•"+LEFT*<L2*,78>♦"!” 

80 EI*="2ITTE PROGRAMMWUNSCH EINGEBEN{3SPA 
CEJ:":WI*="BEITERE £.1NGABEN<2SPACE>J/N < 
4SPACE >:J" 

90 K*="!"+LEFT* <L1*,78)+ “ ! ":FA*="SITTE £IR 
MENABKUERZUNG EINGEBEN(2SPACE>:“ 

100 OPEN 2,8,2,“ANZAHL-SAETZE,S,R”:GOSUB 9 
500: IF A< >0 THEN A7.=0: CLOSE 2: GOTO 100 
0 

120 INPUT*2,AX:GOSUB 9500:CLOSE 2:OPEN 2,8 
,2,"ARTIKEL-AR.,S,R”:GOSUB 9500 
130 Z=10:S=7:GOSUB 800:PRINT" ICH LADE"AX“ 
SATENSAETZE":IF AX=0 THEN CLOSE 2iGOTO 
1000 

170 FOR 1=1 TO AX:INPUT#2,A*<I>SPRINT CHR* 
(19)1:NEXT IiGOSUB 9500:CLOSE 2:G0T0 1 

000 

400 PRINT CHR*(147):Z=0:S=10:GOSUB 800:PRI 
NT“UROGRAMM ARTIKEL”:PRINT L3*; 

410 PRINT LEFT*(BL*,(40—LEN <M*)>/2)M*:Z=23 
:S=0:GOSUB 800:PRINT L3*| 

420 Z=23:S=0:GOSUB 800:PRINT L3*;”(2SHIFT- 
SPACE)«- LETZTE EINGABEC2SPACE>» LETZTE 
S AENUE”;:RETURN 

450 B*<1) = "ARTIKEL-AEZ.<3SPACE>:“:B*<2> = ”£ 
RTIKEL-AR-<4SPACE>:”:B*(3)="£INKAUFSPR 
EIS <2SPACE > x” 

460 B* <4)="2ESTAND<SSPACE>:”sDAX=2:RETURN 
500 B*(1)=”1. ALLE ARTIKEL“:B*<2)="2. ALLE 
3RTIKEL EINER £IRMA":DAX=3:RETURN 
600 B*(1)="1. ALLE ARTIKEL AUSDRUCKEN":B*< 
2)="2. ALLE ARTIKEL EINER £IRMA" 

610 B*(3)="3. INVENTUR DRUCKENRETURN 
700 B*(1)*"1. AEUEINGABE":B*(2)="2. AENDER 
UNGEN":B*(3)=“3. AILDSCHIRMAUSGABE" 

710 B*(4)=”4. DRUCKERAUSGABE ":B* <5) = "5. SD 
RTIEREN":B* <6> »”6. STREICHEN" 

720 B* (7) ="7. S.TUECKZ AHLE INGABE" : B* (8) ="8. 
STCKZ. AUF 0 SETZEN" 

730 B*<9>=“9. PROGRAMM BEENDEN":DAX-1:RETU 
RN 

800 POKE 214,Z:POKE 211,S:SYS 58640:RETURN 
850 GOSUB 400:Z=2:S=0:GOSUB 8001 PRINT"ä-H. 
ARTIKELBEZ ARTIK-AR.«2SPACE>££-PR.<2S 

PACEI STC* " 

870 PRINT L5*:RETURN 

880 PRINT:PRINT“XASTE = WEITER<2SPACE>- = 
ZURUECK * = ABBRUCH":Y*=”” 

890 GET Y*«IF Y*=”*"THEN HHX“1:RETURN 

895 IF Y*=”"THEN 890 

896 IF Y*="—"THEN 1=1-34:RETURN 
900 RETURN 

950 • 

960 FOR N-ZXTO 71:PRINT47:NEXT N:ZX=0:RETU 
RN 

1000 l 

1010 M*="AAUPTMENUE": IF DAXOl THEN GOSUB 
700:GOSUB 400 

1060 FOR 1 = 1 TO 9 :Z=l + I»2r S=8:GOSUB 800:P 
RINT B*(I):NEXT I:PRINT:PRINT" “EI* 
1070 Z=0:S=32:GOSUB 800:INPUT>1,34,21,X*:I 
F X*=“9"THEN 10000 

1100 ON VAL < X* > GOSUB 1200,1500,2000,2500,3 
000,3500,4000,4500:GOTO 1000 
1200 : 

1210 M*="AAX. 600 AEUEINGABEN”:AX-AX+1:IF 
DAX<>2 THEN GOSUB 450:IF AX-601 THEN 
1000 

1260 GOSUB 400:Z=3lS=0:GOSUB 800:PRINT"SIE 
LETZTE £1NGABE WAR POSITION JjR. "AX—1 
1265 FOR 1=1 TO 4:Z=3+I:S=0:GOSUB 800:PRIN 


<143> 
<006> 
<205> 
<086> 
<081 > 
<227> 
< 220 > 

<066> 

<169> 

<227> 

< 120 > 

< 150> 

<05B> 

< 103> 
<035> 

<039> 

<180> 

< 119> 

<075> 

<0B6> 

<15B> 

< 140> 

< 048 > 

<073> 

<040> 

<090> 


<065> 

<224> 

< 147> 
<156> 
<042> 

< 165> 

< 196> 

<164> 

<025> 

<214> 

<213> 

< 150> 

< 184> 

<065> 

<160> 


<198> 
<235 > 


Listing 1. Das Hauptprogramm »Artikel«. Bitte 
beachten Sie die Eingabehinweise auf Seite 6. 
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T B*(I)MID*(A*(AX-1> ,JX<I> ,IX<I> > "*”l 
NEXT I 

1280 PRINT L5*:S=0:FOR 1=1 TD 4:Z=8+I*2:G0 
SUB 800: PRINT B* (I)LEFT*(BL*.IX(I> ) "* 

1270 NEXT XSPRINT:PRINT:PRINT WI* 

1350 FOR 1=1 TO 4 

1360 INPUT>IX(I>,16,8+1*2,C*(I>:IF LEFT*(C 
*(I> ,1>=CHR*(224»THEN 1360 
1370 IF I>1 AND LEFT*(C*(I> ,1>="*-"THEN 1=1 
-lsGOTO 1360 

1375 IF LEFT*(C*(1> ,1>="*"THEN AX=AX-1:RET 
URN 

1376 IF I<3 AND ASC(LEFT*(C*(I>,1>><91 THE 
N 1360 

1377 IF 1=2 THENiIF MID*(C*(I),3,1)<>"."OR 

MID*(C*(I) ,8,1)0"."THEN 1360 

1378 IF 1=3 AND MID*<C*(I),5,1><>”."THEN 1 
360 

1380 IF 1=4 THENsIF ASC<C*(4))>57 THEN 136 

0 

1400 NEXT I: A*(AX>=“":FOR 1 = 1 TO 4:A*(AX>= 
A* (AX)+C#(I>:NEXT I 

1450 INPUT>1,26,17,X*: IF X*="J"THEN AX=AX+ 
lsGOTO 1260 

1460 IF LEFT* (X*,l >="+" THEN 1350 
1470 GOSUB 7000:RETURN 
1500 : 

1510 M*="SENDERNGOSUB 400:IF DAX<>2 THEN 
GOSUB 450 

1520 Z=3:S=6:GOSUB 800:PRINT"SITTE ZU AEND 
ERNDE SATZ—SR.“ 

1530 Z=5:S=10:GOSUB 800:PRINT"EINGEBENI3SP 
ACE>:"sPRINT:PRINT L5* 

1540 INPUT>4,22,5,X*sIF LEFT*(X*,1>=”*"THE 
N GOSUB 7000:RETURN 

1550 HX=VAL(X*> l IF H7.=0 OR HX>AXTHEN 1500 
1560 S=0:FOR 1=1 TO 4:Z=8+I*2:GOSUB B00:PR 
INT B* (I > MID* (A* (HX) , J7. (I) , IX ( I) > 

NEXT I 

1570 PRINT:PRINT:PRINT WI* 

1650 H*="":FOR 1=1 TO 4 

1660 INPUT>I7.(I> ,16,8+1*2,C*(I) : IF LEFT* (C 
*(I>,1)=CHR*(224»THEN 1660 
1670 IF I>1 AND LEFT*(C*(I> ,1)=“«-"THEN 1=1 
-lsGOTO 1660 

1675 IF 1=1 THENsIF LEFT*(C*(1>,1)="*"THEN 
GOSUB 9000:RETURN 


<076> 

<207> 

<238> 

<052> 

<127> 

<034> 

< 020 > 

<093> 

<206> 

<245> 

<039> 

< 139 > 

< 121 > 
<083> 
< 135> 
<206> 

<227 > 

<226> 

<042> 

<065> 

<018> 

<240> 

<013> 

<017> 

<025> 


1676 IF I<3 AND ASC(LEFT*(C*(I),1>)<91 THE 


N 1660 <145> 

1677 IF 1=2 THEN:IF MID*(C*(I),3,1)<>"."OR 

MID*(C*(I> ,8,1)0". "THEN 1660 <189> 

1678 IF 1=3 AND MID*(C*(I),5,1)<>"."THEN 1 

660 <047> 

1680 IF 1=4 THENtIF ASC(C*(4))>57 THEN 166 

0 <022> 

1670 NEXT I <250> 

1700 FOR 1 = 1 TO 4: H*=H*+C* (I ) : NEXT I:A*(H7. 
>=H*:INPUT>1,26,17,X*:IF X*="J"THEN 1 
500 <174> 

1720 GOSUB 9000:RETURN <131> 

2000 : <198> 

2010 M*="SILDSCHIRM“:H*="":GOSUB 400:IF DA 

X<>3 THEN GOSUB 500:HX=0 <164> 

2020 S=6:FOR 1=1 TO 2:Z=4+l*2:GOSUB 800:PR 
INT B*(I):NEXT I:PRINT:PRINT:PRINT“<2 
SHIFT—SPACE >"EI* <217> 

2030 INPUT>1,35,11,X*:IF LEFT*(X*,1>="*"TH 

EN RETURN <244> 

2040 IF X*=" 1 "THEN N7.= 1:G0T0 2200 <251 > 

2050 Z=16:S=2:GOSUB 800:PRINT FA# <135> 

2060 INPUT>2,36,16,X*:H*=X*:IF LEFT*(X*,1> 

="*"THEN RETURN <062> 

2070 IF ASC(LEFT*(X*,1)><91 OR ASC(RIGHT*( 

X#,1)> <91 THEN 2060 <132> 

2080 FOR 1=1 TO A7.:IF MID# (A* (I> ,23,2) =X*T 

HEN NX=I:I=AX <129> 

2090 NEXT I <142> 

2200 GOSUB 850:FOR I=NXTO AXsIF X*<>"1"THE 

N:IF MID*(A#(I),23,2)<>H#THEN 2290 <220> 

2220 PRINT RIGHT*("<4SHIFT—SPACE>"+STR#(I) 

,4)"<SHIFT—SPACE >"LEFT*(A*(I),10)"<SH 
IFT-SPACE)"MID*(A*(I),23,10)"ISHIFT-S 
PACE}"; <004> 

2230 PRINT MID*(A*(I),33,7)"<SHIFT—SPACE}" 


RIGHT*("<4SHIFT-SPACE >"+STR*(VAL(MID* 

(A*(I>,40,4)>>,4>:TX=I <162> 

2240 H7.=H7.+1:IF HX=17 THEN GOSUB 880: IF HH 

X=1 THEN HHX=0:RETURN <189> 

2245 IF I<0 THEN 1=0 <045> 

2250 IF HX=17 THEN GOSUB 850:HX=0 <036> 

2290 NEXT I:HX=0:PRINT:PRINT"<SHIFT-SPACE> 
SATEIENDE!<2SPACE>- = ZURUECKC3SPACE> 

* = SENUE" <137> 

2300 GET Y#s IF Y*=*'*“THEN RETURN <142> 

2305 IF Y*=" —"THEN NX=TX—34s IF N7.<0 THEN N 

X=0 <065> 

2306 IF Y#="—“THEN 2200 <149> 

2310 GOTO 2300 <020> 

2500 : <190> 

2510 M*="HRUCKEN":GOSUB 400:IF DAX<>3 THEN 

GOSUB 600:DAX-3 <086> 

2520 S=2sFOR 1 = 1 TO 3:Z=4+I*2:GOSUB B00sPR 

INT B*(I):NEXT I <211> 

2540 PRINT:PRINT:PRINT"<2SHIFT-SPACE>"EI*: 

INPUT>1,35,13,X# <012> 

2550 ON VAL(X*)GOSUB 2570,2800,5000:GOTO 1 

000 <158> 

2570 Z=18:S=2:GOSUB 800:PRINT-filTTE SATUM 

EINGEBEN<4SPACE > s" <207> 

2580 INPUT>8,27,18,DT#:IF MID*(DT*,3,1)<>“ 

."OR MID* (DT*, 6,1)0". "THEN 2580 <057> 

2590 Z=20:S=4:GOSUB 800:PRINT"1CH DRUCKE D 

IE SESTANDSLISTE !" <200> 

2600 OPEN 7,4,7:OPEN 2,4,2:0PEN 1,4,1:BLX= 


1:GOSUB 2900 <0B2> 

2610 F*="A9997C2SPACE}AAAAAAAAAAAAAAAAAAAA 

AA AAAAAAAAAA97777 9799.79 99999.99 " <218> 

2615 F*=F#+"9999.99 99999.99A" <120> 

2620 F1*="A AAAAAAAAAAAAA<BSPACE>AAAAAAAAA 

AAAAAAA <2SPACE >999999.99<2SPACEJ" <229> 

2622 F1*=F1*+"AAAAAAAAAAAAAAAA <2SPACE >9999 

99. 99A ": S1 =0: S2=0: S3=0: S4=0: S5=0: S6=0 <063> 
2628 Z1*="ZWISCHENSUMME":Z2*="££-ZWISCHENS 

UMME":Z3#=" Hi-ZWISCHENSUMME" < 201> 

263b ~0R 1=1 TO AX:IF X#="2"AND MID*(A*(I) 

,23,2)< >FI*THEN 2720 <031> 

2640 BZ*=LEFT*(A*(I>,22):AT*=MID*(A#(I),23 

,10):S=VAL(MID*(A*(I>,40,7)) <250> 

2650 VK=VAL(MID*(A*(I),26,7)>:EK=VAL(MID*( 

A*(I),33,7)) <109> 

2660 S1=INT(S*VK*100+.05)/100:S2=INT(8*EK* 

100+.05)/100 <140> 

2680 PRINT#2,F*:PRINT#1,"!"V*I}BZ*V*AT*V*S 

;EK}82}VK;S1j“!“:ZX=ZX+1 <208> 

2690 S3=S3+S1:S4=S4+S2:S5=S5+S1:S6=S6+S2 <130> 

2700 IF MID*(A*(I),23,2)< >MID*(A*(1+1),23, 

2)THEN GOSUB 2850 <153> 

2705 IF AX-I<=3 THEN 2720 <219> 

2710 IF ZX>=62 THEN PRINT#7,K*iZX=ZX+1:GOS 

UB 950:GOSUB 2900 <150> 

2720 NEXT I:PRINT#7,L*:PRINT#2,F1# <214> 

2745 PRINT#! , " ! " V* " THUBTT » AE.G L " V« ■' E > - PLUS U. 

ÖA£"V*S4; “YA- E>UlSUJtn.L "V*S3 5 " ! " <006> 

2760 PRINT#7,L#:CLOSE 1:CL0SE 2:CLOSE 7:S1 

=0:S2=0:S3=0:S4=0:ZX=0:RETURN <174 > 

2800 : <236> 

2810 Z=16:S=2:GOSUB 800:PRINT FA*:INPUT>2, 

36,16,FI*:GOTO 2370 <160> 

2850 PRINT#7,K*:PRINT#2,Fl*:PRINT#!,"!"V*Z 

1*V*Z2*V*S6;Z3*V#S5;"!":ZX=ZX+3 <016> 

2860 PRINT#7,K*:S5=0:S6=0:RETURN <135> 

2900 PRINT#7,"! AUSDRUCK DER HARENBESTAEND 
E ADSMETIKBOUTIQUE HERNER 3EMUTH <2SPA 
CE>"| <012> 

2910 PRINT#7,DT*" 3_. : "RIGHT#("<2SHIFT-SP 
ACE >“+STR*(BLX),2)“<SHIFT—SPACEJ!”:PR 
INT#7,L* <002> 

2930 PRINT#7,*!AATZ! ARTIKEL-JEZEICHNUNG<3 

SHIFT-SPACE}! ARTIK.HR.’STCK!“} <062> 

2940 PRINT#7,"£i-£REIS! SUMME !Hi-PREIS! ä 

UMME !":ZX=ZX+4:BL7.=BLX+1 <018> 

2950 PRINT#7,L*:RETURN <1B2> 

3000 : <182> 

3010 M*=”SORTIEREN":DAX=0:GOSUB 400 <1B7> 

3015 Z= 8 :S= 6 :GOSUB 800:PRINT" ICH SORTIERE 

“AX" SATENSAETZE":AZX=AX:B=AZX <119> 

3030 B=INT(B/3+.4>:PRINT CHR*(19)AZX-B <201> 

3040 OD=0:FOR A=1 TO AZX-B <034> 

3050 IF MID*(A*(A>,23,10)>MID*(A*(A+B),23, 
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10) THEN C=A+8:«)SUR 3100iOD=l <129> 
3060 NEXT ft:IF OD IHEN »040 <152> 
3070 IF B>1 THEN 3030 <109> 
3080 GOBUB 9000:RETURN <223> 
3100 X*=A*(A):A*(A)=A*(C)iA*(C)=X*:RETURN <022> 
3500 i <174> 


3510 M*="AAX. 100 SAETZE STREICHEN !":H=0: 

GOSUB 400»DAX=0:FOR 1=1 TO 100 
3530 Z=3»S=1:GOSUB 800:PRINT”3J STREICHEND 
E S.-AR. EINGEBEN<2SPACE>:(3SPACE>" 

3540 INPUT>4,34,3,X*:IF 1-1 AND LEFT*<X*,1 
)="*“THEN RETURN 

3541 IF 1=2 AND LEFT*(X*, 1) ="+"THEN 1 = 1: B7. 
< 1)=0 

3542 IF LEFT*(X*,1)=“*"THEN I=100:GOTO 3B0 

0 

3545 IF I>1 AND LEFT*<X*, 1) THEN 1=1-2: 
GOTO 3605 

3548 IF VAL <X*) =0 OR VAL<X*) >AXTHEN 3540 
3550 BX(I)=VAL(X*)«IF 1 = 1 THEN 3605 
3560 FOR N=1 TO 1-1 
3570 IF BX(N)=VAL(X*)THEN H=1 
3580 NEXT N:IF H=1 THEN H=0:1=1-1:GOTO 354 
0 

3605 A=IIIF I>14 THEN A=I-14 
3610 Z=5:S=0:GOSUB 800:FOR J=A TO I:PRINT" 
£1NGABE—BR. I“RIGHT*<“<4SHIFT-SPACE>“ 
+STR*(J),3)J 

3620 PRINT“<3SHIFT—SPACEJSATZ—AR- :“RIGHT* 
(“<4SHIFT—SPACE>“+STR* <BX< J)),3):NEXT 
J:PRINT LEFT*(BL*,38) 

3720 Z=22:S=3:GOSUB 800:PRINT"HEITERE STRE 
ICHUNGEN J/N C3SPACE >:J” 

3730 INPUT>1,31,22,X*:IF X*=“N“THEN AZX=I: 

I=100:H=1:GOTO 3800 
3740 IF X*<>" J "THEN 3720 
3800 X*=““:NEXT IiIF H=0 THEN AZX=I-1 
3810 GOSUB 400:Z=4:S=1:GOSUB 800:PRINT"SDL 
LEN DIE SAETZE WIRKLICH GESTICHEN" 
3820 Z=6iS=10:GOSUB 800:PRINT"WERDEN<3SPAC 
E>J/N <3SPACE>:J" 

3830 B=AZX:INPUT>1,26,6,X*:IF X*="N”THEN 
ETURN 

3860 B=INT(B/3+.4) 

3870 OD=0:FOR A=1 TO AZX-B 
3880 IF BX (AXBX (A+B) THEN C-A+B: X=BX (A) : BX 
<A)=BX(C):BX(C)=X:OD=l 
3890 NEXT A:IF OD THEN 3870 
3900 IF B>1 THEN 3860 

3940 FOR N=1 TO AZX:Z=10:8=0:GOSUB B00:PRI 
NT"ARTIKEL "LEFT*<A*<BX(N)>,32) 

3945 Z=12:S=10:GOSUB 800:PRINT“WIRD GESTRI 
CHEN !” 

3950 FOR M=BX(N>TO AX-1:A*<M)=A*<M+1>:NEXT 
M:AX=AX—1:NEX T N:GOSUB 9000:RETURN 

4000 : 

4010 M*=" S-TCJI— EING. " : GOSUB 400: IF DAX<>2 T 
HEN GOSUB 450 

4020 Z=3«S=6:GOSUB 800:PRINT"AITTE EINZUGE 
BENDE SATZ—MR.“ 

4030 Z=5:S=10:GOSUB 800:PRINT"EINGEBEN<3SP 
ACE>:":PRINT:PRINT L5* 

4040 INPUT>4,22,5,X*:IF LEFT*(X*,1>="*"THE 
N GOSUB 9000:RETURN 

4050 HX=VAL(X*):IF HX-0 OR HX>AXTHEN 4000 
4060 S=0:FOR 1=1 TO 4:Z=B+I*2:GOSUB B00:PR 
INT B* < I) MID* <A* (HX) , JX (I) , IX (I) > : 


NEXT I < 198> 

4170 INPUT>4,16,16,X*: IF LEFT*<X*, 1) ="*-"TH 

EN 4040 <151> 

4180 IF LEFT*<X*,1)>“9“OR LEFT*<X*,1)<"0"T 

HEN 4170 <011> 

4200 A*(HX)=LEFT*(A*(HX),39)+X*»G0T0 4000 <186> 

4500 : <158> 

4510 H*=""« GOSUB 400:DAX=0 <127> 

4520 Z=5»S=1:GOSUB 800.PRINT"SOLLEN DIE ST 

UECKZAHLEN WIRKLICH AUF 0" <010> 

4530 Z=7:S=4:GOSUB 800:PRINT“BESETZT WERDE 

N ??? J/N(3SPACE>:" <119> 

4540 INPUT>1,30,7,X*:IF X*<>"J”THEN RETURN <026> 
4560 Z=9:S=2:GOSUB 800:PRINT"SIE STUECKZAH 
LEN WERDEN AUF 0 BESETZT":FOR 1=1 TO 
AX <142> 

4570 A*(I)=LEFT*(A*(I),39)+"0<3SHIFT—SPACE 
>":PRINT CHR*(19)1:NEXT I:GOSUB 9000: 


RETURN <146> 

5000 : <150> 

5010 M*="iNVENTUR":GOSUB 400:Z=5:S=5:GOSUB 

800:BLX=0:S1=0:S2=0 <078> 

5020 PRINT"21TTE 2ATUM EINGEBEN<3SPACE}:": 

INPUT >8,29,S,DT* <174> 

5030 IF LEFT*(X*,1> = "*"THEN RETURN <096> 

5040 Z=7:S=5:GOSUB 800:PRINT"21TTE iAHR EI 

NGEBEN(3SPACE>:“ <206> 

5045 INPUT>4,29,7,J*i IF LEFT* <J*, 1) ="«-"THE 

N 5020 <186> 


5050 F*="A 99999<3SPACE>A AAAAAAAAAAAAAAAA 

AAAAAAAA A 99999<2SPACE>A 99999.99 A" <196> 
5060 F*=F*+" 999999.99(3SPACE>A(7SPACE>A" <177> 

5070 F1*=“A AAAAAAAAAAAAAAAAAAAAA{35SPACE > 

'• < 124> 

5080 F1*=F1*+"9999999.99<11SPACE>A" <062> 

5100 OPEN 7,4,7:OPEN 2,4,2:0PEN 1,4,1:G0SU 

B 5400 <182> 

5120 FOR 1=1 TO AX:IF VAL(MID*(A*(I),40,7) 

)=0 THEN 5210 <008> 

5130 AT*=LEFT*(A*(I>,24):S=VAL(MID*(A*(I), 

40,7)> <195> 

5140 EK=INT(VAL(MID*(A*(I),33,7))*100+.05) 

/100:S1=INT(S*EK*100+.051/100 <112> 

5160 PRINT#2,F*:PRINT41,T*V*I ; T*V*AT*V*T*V 

*Sj T*V*EKj T*V*S1;T*V*T* <142> 

5165 ZX=ZX+1:S2=S2+S1:IF I=AXAND ZX =66 THE 

N 5210 <069> 

5170 IF ZX<=64 THEN 5210 <234> 

5180 PRINT#7,K*:PRINT#2,F1*.PRINT*1,T*V*"Z 

WISCHENSUMME*'V*S2; “ ! " : PRINT#7,K* <081> 

5200 ZX=ZX+3:GOSUB 960:GOSUB 5400 <095> 

5210 NEXT I:PRINT#7,L*:PRINT*2,F1* <164> 

5220 PRINT»1,T*V*" DLUSUWlfL mVAKT.U.K "V*S2: " 

!":PRINT47,L* <078> 

5230 CLOSE 7:CLOSE l.CLOSE 2:S1=0:S2=0:BLX 

=0:RETURN <009> 

5400 PRINT#7, M ! ADSMETIK - SKUTIQUE(2SPACE 
>AERNER 2EMUTH(2SPACE>INVENTUR C2SPACE 
>''J*"<2SPACE>2ATUM: ”5 <092> 

BLX=BLX+1:PRINT#7,DT*"<2SPACE)2L. "RI 
GHT*(*<3SHIFT-SPACE >"+STR*(BLX),2)"<2 
SHIFT-SPACE)!”:PRINT#7,L* <229> 

5430 PRINT#7,"! SATZ-AR.! ARTIKEL—3EZEICHN 

UNG ( 6 SPACE> ‘ STUECK ! &S.-AREIS !"| <171> 

5440 PRINT47,“<4SPACE>SUMME(4SPACE)!2EMERK 

.!":PRINT#7,K*:ZX=4:RETURN <083> 

7000 : <086> 

9010 M*="ABSPEICHERN":GOSUB 400:Z=6:S=6:GO 

SUB 800 <010> 

9020 PRINT"SÄTEN ABSPEICHERN J/NCZSPACE>:J 

":INPUT>1,30,6,X*:IF X*="J"THEN 9100 <218> 

9030 RETURN <198> 

9100 Z=8:S=3:GOSUB 800:PRINT"i£H SPEICHERE 

"AX" SATENSAETZE" <121> 

9120 OPEN 1,8,15,”S:ANZAHL—SAETZE“:CLOSE 1 <091> 

9130 OPEN 2,8,2,"ANZAHL—SAETZE,S,W":PRINT# 

2,AXCHR*(13)»CLOSE 2 <020> 

9140 OPEN 1,8,15,”S:ARTIKEL-AR."»CLOSE 1 <002> 

9150 OPEN 2,8,2,"ARTIKEL-AR., 8 ,W" <074> 

9160 FOR 1=1 TO AX:PRINT#2,A*(I)»PRINT CHR 

*(19)I»NEXT l.CLOSE 2»RETURN <237> 

9500 INPUT#15,A»IF A<>0 THEN CLOSE 15:STOP <080> 

9510 RETURN <170> 

9990 OPEN 3,4,4»PRINT#3,CHR*( 66 ):OPEN 4,4: 

PRINT44,CHR*(147) <093> 

9992 DPEN 7,4,7:CMD 7:LIST:CL0BE 3:CLOSE 4 

:CLOSE 7«END <056> 

9995 OPEN 3,4,3:PRINT»3,CHR*(66)»OPEN 4,4: 

PRINT44,CHR*(147) <225> 

9996 OPEN 7,4,7: CMD 7:HST»CL0SE 3:CL0SE 4 

»CLOSE 7:GOTO 10000 <149> 

9999 OPEN 1,8,15:PRINT#1,"S»ARTIKEL":CLOSE 

1> SAVE"ARTIKEL“, 8 :VERIFY"ARTIKEL ",8 <103> 

10000 CLOSE 15»END <035> 

B 64'er 


Listing 1. Artikel (Schluß) 


<250> 

< 145> 

< 138> 

<035> 

<130> 

<014> 
<170> 
< 111 > 
<165> 
<241 > 

<006> 

<245> 


< 152> 

< 131 > 
<075> 

< 151 > 

< 103> 
<014> 

<150> 


R <151> 5 


<094> 

<009> 

< 104> 

<129> 

< 022 > 

<193> 

<20B> 

< 14B> 

<146> 

< 166> 

<154> 

<015> 

< 002 > 

<023> 

< 101 > 
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Dateiverwaltung 




Disketten- 

Verwaltung 


Viele kennen dieses Problem: Man hat 
50 Disketten mit 400 Programmen. 
Jetzt noch ein bestimmtes Programm 
zu finden, kann ohne Computerunter¬ 
stützung zur abendfüllenden Beschäf¬ 
tigung werden. Der Disk-Manager 
übernimmt diese Aufgabe für Sie. 


Der Disk-Manager (siehe Listing) wurde als Programm- 
Katalog konzipiert, der es erlauben soll, ein gesuchtes Pro¬ 
gramm durch Eingabe des Namens binnen kürzester Zeit zu 
finden. 

Der Disk-Manager ist in der Lage, bis zu 300 Directories mit 
insgesamt bis zu 6500 File-Einträgen auf einer einzigen Dis¬ 
kettenseite zu speichern und zu verwalten. Trotz dieser 
hohen Speicherkapazität wird jedes Programm in weniger als 
30 Sekunden gefunden und durch Ausgabe des Disketten¬ 
namens spezifiziert. 

Um diese hohe Geschwindigkeit zu erreichen, wurden rela¬ 
tive Files in Kombination mit »Hash-Codes« verwendet. 


addiert: Das Ergebnis ist dann eine Zahl zwischen 0 und 
6500 (=maximale Fileanzahl). 

Der errechnete Hash-Code wird dann in der Variablen id an 
das Hauptprogramm übergeben. Für »HUGO« ergibt sich 
id=3930. Der Disk-Manager speichert daher den Namen 
»HUGO« im Datensatz Nummer 3930. Wird später das Pro¬ 
gramm »HUGO« gesucht, so führt der Disk-Manager einfach 
die Hash-Code-Berechnung für »HUGO« durch, erhält wie¬ 
derum id=3930, sieht im Datensatz Nummer 3930 auf der 
Datendiskette nach und findet dort die Informationen über 
das gesuchte File. Ist jedoch der entsprechende Datensatz 
leer, so ist das der Hinweis darauf, daß noch kein entspre¬ 
chendes Programm gespeichert wurde. 

Die Directory-Namen sind nach demselben Prinzip wie die 
Programmnamen in einem zweiten relativen File eingeordnet. 
Hier wird jedoch eine andere Hash-Funktion verwendet, um 
als Hash-Code eine Zahl zwischen 0 und 300 zu erhalten. 

Die Datensätze sind untereinander durch Zeiger verknüpft. 
Jeder Directory-Datensatz enthält neben dem Diskettenna¬ 
men, der Disk-ID und der Anzahl der freien Blöcke die Num¬ 
mer des ersten Programmdatensatzes im Directory. 

Entsprechend enthält jeder Programm-Datensatz außer 
dem Programmnamen noch die Datensatznummer des im 
Directory nachfolgenden Programms sowie die Nummer des 
dazugehörigen Directories. 


6500 Programme gleichzeitig 


Nun aber zur Bedienung des Programms: Beim ersten Pro¬ 
grammstart wird man zweckmäßigerweise den Menüpunkt 7 
Wie funktioniert das Programm? Zunächst einmal besitzt Zu[ §- Ar ' le 9 en einerneuen Datendiskette anwählen. Legen Sie 
*r nisk-Mananer pins>n Mpmini .nid »nirertr.™ Pinien a eine leere Diskette ins Floppy-Laufwerk und beantworten Sie 

die Sicherheitsabfrage, ob eine neue Datendiskette angelegt 


der Disk-Manager einen Menüpunkt »Directory einiesen & 
speichern«. Dieser Programmteil dient dazu, alle Diskettenin- 
haitsverzeichnisse, die verwaltet werden sollen, einzulesen 
und in relativen Dateien auf der Disk-Manager-Datendiskette 
zu speichern. Sind erst einmal alle Disketten gespeichert, ist 
das Programm voll einsatzbereit: Mit dem Menüpunkt 1 wäh¬ 
len Sie die Programmsuche an und geben auf die Frage nach 
dem Programmnamen den Titel des gesuchten Files ein. Spä¬ 
testens nach 30 Sekunden (meistens schon nach fünf bis 
zehn Sekunden) nennt Ihnen der Disk-Manager den Namen 
der Diskette(n) auf der beziehungsweise auf denen das 
gesuchte Programm gespeichert ist. 

Aber wie schafft es der Disk-Manager nun, aus dieser 
Menge von Programmen (immerhin sind bis zu 6500 
möglich) in so kurzer Zeit das Gesuchte herauszufinden? 
Nun, durch Verwendung einer Programmiertechnik, die spe¬ 
ziell für solche Fälle konzipiert wurde. Kern dieser Technik ist 
eine sogenannte Hash-Funktion, die aus dem Suchbegriff 
(hier: der gesuchte Programmname) den Schlüsselcode 
berechnet. 


werden soll, mit »j«. Die Diskette wird dann für die Benutzung 
durch den Disk-Manager vorbereitet: sie wird formatiert(l), 
das Programm wird gespeichert und die Datenfiles werden 
angelegt. Dieser Vorgang dauert zirka acht Minuten, danach 
meldet sich das Programm mit dem Hauptmenü zurück. Mit 
Hilfe des Menüpunktes 6 (Speicherinfo) können Sie sich 
von nun ab stets über die aktuelle Speichersituation auf Ihrer 
Datendiskette informieren. Nach der Neuanlage erhalten Sie 
eine Meldung über 6501 freie Programm- und 301 freie Dis¬ 
kettendatensätze. Zur Speicherung dieser Information 


Tempo durch Hash-Codes 


Der Disk-Manager verwendet zwei solcher Hash- 
Funktionen (siehe Programmlisting Zeilen 100 bis 250, 
Hash-Funktion 1 und 2). 

Findet das Programm beim Einlesen eines Directories zum 
Beispiel den Programmnamen »HUGO«, so springt es mit 
GOSUB 100 die Hash-Funktion 1 an. Hier wird nun in einer 
FOR-NEXT-Schleife jedem Buchstaben des Strings »HUGO« 
der entsprechende ASCII-Wert zugeordnet, mit 26 multipli¬ 
ziert und zu den Zahlenwerten der übrigen Buchstaben 


Disk Manager V4.0 


1 

2 

3 

4 

5 

6 
7 


Programm suchen 

Directory einiesen & speichern 

Directory listen 

Directory loeschen 

Programm loeschen 

Spei eher in-fo 

Neue Datendisk anlegen 


< 0 > Ende 


Ihre Wahl? 


Das Hauptmenü des Disk-Managers 
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benutzt das Programm übrigens die Speicherstellen 200 bis 
209 in Track 18 Sektor 0. Diese Speicherstellen sind norma¬ 
lerweise unbenutzt und mit chr$(0) gefüllt 

Mit Hilfe von Menüpunkt 2 lassen sich nun die Diskettenin¬ 
haltsverzeichnisse einiesen und speichern. Voraussetzung 
für die korrekte Speicherung ist, daß alle Disketten verschie¬ 
dene Namen tragen, andernfalls erhalten Sie die Meldung 
»Diskette XYZ wurde bereits gespeichert«, und die Speiche¬ 
rung wird abgebrochen. Zur Identifikation der Diskette wird 
nur der Teil des Disketten köpf es verwendet, der in Hochkom¬ 
mata steht. 

Das Einlesen und Speichern eines Directories dauert, je 
nach Anzahl der Directory-Einträge und Auslastungsgrad der 
Datenfiles, zirka eine halbe bis fünf Minuten. Wenn Sie also 
beabsichtigen, Ihre gesamte Diskettensammlung zu spei¬ 
chern, so ergibt das durchaus schon eine abendfüllende 
Beschäftigung. Besitzern von Compilern sei gesagt, daß eine 
Compilierung nicht möglich ist. Es ergeben sich Probleme bei 
der Arbeit mit den relativen Dateien. Sollten Sie jemals bei der 
Speicherung die Meldung »Speicherung nicht möglich. Spei¬ 
cherplatz erschöpft.« erhalten, so haben Sie entweder verse¬ 
hentlich eine falsche Diskette ins Laufwerk gelegt, oder Sie 
haben 300 Disketten oder 6500 Files gespeichert. Hier 


noch ein Rat: Die Speicherkapazität der Datenfiles sollte nach 
Möglichkeit nur zu maximal 80% ausgelastet werden, da es 
sonst, bedingt durch die Hash-Code-Technik, zu wesentlich 
längeren Wartezeiten, insbesondere bei der Speicherung 
kommt. 

Durch Anwahl von Menüpunkt 1 lassen sich, wie oben 
beschrieben, Programme durch Angabe des Namens 
suchen. Die Verwendung von »Jokern« wie »* « oder »?« ist 
jedoch unzulässig. Falls sich das gesuchte Programm auf 
mehreren Disketten befindet, werden alle Diskettentitel aus¬ 
gegeben, die Ausgabe kann jedoch durch Drücken einer 
beliebigen Taste unterbrochen werden. 

Mit Menüpunkt 3 kann man sich ein gespeichertes Direc¬ 
tory ansehen. Geben Sie dazu den Namen der Diskette ein. 
Die Bildschirmausgabe kann auch hier durch Druck auf eine 
beliebige Taste abgebrochen werden. 

Menüpunkt 4 löscht ein gespeichertes Directory. Auch hier 
muß nur der Diskettenname eingegeben werden. 

Menüpunkt 5 dagegen löscht ein einzelnes Programm aus 
der Datei. 


(Thomas Omerzu/tr) 


10 REM " 51 SK BANAGER £4.0 

<068> 

240 

NEXT 

<250> 

11 REM " 

<090> 

250 

RETURN 

<052> 

12 REM " £DN THOMAS flMERZU 

<081 > 

297 

REM 

<105> 

13 REM "t5SPACE>SIRKENWEG 3 

14 REM "<5SPACE)4413 SEELEN 

15 REM “ 

<044> 

<094> C 

298 

S 

REM - "£ROGRAMMFILE LESEN" - 

REM 

PRINT#15,"P”CHR*(2>CHR#(FN L(ID> >CHR*( 

<01 B> 

< 107> 

16 REM "<6SPACE>06/09<B5 

<043> 


FN H(1D))CHR*(1) 

<107> 

17 REM '• 

< 096> 

310 

INPUT#2,PR* 

<077> 

20 : 

<252> 

320 

PRINT#15,“P"CHR*(2)CHR*(FN L(ID))CHR*( 


21 01=6501: Ml-Ol+1 

< 122> 


FN H(ID))CHR*(18) 

<004 > 

22 02=301 : M2=02+l 

<19B> 

330 

GET#2,A1*,A2*,A3*,A4*,C0* 

<193> 

25 DIM DI*(150),K(150) 

<202> 

340 

DI=ASC(A1*+NU*)+256*ASC <A2*+NU*> 

<225> 

26 DIM SI(4) : REM SPEICHERINFO 

<110> 

345 

NE=ASC(A3S+NU*)+256*ASC(A4*+NU*> 

<241 > 

30 AN=0 

<19B> 

350 

RETURN 

< 154> 

35 DEF FN H(X)=INT(X/256) 

<013> 

357 

REM 

<165> 

36 DEF FN L(X>=X-256*FN H(X> 

40 DEF FN Ml(X)=X-(INT«X/01)*01)+1 

<023> 

< 144> 

358 

359 


<254> 

<167> 

Ktn — - ÜIoKr 1LL. Lt.bt.iN - 

REM 

41 DEF FN M2(X)=X—(INT(X/02)*02)+1 

<245> 

360 

PRINT#15."P"CHR*(2)CHR*(FN L(DI)>CHR*< 


42 C1S="{RVSON,SPACE,RVOFF,LEFT >" :Cl=20 

<094> 


FN H(DI))CHR*<1) 

<227> 

43 C2*= " <SP ACE,LEFT > ": C2=2*C1 

<089> 

370 

INPUT#2,NA*,IN* 

<028> 

44 RE*="<23RIGHT > " 

<244> 

375 

PRINT#15,"P"CHR*(2)CHR*(FN L(DI)>CHR*( 


45 HK*=CHR*(34) 

< 132 > 


FN H(DI))CHR*(25) 

< 109> 

46 NU*=CHR*(0> 

<048> 

380 

GET#2 , Al * ,A2* , A3* , A4* 

<211 > 

47 DF*="<16SPACE>" 

<163> 

385 

NE=ASC(Al*+NU* ) +256*ASC ( A2*+NU* ) 

<022> 

48 DL*=CHRS ( 254 ) +CHR*(255 > 

<253> 

387 

FR=ASC ( A3*+NU* ) +256*ASC(A4*+NU*) 

< 09-9 > 

50 : 

<026> 

390 

RETURN 

<194> 

90 GOTO 1000 

<030> 

397 

REM 

<205> 

95 s 

<071 > 

398 

REM - "jPROSFILE SCHREIBEN” - 

<152> 

97 REM 

< 159> 

399 

REM 

<207> 

98 REM - "ÜASH-flJNKTION 1" - 

<208> 

400 

PRINT #15,"P"CHR* < 2 > CHR* (FN L (ID) ) CHR* ( 


99 REM 

< 161 > 


FN H(ID))CHR*(1 > 

<207> 

100 ID=0 

<220> 

410 

PRINTK2,ID* 

<157> 

101 LE=LEN(ID*> : IF LE=0 THEN ID=1 5 RETURN 

<233> 

420 

PRINT#15,"P"CHR*(2)CHR*(FN L(ID) ) CHR* ( 


102 FOR 1=1 TO LE 

< 155> 


FN H ( ID) > CHR*(18) 

< 104 > 

110 A*=MID*<ID*,I,1) 

<126> 

430 

PRINT#2,CHR*(FN L(DN) ) CHR*(FN H(DN))CH 


130 ID=FN Ml(ID*26+ASC(A*> ) 

<206> 


R*(FN L(KO) ) CHR*(FN H(KO))CO*: 

< 162> 

140 NEXT 

<150> 

450 

RETURN 

<254> 

150 RETURN 

< 208 > 

457 

REM 

<009> 

197 REM 

<003> 

458 

REM - “aiSKFILE SCHREIBEN” - 

<230> 

198 REM - "UASH-DJNKTION 2" - 

<084> 

459 

REM 

<011> 

199 REM 

<005> 

460 

PRINT#15,”P"CHR*(2)CHR*(FN L(DI )) CHR* ( 


200 DI=0 

<084> 


FN H(DI) > CHR*(1) 

<071 > 

201 LE=LEN(DI*):IF LE=0 THEN DI=1:RETURN 

<22B> 

470 

PRINT#2,DI*","I* 

<007> 

202 FOR 1=1 TO LE 

<255> 

475 

PRINT#15,”P"CHR*(2)CHR*(FN L(DI))CHR*( 


210 A*=MID*(D1S,I,1> 

<101> 


FN H(DI>)CHR*(25) 

<209> 

230 DI=FN M2(DI*26+ASC(A*>> 

<209> 




Das Listing zum »Disk-Manager«. Bitte benutzen Sie zur Eingabe den Checksummer V3 (Seite 6). 
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480 PRINT#2,CHR*(FN L<K0>>CHR*(FN H(KO))CH 
R*(FN L(FR))CHR*(FN H(FR)) 

490 RETURN 

497 REM 

498 REM - “SPEICHERINFO LESEN" - 

499 REM 

500 OPEN 5,8,5,"#":GOSUB 700 
510 PRINT#15,“B-R:" 5;0;18:0 
520 PRINT#15,“B—P:" 5;200 
525 FOR SI=0 TO 4 

530 GET#5,A1*,A2*:SI (SI) =ASC t A1#+NU*) +256» 
ASC(A2*+NU*):NEXT 
535 CLOSE 5:RETURN 

547 REM 

548 REM- "SPEICHERINFO SCHREIBEN" - 

549 REM 

550 OPEN 5,8,5,"#":GOSUB 700 
555 PRINT#15,"B—R:" 5;0;18;0 
560 PRINT#15,"B—P:" 5;200 
565 FOR SI=0 TO 4 

570 PRINT#5,CHR*(FN L(SI(SI)))CHR*(FN H(SI 
<SI)));:NEXT 

575 PRINT#15,"B-W:" 5;0;18;0 
580 CLOSE 5sRETURN 

597 REM 

598 REM - "IRGENDEINE IASTE" - 

599 REM 

600 PRINT:PRINT" C2D0WN>ijEITER MIT EINER IA 

STE: GOSUB 800:PRINT:PRINT:RETURN 

697 REM 

698 REM - "21 SK SRROR" - 

699 REM 

700 INPUT#15,DS,DS*,TR,SE 

710 IF(DS=0)OR(DS=50)OR(DS=51)THEN RETURN 
720 PRINT:PRINT”21SK ERROR:"DS;DS*;TR;SE 
730 CLOSE 2:CLOSE 15 
740 GOSUB 600:GOTO 1000 

797 REM 

798 REM - "IASTATUREINGABE" - 

799 REM 
B00 C=0 

810 GET E*:C=C+1:IF C=C1 THEN PRINT CI*; 
820 IF C=C2 THEN PRINT C2*;:C=0 
830 IF E*=""THEN GOTO 810 
840 PRINT C2*;:RETURN 

897 REM 

898 REM - "XITEL"- 

899 REM 

900 PRINT"<CLR,CTRL-N,GREEN>";:FOR 1=1 TO 
40:PRINT“®";:NEXT 

910 PRINT:PRINT"CI1SPACEJ2ISK flANAGER £4.0 
930 PRINTsFOR 1=1 TO 40:PRINT"Ä";sNEXT 
940 PRINT:PRINT:RETURN 

997 REM 

998 REM -"ÜAUPTMENUE"- 

999 REM 

1000 POKE 53280,0:POKE 53281,0:GOSUB 900 
1010 PRINT"< 1 X2SPACE) .PROGRAMM SUCHEN 
1020 PRINT"< 2 X2SPACE>21RECTORY EINLESEN 

Sc SPEICHERN 

1025 PRINT"< 3 X2SPACE5J3IRECTORY LISTEN 

1026 PRINT"< 4 X2SPACE>21RECTORY LOESCHEN 

1027 PRINT"< 5 > C2SPACE>PROGRAMM LOESCHEN 

1028 PRINT“< 6 >C2SPACE>SPEICHERINFO 

1029 PRINT"< 7 X2SPACE1ÜEUE 2ATENDISK ANL 
EGEN 

1031 PRINT" CDOWNX 0 X2SPACE>£NDE<2D0WN>" 
1040 PRINT“IHRE KAHL? 

1045 GOSUB 800:W*=E* 

1050 IF W*="0"THEN PRINT:PRINT"C2D0WN}(C) 
1985 BY 3HOMAS fiMERZU.“:END 
1060 ON VAL(W*)GOTO 1200,6000,2000,3000,90 
00,8000,4000 
1070 GOTO 1000 

1197 REM 

1198 REM - "PROGRAMM SUCHEN" - 

1199 REM 

1200 GOSUB 900:FL=0 

1210 OPEN 15,8,15:OPEN 2,8,2,"PROGFILE,L": 
GOSUB 700 

1220 INPUT"<2D0WN>£R0GRAMMNAME”;ID*:GOSUB 

1 00s 

1225 GOSUB 300 

1230 IF PR*=ID*THEN 1300 

1240 IF PR*=CHR*(255)THEN PRINT"CDOWN>£ROG 


<21B> 

<038> 

<049> 

< 119> 
<051 > 
<001 > 
<167> 
<204> 
<045> 

<195> 

<186> 

< 101 > 

<084> 

< 103> 
<053> 
<214> 
<244> 
<085> 

<226> 
<244> 
<231 > 

< 151 > 
<227> 

< 153> 

<185> 
<251 > 
<064> 
<253> 
<226> 
<085> 
<004> 
<142> 
<252> 
<097> 

< 171 > 
<099> 
< 212 > 
<U45> 
<207> 
<243> 
<238> 
<197> 
<083> 

< 199> 

<254> 

<105> 

<216> 

< 108> 
<041 > 
<127> 
<043> 
<098> 
<177> 

< 122 > 
<014> 
<147> 
< 182 > 
<024> 

< 124> 

< 160> 
<075> 
<021 > 

<251 > 

<07B> 

<250> 

<243> 

<035> 

<245> 

<226> 

<176> 

<176> 

< 169> 

< 119> 


RAMM NICHT VORHANDEN.":GOTO 1400 <242> 

1250 ID=ID+1:IF IDXIl THEN ID=1 <223> 

1260 GOTO 1225 <089> 

1300 CLOSE 2 <049> 

1310 OPEN 2,8,2,"DISKFILE,L" <204> 

1320 GOSUB 360:IF FL THEN 1350 <167> 

1330 PRINT: PRINT" JJAS £ROGAMM "HK*ID*HK* <073> 

1335 FL=—1 <168> 

1340 PRINT"IST GESPEICHERT AUF DE"; <171> 

1345 IF CO*="+"THEN PRINT“N 21SKETTENCDOUN 

> ": GOTO 1350 <051 > 

1347 PRINT"R 2ISKETTECD0WN>" <066> 

1350 PRINT"CRVSON}"HK*;NA*;HK*" "IN* <194> 

1360 IF CO*< > " + "THEN 1400 <216> 

1370 GET AS:IF AS=""THEN CLOSE 2:OPEN 2,8, 

2,"PROGFILE,L":GOTO 1250 <206> 

1380 PRINT"CDOWNJBREAK. <003> 

1400 CLOSE 2:CLOSE 15 <050> 

1410 GOSUB 600:GOTO 1000 <160> 

1997 REM <025> 

1998 REM - "2IRECT0RY LISTEN"-<190> 

1999 REM <027> 

2000 GOSUB 900 <230> 

2010 INPUT"21SKNAME";DI* <142> 

2020 DI*=LEFTS(DI*+DF*,16):GOSUB 200 <101> 

2030 OPEN 15,8, 15: OPEN 2,8,2, "DISKFILE ,L" : 

GOSUB 700 <123> 

2040 GOSUB 360:GOSUB 700 <233> 

2050 IF NA*=DI»THEN 2100 <253> 

2060 IF NA*=CHR*(255)THEN 2090 <175> 

2070 DI=DI+1;IF DI>02 THEN DI=1 <130> 

2080 GOTO 2040 _ . <173> 

2090 PRINT"C2D0WNI2IRECT0RY NICHT GESPEICH 
ERT.":CLOSE 2:CLOSE 15:GOSUB 600:GOTO 
1000 <033> 

2100 PRINT"C2D0WN,RVSON>"HK*;DI*;HK*" "IN* <076> 
2110 CLOSE 2 <097> 

2120 OPEN 2,8,2,"PROGFILE,L":GOSUB 700 <135> 

2130 IF NE=0 THEN 2200 <09B> 

2135 GET A*:IF A*< >" "THEN PRINT"CDOWNJBREA 

K.":GOTO 2210 <209> 

C nLSia»'- iO=NE: GOSUB 300 <073> 

2150 PRINT"C2SPACE>"HK*; PR*; HK* <225> 

2160 IF PRS=CHR*(255)THEN NE=0 <062> 

2170 GOTO 2130 <198> 

2200 PRINT FR"3L0CKS FREE. <234> 

2210 CLOSE 2:CLOSE 15:GOSUB 600:GOTO 1000 <164> 

2997 REM <009> 

2998 REM-"SIRECTORY LOESCHEN"- <152> 

2999 REM <011> 

3000 GOSUB 900 <214> 

3010 INPUT"filSKNAME";DI* <126> 

3020 DI*=LEFT*(DIS+DF*,16):GOSUB 200 <0B5> 

3030 OPEN 15,8,15 <138> 

3033 GOSUB 500 <215> 

3035 OPEN 2,8,2,"DISKFILE,L":GOSUB 700 <106> 

3040 GOSUB 360:GOSUB 700 <217> 

3050 IF NA*=DI*THEN 3100 <243> 

3060 IF NA*=CHR*(255)THEN 3090 <221> 

3070 DI=DI+1:IF DI>02 THEN DI=1 <112) 

3080 GOTO 3040 <I16> 

3090 PRINT"C2D0WNIXIRECT0RY NICHT GESPEICH 

ERT.”:CLOSE 2:CLOSE 15:GOSUB 600:GOTO 
1000 <017> 

3100 PRINT"C2D0MN,RVSON>"HK*;D1*;HK*" "IN* <060> 
3120 PRINT"C2D0WNX 1 >C3SPACE>filRECTORY L 

DESCHEN <209> 

3130 PRINT"< 0 >C3SPACEJXURUECK ZUM ÜAUPTM 

ENUEtDOWNJ <137> 

3140 PR INT ".IHRE HAHL? “; <143> 

3150 GOSUB 800 <102> 

3160 IF E*="0“THEN CLOSE 2;CL0SE 15:G0T0 1 

000 <188> 

3170 IF E*<>"1"THEN 3150 <120> 

3180 GOSUB 900:PRINT"fllRECTORY WIRD GELDES 

CHT_I2D0WN>" <005> 

3185 SI(0>=SI(0>+l:SI(1)=SI(1> —1 <173> 

3190 DI*=DL*:GOSUB 460:CLOSE 2 <160> 

3200 OPEN 2,B,2,"PROGFILE,L":GOSUB 700 <199> 

3210 IF NE=0 THEN CLOSE 2:GOSUB 550:CLOSE 

15:GOTO 1000 <254> 

3215 SI(3)=SI(3)+ltSI(4>=SI(4)—1 <097> 

3220 ID=NE:GOSUB 300 <137> 

3230 ID*=DL*:GOSUB 400:GOSUB 700:IF C0*="+ 

"THEN 3210 <172> 
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3240 

FL=ID:ID*=PR*:GOSUB 100:IF ID=FL THEN 


6070 

IF C*<>““ THEN D=D+ASC(C*>*256 

<192> 


3210 

<105> 

6080 

N#="":HK=0 

< 133> 

3245 

N2=NE 

< 212 > 

6090 

GET»2,C*:IF ST<>0 THEN 6200 

< 140 > 

3250 

I2=ID:ID=FL 

<147> 

6093 

IF C*=HK*THEN HK=NOT(HK) 

< 139> 

3260 

ID=ID—1:IF I2>ID THEN 3210 

<160> 

6095 

IF HK THEN N*=N*+C* 

< 165> 

3270 

GOSUB 300: IF PR*OID*THEN 3260 

<026> 

6100 

IF C$<>""THEN 6090 

<226> 

3280 

DN=DI:KO=NE:CO*="-":GOSUB 400:GOSUB 7 


6101 

DI*(C0)=MID*(N*,2) 

<203> 


00 

< 141 > 

6110 

IF LEN(DI*(CO)>=0 THEN 6120 

<162> 

3290 

NE=N2:GOTO 3210 

<053> 

6111 

PRINT"<2SPACE>"HK*DI*(C0)HK*:IF AL TH 


3997 

REM 

<249> 


EN 6120 

,< 146>‘ 

3998 

REM - "KEUE JJATENDISK" - 

<045> 

6112 

PRINT"<UP>"RE*"- SPEICHERN? 

<004> 

3999 

REM 

<251 > 

6113 

GOSUB 800:IF E*<>"J"AND E*<>"N"THEN 6 


4000 

GOSUB 900 

<198> 


113 

<055> 

4010 

PRINT “.LEGEN £IE EINE LEERE SISKETTE I 


61 14 

PRINT:PRINT"<UP>“RE*: 

< 222 > 


NS LAUF- WERK.<DOWN>" 

<008> 

6115 

IF E*="N"THEN PRINT"- KEIN.<5SPACE>": 


4020 

PRINT*'< 1 X3SPACEJKEUE SATENDISK ANL 



GOTO 6130 

<174> 


EGEN 

<129> 

6116 

PRINT"- £A.<7SPACE>" 

<061 > 

4030 

PRINT"< 0 X3SPACEJZURUECK ZUM ÜAUPTM 


6120 

C0=C0+1 

<137> 


ENUE CDOWN > 

<019> 

6130 

IF ST=0 THEN GOTO 6035 

<003> 

4040 

PRINT"LHRE KAHL7 "5 

<025> 

6200 

CLOSE 2:CLOSE 15 

<024> 

4050 

GOSUB 800 

<240> 

6205 

PRINT D"S_OCKS FREE. 

<?182> 

4060 

IF E*="0"THEN 1000 

<073> 

6210 

x 

<090> 

4070 

IF E*< > ” 1"THEN 4050 

<250> 

6220 

PRINT"<3D0WN>SITTE LEGEN SIE DIE ALS* 


4080 

GOSUB 900 

< 022 > 


-C 6 SPACE)DISKETTE INS LAUFWE 


4090 

PRINT"DISKETTE WIRD FORMATIERT... 

<103> 


RK.<2D0WN) 

<027> 

4100 

OPEN 15.8,15,"N0:DISK MANAGER,TO" 

<230> 

6230 

GOSUB 600 

< 118> 

41 10 

GOSUB 700 

<038> 

6240 

GOSUB 900 

<152> 

4120 

PRINT:PRINT"PROGRAMM WIRD ABGESPEICHE 


6250 

OPEN 15,8,15,"I":GOSUB 500 

< 122 > 


RT...“ 

<218> 

6255 

IF SI(0>>1 AND SI(2)>C0 THEN 6260 

< 195> 

4130 

SAVE"DISK MANAGER 4.0",B 

<097> 

6257 

PRINT"SPEICHERUNG NICHT MOEGLICH." 

< 122 > 

4140 

GOSUB 700 

<06B> 

6258 

PRINT"SPEICHERPLAT Z ERSCHOEPFT.” 

<016> 

4150 

PRINT:PRINT"SATENFILE 1 WIRD ANGELEGT 


6259 

CLOSE 15:GOSUB 600-.GOTO 1000 

<199> 


..." 

<006> 

6260 

OPEN 2,8,2,"DISKFILE,L":GOSUB 700 

<029> 

4160 

OPEN 2,8,2,"PROGFILE,L,"+CHR* <22> 

< 200 > 

6270 

GOSUB 200 

< 126> 

4170 

GOSUB 700 

<098> 

7024 

PRINT"2ATEN WERDEN GESPEICHERT...<2D0 


4172 

PRINT#15,"P"CHR*(2)CHR*(FN L(M1)) CHR* 



WN > " 

<143> 


(FN H(Ml))CHR*(1) 

<015> 

7025 

GOSUB 360 

<223> 

4174 

GOSUB 700 

< 102 > 

7030 

IF NA*=DI*THEN 7100 

< 191 > 

4176 

PRINTÄ2,"END" 

<105> 

7040 

IF NA*=CHR*(255)THEN 7200 

<130> 

4178 

GOSUB 700 

<106> 

7050 

DI=DI+1:IF DI>02 THEN DI=1 

<028> 

4180 

CLOSE 2 

<135> 

7060 

GOTO 7025 

<063> 

4190 

PRINT:PRINT"£ATENFILE 2 WIRD ANGELEGT 

7<-I 

PRINT“<2D0WN}SIE DISKETTE "DI* 

< 191 > 



<175> 

71 10 

PRINT"WURDE SCHON GESPEICHERT. 

< 107> 

4200 

OPEN 2,8,2,"DISKFILE,L,"+CHR*(32> 

<060> 

7120 

CLOSE 2:CLOSE 15:G0SUB 600:GOTO 1000 

<248> 

4210 

GOSUB 700 

< 138> 

7200 

I*=I1*:KO=0:GOSUB 460:GOSUB 700 

<255> 

4212 

PRINT#15,"P"CHR*(2)CHR*(FN L<M2>)CHR* 


7210 

CLOSE 2 

<117> 


<FN H(M2> >CHR*(1> 

<079> 

7211 

SI(0)=SI(0)-1:SI(1)=SI(1)+1 

< 159> 

4214 

GOSUB 700 

< 142> 

7215 

DN=DI:IF C0<=1 THEN 7620 

<03B> 

4216 

PRINT#2,"END" 

<145> 

7220 

OPEN 2,8,2,“PROGFILE.L":GOSUB 700 

< 155> 

4220 

CLOSE 2 

<175> 

7230 

FOR I1=CQ—2 TO 0 STEP—l 

<035 > 

4225 

PRINT:PRINT"SPEICHERINFO WIRD ANGELEG 


7320 

ID*=DI*(I1):PRINT HK*ID*HK*:GOSUB 100 

<143> 


T...“ 

<251 > 

7325 

GOSUB 300 

<173> 

4230 

SI(0)=02:SI(1)=0 

<040> 

7330 

IF PR*=CHR*(255)THEN SI(2)=SI(2)-1:SI 


4240 

SI<2)=01:SI(3)=0:SI<4>=0 

<190> 


(4)=SI(4)+l:GOTO 7500 

<091 > 

4250 

GOSUB 550 

<242> 

7340 

IF PR*=ID*THEN 7400 

< 197> 

4260 

CLOSE 15:GOTO 1000 

<179> 

7345 

IF PR*=DL*THEN SI(3)=SI(3)-1:SI(4)=SI 


5996 

REM 

<216> 


(4)+1:GOTO 7450 

<056> 

5997 

REM - "AIRECTORY LESEN" - 

<174> 

7350 

ID=ID+1:IF ID>01 THEN ID=1 

<227> 

5998 

REM-"12SPACE SPEI CHERNI2SPACE 


7360 

GOTO 7325 

< 157> 


>" - 

<158> 

7400 

IF CO*="+"THEN 7350 

<072> 

5999 

REM 

<219> 

7405 

N2=K0:D2=DN 

<235> 

6000 

GOSUB 900:CO=0 

<073> 

7410 

DN=DI:KO=NE:CO*="+":GOSUB 400:GOSUB 7 


6005 

PRINT“SIRECTORY EINLESEN:<2D0WN> 

< 121 > 


00 

< 191 > 

6006 

PRINT"SITTE LEGEN SIE DIE DISKETTE IN 


7420 

K0=N2:DN=D2:MI=—1:GOTO 7350 

<087> 


S LAUF-I2SPACE5WERK. 

<138> 

7450 

IF MI THEN 7500 

< 107 > 

6007 

GOSUB 600 

<149> 

7460 

I X=I D 

< 170 > 

6008 

PRINT:PRINT:PRINT 

<035> 

7465 

ID=ID+1:IF ID>01 THEN ID=1 

<08B> 

6010 

OPEN 15,8,15,“I 

< 155> 

7466 

GOSUB 300 

<060> 

6020 

OPEN 2,8,0,"*0":GOSUB 700 

<037> 

7470 

IF PR*=CHR*(255)THEN ID=IX:GOTO 7500 

<220> 

6021 

PRINT"BLLE LILES SPEICHERN? 

<035> 

7480 

IF PR*<>IDSTHEN 7465 

<077> 

6022 

GOSUB 800:IF E*="J"THEN AL=-1:G0T0 60 


7490 

C0*="+“:ID=IX:GOTO 7510 

< 115> 


29 

<229> 

7500 

C0*="-" 

<229> 

6023 

IF ESO"N"THEN 6022 

<248> 

7510 

GOSUB 400:GOSUB 700 

<027> 

6024 

AL=0 

<078> 

7520 

KO=ID:MI=0 

<237> 

6029 

PRINT E*:PRINT:PRINT 

<240> 

7600 

NEXT 

<244 > 

6030 

FOR 1=1 TO 8:GET#2,B*:NEXT:DI*="" 

<23B> 

7610 

CLOSE 2 

<007> 

6031 

FOR 1=1 TO 16:GETt*2,B*:DI*=DI*+B*:NEX 


7620 

OPEN 2,8,2,"DISKFILE,L 

< 12B> 


T:PRINT"(RVSON >"HK*DI*HK* ;:GET#2, B* : I 


7630 

I*=I1*:DI=DN:FR=D:GOSUB 460:GOSUB 700 

<139> 


]*=■■•• 

■<215> 

7700 

CLOSE 2:GOSUB 550:CLOSE 15:GOSUB 600: 


6033 

FOR 1=1 TO 6:GET#2,B*:I1*=I1*+B*:NEXT 



GOTO 1000 

< 102> 


:PRINT I1*:GET*2,B* 

<029> 

7997 

REM 

< 185> 

6035 

GET#2,B*,C*: IF STOB THEN 6200 

<098> 

7998 

REM-“SPEI CHER INFO" - 

<204> 

6040 

GET#2,B*,C* 

<241 > 

7999 

REM 

<187> 

6050 

D=0 

<121> 

8000 

GOSUB 900 

< 134> 

6060 

IF B*< >“" THEN D=ASC(B*> 

< 162> 

8010 

OPEN 15,8,IS,“I”:GOSUB 700 

<106> 



76 
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8020 

PRINT"SpEICHERINFORMATIONEN:C2D0WN >“ 

<073> 

8030 

GQSUB 500 

< 132> 

8040 

PRINT,"C3SPACEJFREI(3SPACE >GELOESCHTC 



3SPACEJBELEGT":PRINT 

< 114> 

8050 

PRINT"filSKETTEN:<3SPACE>“; 

<205> 

8051 

PRINT RIGHT*<"<4SPACE>"+STR*(SI(0)),4 



) •' ( 8 SPACE >- <7SPACE>"; 

<070> 

8052 

PRINT RIGHT*("{4SPACET"+STR*(SI(1>),4 



) 

<114> 

8060 

PRINT“UROGRAMME s<3SPACE>"; 

<049> 

8061 

PRINT RIGHT*«"{4SPACEV+STR#(SI<21),4 



>”{5SPACET"; 

<053> 

8062 

PRINT RIGHT*«"<4SPACE>”+STR*(SI(3)) ,4 



1"<7SPACE>"; 

< 0 B 6 > 

8063 

PRINT RIGHTS«"C4SPACE}"+STR*(SI(4)>,4 



> 

<221 > 

8100 

CLOSE 15:GQSUB 600:GOTO 1000 

<006> 

8997 

REM 

< 169> 

8998 

REM-"£.ILE LOESCHEN"- 

< 1 BB> 

8999 

REM 

< 171 > 

9000 

G 8 SUB 900 

< 11 B> 

9010 

OPEN 15,8,15:GOSUB 500:OPEN 2,8,2,"PR 



OGFILE,L":GOSUB 700 

<048> 

9020 

INPUT 12D0WN >.PROGRAMMNAME “ ; IDS: GOSUB 



100 : 

< 102 > 

9025 

GOSUB 300 

<095> 

9030 

IF PR*=IDSTHEN 9100 

<077> 

9040 

IF PRS< >CHR*(255)THEN 9050 

< 146> 

9045 

PRINT"«DOWN>£ROGRAMM NICHT VORHANDEN. 



CLOSE 2: CLOSE 15: GOTO 1000 

<156> 

9050 

ID=ID+1:IF ID>01 THEN ID=1 

< 149> 

9060 

GOTO 9025 

<047> 

9100 

CLOSE 2 

<229> 

9110 

OPEN 2,8,2,“DISKFILE,L“ 

<128> 

9120 

GOSUB 360:DD=NE:D3=DI:GOSUB 900 

<249> 

9130 

PRINT"C2D0WN)£ROGAMM«3SPACE>"HK*ID*HK 



* 

<240> 

9135 

CLOSE 2 

<008> 

9140 

PRINT" filSKETTE(2SPACE,RVSON>"HK*NA*HK 



*“ "IN* 

<222> 

9150 

PRINT:PRINT"C2D0WNX 1 >12SPACEJiOESC 



HEN 

<252> 

9160 

IF CO*=“+”THEN PRINT"< 2 >(25PACE>flND 



ERES PROGRAMM LOESCHEN 

<045> 

9170 

PRINT“< 0 X2SPACEJ2URUECK ZUM ÜAUPTM 



ENUE<2D0WN> 

<096> 

9180 

PRINT"IHRE HAHL? “5 

<085> 

9190 

GOSUB 800 

<044> 

9200 

IF E*="0"THEN CLOSE 15:GOTO 1000 

<038> 

9210 

IF ES="1“THEN 9300 

<071 > 

9220 

IF E*<>"2"THEN 9190 

<252> 

9230 

IF C0*O" + "THEN 9190 

<054> 

9240 

OPEN 2,8,2,"PROGFILE,L":GOTO 9050 

<089> 

9300 

SI(3)=SI(3>+l:SI<41=SI(41—1 

<0B6> 

9310 

OPEN 2,8,2,“PROGFILE,L" 

< 000 > 

9320 

GOSUB 300:N2=NE:I2=ID 

<1B5> 

9330 

IDS=DLS:GOSUB 400:GOSUB 700:IF CO*=“+ 



"THEN 9400 

< 114 > 

9340 

ID*=PR*:GOSUB 100:IF ID=I2 THEN 9400 

< 135> 

9350 

FL=ID:ID=I2 

<211 > 

9360 

ID-ID-lsIF FL>ID THEN 9400 

<057> 

9370 

GOSUB 300:IF PR*<>ID*THEN 9360 

<046> 

9380 

DN=DI:KO=NE:CO*="—";GOSUB 400:GOSUB 7 



00 

<145> 

9400 

IF DDOI2 THEN 9500 

<049> 

9410 

CLOSE 2:OPEN 2,8,2,"DISKFILE,L”:GOSUB 



700 

< 195> 

9420 

DI=D3:GOSUB 360 

<087> 

9430 

DI*=NA*:I*=IN*:K0=N2:G0SUB 460:GOSUB 



700 

<07B> 

9440 

GOTO 9600 

< 140 > 

9500 

ID=DD:GOSUB 300 

<194> 

9520 

IF NEC>12 THEN ID=NE:GOSUB 300:GOTO 9 



520 

<160> 

9530 

DN=D3:KO=N2:ID*=PR*:GOSUB 400:GOSUB 7 



00 

< 113> 

9600 

CLOSE 2:GOSUB 550:CLOSE 15:PRINT:PRIN 



T"<2DOWN>PROGRAMM GELOESCHT“ 

< 102 > 

9610 

GOSUB 600:GOTO 1000 

<232> 
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(Fortsetzung von Seite 31) 

Korrigieren: Von hier aus verzweigt das Programm in das 
Lademenü. Dort Kann man auswählen, ob die Textdatei von 
Kassette oder Diskette geladen werden soll. Anschließend 
wird der Text buchstabenweise auf dem Bildschirm wieder¬ 
gegeben. Der Anwender drückt nun jedesmal, wenn er einen 
Fehler entdeckt hat, kurz die Leertaste. 

In der obersten Zeile des Bildschirms steht eine Fehleran¬ 
zeige. Diese erhöht sich nach jedem Druck auf die L eerta ste. 
Man kann den Ablauf durch das Drücken der SHIFTTaste 
anhalten. Das Programm setzt das Listen des Textes erst fort, 
wenn der Anwender diese wieder losläßt. Wenn der Pro¬ 
grammteil »Text kontrollieren« beendet ist, gelangt der 
Anwender durch Drücken der RETURN-Taste in das Unter¬ 
programm »Berechnen der Note«. Hier fragt das Programm, 
ob man ein Anfänger oder Examenskandidat ist. Wenn man 
den zweiten Fall wählt, wird die Note ausgegeben, mit der die 
Schreibleistung in der Schulprüfung honoriert worden wäre. 
Zusätzlich erfährt der Anwender, ob er die IHK-Prüfung 
bestanden hätte. Entscheidet man sich für den Auswahlpunkt 
»Anfänger«, erteilt der Computer eine entsprechend bessere 
Note. Durch Drücken der RETURN-Taste kann der Anwender 
TPFM neu starten. 

Benoten: Der Menüpunkt »Benoten« ist für Lehrkräfte 
gedacht. Nach der Eingabe von Anschlags- und Fehlerzahl 
wird die entsprechende Note ausgegeben. Gibt man bei Feh¬ 
lerzahl ein »x« ein, kehrt man in das Hauptmenü zurück. 
Abändern der Notentabelle: Die in dem Programm verwen¬ 
dete Notentabelle ist unter Umständen nicht für alle Bundes¬ 
länder gültig. Darum wird hier zusätzlich beschrieben, wie 
man die Skala — falls erforderlich — anpassen kann: 

Ausschnitt der verwendeten Notentabelle 
(konventionelle Form): 

1Una 5.5 5 4.5 4 3.5 3 2.5 2 1.5 1 

0 Fehler 1200 1400 1600 1700 1800 

1 Fehler 1200 1400 1600 1700 1800 

2 Fehler 1200 1400 1500 1600 1700 1800 

etc. 

Ausschnitt der verwendeten Notentabelle 
(kodierte Form): 

DATA 1200,5,12,14,16,17,18,—1,5,12,14,16,17,18,—1,4,12, 

14,15,16,17,18 

Die kodierten Werte werden von dem Programm TPFM in 
ein zweidimensionales Feld eingelesen. 

In dieser Tabelle sind 1200 Anschläge Grundvorausset¬ 
zung für das Bestehen der Prüfung. Wenn man weniger 
Anschläge hat, ist man automatisch durchgefallen. Diese 
Zahl ist der erste DATA-Wert. Der zweite gibt an, wieviele 
Noten in der Tabelle unbesetzt sind. Bei Fehlerzahl 0 sind 
dies zum Beispiel 5 Noten (5.5, 5, 4.5, 4, 3.5). Die Note 6 
bleibt unberücksichtigt. Die hierauf folgenden DATA-Werte 
sind die Anschlagsgrenzen zwischen den verschiedenen 
Noten. Zur Erleichterung der Arbeit des Anwenders wird die 
Eingabe automatisch rechtsbündig mit Nullen auf vier Stellen 
ergänzt. Es ist auch vorgesehen, Werte von unter 100 
Anschlägen einzuspeichern. Die gewünschte Anschlagszahl 
wird dann einfach mit einem Minuszeichen versehen. Dieses 
wird vom Programm beim Einlesen in das zweidimensionale 
Feld entfernt. Die Anschlagszahl wird in diesem Falle nicht 
ergänzt. Nachdem alle Werte einer Tabellenzeile eingegeben 
sind, ist die Kennziffer (DATA-Wert) —1 anzugeben. Wenn 
man bei dem unteren Ende der Notentabelle, in diesem Fell 
»20 Fehler«, angelangt ist, gibt man die Kennziffer —2 an. 
Hierdurch erfährt der Computer, wann die Tabelle vollständig 
eingelesen ist. Daraufhin verzweigt TPFM zu dem Programm¬ 
teil »Noten ermitteln«. 

(Dirk Marzluf/og) 

$zad 
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Rechnungs¬ 

helfer 

Dieses Programm wurde speziell für 
die Verwendung in kleinen und mitt¬ 
leren Handwerksbetrieben geschrie¬ 
ben. Es übernimmt die Erstellung 
von Kostenvoranschlägen und Rech¬ 
nungen, fertig zum Verschicken. 

Das erste was Sie tun müssen, wenn Sie das Listing abge¬ 
tippt haben, ist eine »Textdatei« zu erstellen. In dieser Textda¬ 
tei sind alle möglichen Arbeiten Ihres Betriebes mit Einzel¬ 
preis verzeichnet. Jede Arbeit hat eine Schlüsselnummer. 
Später bei der Rechnungserstellung, brauchen Sie dann nur 
noch die entsprechende Nummer eingeben. 

Löschen Sie bitte die Zeilen 90 und 100 aus dem Pro¬ 
gramm. Starten Sie es und wählen Sie Menüpunkt»6«. Jetzt 
müssen Sie sich überlegen, wie viele verschiedene Arbeits¬ 
gänge Sie ungefähr benötigen. Diese Zahl können Sie aber 
später wieder erweitern. Das Programm richtet jetzt auf der 
Diskette die relative Datei ein. 

Tippen Sie die beiden gelöschten Zeilen wieder ein, und 
starten Sie das Programm neu. 

Sie haben nun folgende Menüpunkte zur Auswahl: 

1. Textdaten eintragen or 

2. Textdatei auf Bildschirm 

3. Textdatei drucken 


4. Textdatei korrigieren 

5. Angebot/Rechnung drucken 

6. Textdatei anlegen/erweitern 

1. Textdaten eintragen 

Jetzt können Sie jeder Schlüsselnummer einen bestimmten 
Text zuordnen. Dieser Text besteht aus zwei Zeilen zu je 40 
Zeichen. Weiterhin können Sie jedem Einzelposten einen 
bestimmten Preis geben. Dieser Preis muß gegebenenfalls 
mit einer oder zwei Nullen aufgefüllt werden (zum Beispiel 
4.00). 

2. Textdatei auf Bildschirm ausgeben 

Hier können Sie sich eine Übersicht über Ihre Daten verschaf¬ 
fen. Mit einem beliebigen Tastendruck kommen Sie wieder ins 
Hauptmenü zurück. 

3. Textdatei drucken 

Ihre Daten werden auf dem Drucker ausgegeben. Die Druck- 
Routine wurde für einen Epson-Drucker mit Wiesemann- 
Interface geschrieben, dürfte jedoch auch auf den 
Commodore-MPS-Druckem problemlos laufen. Einen Bei¬ 
spielausdruck zeigt Bild 1. 

4. Textdatei korrigieren 

Wenn Sie einen Tippfehler gemacht haben, oder bestimmte 
Posten ändern wollen, wählen Sie diesen Menüpunkt an. 

5. Angebot/Rechnung drucken 

Zuerst fragt der Computer, ob Ihre Firmendaten (Name, 
Berufszweig, Adresse, Kontonummer, etc.) gespeichert sind. 
Wenn Sie das erste Mal mit dem Programm arbeiten, müssen 
Sie diese erst eingeben. Danach drücken Sie bei dieser Frage 
einfach »RETURN«. 

Als nächstes müssen Sie das Datum eingeben. Dabei sind 
Sie an keine Formatvorschrift gebunden, »18. September 
1985« ist zum Beispiel auch erlaubt. 

Die nächste Frage bezieht sich auf die Art des Ausdrucks: 
Kostcnvoranschlag oder Rechnung. Dementsprechend kön- 
nen Sie entweder »mein Angebot«, oder »meine Rechnung« 
eingeben. 



SCHLUESSEL - LISTE 

Preis 

stck/qm/lfm 

2 

Deckenf1aechen abwaschen kleine Putz— 

1,90 

DM 

3 

BchaedNn bei spachteln 

Deckenflaechen vorhandene Tapeten ent— 

2,87 

DM 

4 

fernen 

Deckenf1aechen schleifen und vorleimen 

0,99 

DM 

5 

Deckenflaechen mit Putzgrund behandeln 

3,10 

DM 

6 

Dockonflaschen 2x mit Dispersionsfarbe 

4,20 

DM 

7 

streichen 

Deckenflaechen mit hei 1gotoenter Binder- 

2,20 

DM 

8 

färbe streichen 

Deckenflaechen mit Makulatur kleben 

4,90 

DM 

9 

einschl.Lieferung 

Deckenflaeche mit Rauhfaser kleben 

6,90 

DM 

10 

einschl. Lieferung 

Deckenflaeche mit Stosstapete Ihrer 

3,90 

DM 

11 

Mahl kleben 

DeckenfLaeche mit Tapete Ihrer Wahl 

3,10 

DM 

30 

auf knappe Naht kleben 

Mandflaechen abwaschen und kleine Putz- 

2,99 

DM 

31 

schaeden bei spachteln 

Mandflaechen vorhandene Tapeten entfer- 

2,70 

DM 

32 

nen 

Mandflaechen schleifen und vorleimen 

0,90 

DM 

33 

Mandflaechen mit Putzgrund behandeln 

3,10 

DM 

34 

Mandflaechen 2x mit Di&pursionsfarbe 

4,20 

DM 

33 

streichen 

Mandflaechen mit Binderfärbe streichen 

2,20 

DM 

36 

Mandflaechen mit Makulatur kleben 

4,90 

DM 

37 

Mandflaechen mit Rauhfaser kleben 

4.90 

DM 

33 

einschl.Lieferung 

Mandflaechen mit Stosstapete Ihrer Mahl 

3,90 

DM 

3? 

kl eben 

Mandflaechen mit Tapete auf knappe Naht 

3,10 

DM 

kleben 



Bild 1. So könnten Ihre Arbeitsposten aussehen. 



Ha nt* m 

8 C 02 Huenchen 

Mal *•«. 19. Sej.t eaber i9bs 


Kto.Mr.i 099 9B7 23 m 
Geldinstitut I 

Bank 1 »1 (zahl i 677 542 65 
Telefon: 089/4613 213 

Herrn 

Herbert KrueQler 
Eralandatr. 42 
4048 Grevenbroich 5 


Betrifft: Halerar beite» «o» 2.9.03 


Ale Anlage ueOersende ich Ihnen seine Rechnung »um o.g. Be.-ug. 


Ar ho11sau«wand 


Preis atCfc/qm/Ha Hengs Qeeast 


Deckenerhei len 


Decken«1 eschen alt hwllgetoenter Binder- 

2.20 

3.00 

11.00 

DH 

•arbe strelchon 

Deck«»«laechen alt Makulatur kleben 

4.90 

5.00 

24.50 

DH 

einachl.Lieferung 

Decken«laeche alt Stosstapete Ihrer 

Wahl kleben 

3,90 

*•- 

23.40 

DH 


Mander beiten 

Uand«leechen ait Putrgrund behandeln 

3.10 

0.00 

24.80 

OH 

Wandflaochon 2« alt Dispers :nnc«orbo 

4.20 

0.00 

33,60 

DH 

strelchon 

Wand«laschen alt Stosstapete Ihrer Wahl 

3,90 

e.ao 

31.20 

OH 


kleben __ 

1B6.77 DU 
« 14/C MWSt 76.13 D M 
212.92 OH 

Hit freundlichen Gruessen 

Bild 2. Eine individuell zusammengestellte Rechnung 
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Anwendung 


Danach folgen die Angaben zum Empfänger des Briefes: 
Anrede, Name, Adresse und der Verwendungszweck 
(»Betrifft...«). 

Als letzten Punkt können Sie die eigentliche Rechnung 
zusammenstellen: Sie geben nur die entsprechende Schlüs¬ 
selnummer, eventuell einen kurzen Kommentar und die 
Anzahl der Arbeiten ein (jeweils durch die »RETURN«-Taste 
abgeschlossen). 

Einen Beispielausdruck zeigt Bild 2. Die Addition der einzel¬ 
nen Posten geschieht dabei automatisch. 


6. Datei anlegen/vergrößern 

Sollte die am Anfang eingegebene Anzahl an Datensätzen 
nicht ausreichen, so können Sie über diesen Menüpunkt die 
Datei vergrößern. Geben Sie dazu einfach die neue Anzahl an 
Datensätzen ein, alles weitere übernimmt das Programm. 
Selbstverständlich werden die alten Datensätze dabei nicht 
gelöscht. 


(Herbert Krügler/tr) 


10 FFS="{40SPACE>" 

20 POKE 53272,23 

30 POKE 53281,15:POKE 53280,15 

40 HS= "<CLR,HOME,14D0WN,SPACE >“:H1S=". 

... 

50 ZS=" £n":ZlS="<2SPACE>":MlS="QM/LFM":Z2 
S="<3SPACE>" 

60 DIM C*(301,3):LS=" £REIS STCK/QM/LFM ” 
70 OPEN 3,8,2, "TEXTDATEN,L , "+CHRS ( 88 ) 

B0 OPEN 2,8,15 

90 PRINT#2,"P"CHRS < 2)CHRS(1)CHRS(0)CHRS <1) 
100 INPUT#3,SM 
110 PRINT"{CLR>" 

120 PRINT"{HOME,2D0WN,6SPACE,RVS0N,BLACK,2 
3SPACEJ" 

125 PRINT“< 6 RIGHT,RVSON,4SPACE,BROWN,RVOFF 
,SPACEIßENUE-ANGEBOT CSPACE,RVSON,BLACK 
,4SPACE>" 

126 PRINT"{6SPACE,RVSON,BLACK,23SPACE>" 

130 PRINT"{4DOWN,3SPACE,RED,RVSON,SPACE)1{ 

SPACE,BLACK,RVOFF,2SPACE>IEXTDATEN EIN 
TRAGEN" 

140 PRINT"{DOWN,3SPACE,RED,RVSON,SPACE>2{S 
PACE,BLACK,RVOFF,2SPACEJXEXTDATEI AUF 
AILDSCHIRM" 

150 PRINT"{DOWN,3SPACE,RED,RVSON,SPACE>3{S 
PACE,BLACK,RVOFF,2SPACE >2EXTDATEI DRUC 
KEN" 

160 PRINT"{DOWN,3SPACE,RED,RVSON,SPACE>4{S 
PACE,BLACK,RVOFF,2SPACE>IE XTDATEI KORR 
IGIEREN" 

170 PRINT"{D0WN.3SPACE,RED,RVSON.SPACE>5{S 
PACE,BLACK,RVOFF,2SPACE1ANGEBOT / AECH 
NUNG DRUCKEN" 

180 PRINT"{DOWN,3SPACE,RED,RVSON,SPACE> 6 {S 
PACE,BLACK,RVOFF,2SPACE1IEXTDATEI ANLE 
GEN/VERGROESSERN" 

190 PRINT"{2D0WN,3SPACE,RED,RVSON,SPACE >E{ 
SPACE,BLACK,RVOFF,2SPACE >£NDE" 

200 BET AS:IF AS="E"THEN CLOSE 2:CL0SE 3:E 
ND 

210 IF AS<"1“OR AS>" 6 ”THEN 200 
230 ON VAL <AS)GOTO 250,400,540,710,1060,29 
30 

240 REM"*************************** 

250 REM"* NEUE TEXTE EINSPEICHERN * 

260 REM"*************************** 

270 PRINT H*:PRINT"äCHLUESSEL (2-";SM;") O 
DER 'E' FUER ANDE" 

280 OPEN 1,0:INPUT«1,SS 

290 IF SS="E"THEN CLOSE 1: GOTO 110 

300 SL=VAL(SS) 

310 IF SL<2 OR SL>SM THEN CLOSE l:GOTO 270 
320 PRINT HS 

330 PRINT"{2UP>JETZT BITTE DEN IEXT FUER £ 
CHLUESSEL{RVSON>";SL:PRINT H1S:INPUT«1 
,TS 

340 PRINT“{CLR,LEFT>“;HS:PRINT H1S,"{UP,2S 
PACE>ZWEITE ZEILE FUER AL{RVSON}“;SL 
350 INPUTS1,T1S 

360 PRINT HS;"<2UP>£REIS PRO EINHEIT(GOSUB 
LFM/QM)":INPUT«!,PS: CLOSE 1 
370 GOSUB 2630 
380 GOTO 250 

390 REM"**************************** 

400 REM"* TEXTDATEI AUF BILDSCHIRM * 

410 REM"**************************** 

420 GOSUB 2850 
430 PRINT CHRS(147) 


< 134> 
<214> 

< 159> 

<079> 

< 161 > 

< 152> 
<221 > 
< 000 > 
<130> 

< 142 > 
<09B> 

<099> 


<166> 

<176> 


<094> 


<232> 




:• . 


<051 > 


<055> 


<167> 

<036> 

<021 > 

< 212 > 

<132> 

< 167> 
<250> 

< 189> 

<033> 

<176> 

<01B> 

<233> 

< 194> 
<044> 


<028> 

< 194> 

< 165> 

<082> 

< 016 > 

< 142> 
<0B4> 
<234> 

< 104> 
<162> 
<205> 


440 FOR SL=A TO E 

450 GOSUB 2730 

460 IF AAS="LEER"THEN 500 

470 PS=MIDS(ACS,l,4)+“,“+MIDS(ACS,6,2> 

480 PRINT SL;TAB <5> AAS;TAB(46)LS;Z1S;PS;ZS 

490 PRINT TAB(4)ABS 

500 NEXT SL 

510 WAIT 198,1 

520 GOTO 110 

530 REM”*********************** 

540 REM"*{2SPACEJTEXTDATEI DRUCKEN{2SPACE> 
* 

550 REM"*********************** 

560 PRINT HS;” .SITTE WARTEN !!!" 

570 OPEN 1,4,7 

590 X=0:PRINT*1 ,CHRS (16) " 12“: " 5.cm.U£.5_5E_L. - 
UME* 

600 PRINT«1, CHRS (16) “12" ; " TTTTTTTTtTTTYTTT 

TT" 

604 PRINT«1,CHRS <16)"43";LS;PRINTW1 

610 GOSUB 2850 

620 FOR SL=A TO E 

630 GOSUB 2730 

640 IF AAS="LEER"THEN 6B0 

650 PS=MIDS(ACS,1,4)+","+MIDS(ACS,6,2) 

660 PRINT#1,SL CHRS<16)"05”AASCHRS(16)"47" 
PSZS 

67 £ miNT*l ,CHRS < 16) “05"; ABS 

680 NEXT SL 

690 CLOSE 1:GOTO 110 

700 REM"********************** 

710 REM"* TEXTDATEN AENDERN{2SPACEJ* 

720 REM"********************** 

730 PRINT HS 

740 INPUT".KORREKTUR : GIB SATZSCHLUESSEL 0 
DER "E' ";SLS:SL=VAL(SLS) 

750 IF SLS="E"THEN 110 

760 IF SL<2 OR SL>SM THEN 730 

770 GOSUB 2730 

780 PRINT CHRS(147) 

790 IF AAS="LEER"THEN 2920 
800 PS=ACS:TS="":T1S="" 

810 PRINT“ACHLUESSEL{4SPACE>=" ; SL 
820 PRINT AAS 
830 PRINT ABS 

840 PRINT"{DOWN>PREIS{8SPACE >=";ACS 
850 PRINT"{5D0WNJWELCHE BENDERUNG WOLLEN S 
IE VORNEHMEN{3SPACE1JEXT O. £REIS<2SPA 
CEJT/P/E " 

860 INPUT QS 

870 IF QS< >"T" AND QSO"P"AND QS< >"E"THEN 8 

50 

880 IF QS=“E"THEN 730 
890 IF QS="T"THEN 910 
900 IF QS="P"THEN 990 
910 PRINT HS;Z1S;AAS 

920 INPUT"{HOME,14D0WN,RIGHT>";TS:TS=LEFTS 
(TS,40) 

930 PRINT HS;Z1S;ABS 

940 INPUT“{HOME,14D0WN,RIGHT >";T1S:T1S=LEF 
TS(TIS,40) 

950 PRINT”{2UP>";TS;Z1S;T1S 
960 WA IT 198,1 
970 GOSUB 2610 
980 GOTO 730 

990 PRINT HS;Z1S;ACS:TS=AAS:T1S=ABS 
1000 INPUT“{HOME,14D0WN PS:PS=RIGHTS(PS, 
7) 

1010 PRINT"<UP>";AAS;ZIS;ABS;PS;ZS 


<091 > 
< 112 > 

< 131 > 
< 009 > 
< 226 > 
< 108 > 
< 094 > 
< 016 > 
< 212 > 
< 011 > 

< 173 > 
<031 > 
< 249 > 
<051 > 

< 162 > 

< 236 > 
< 070 > 
< 098 > 
< 017 > 
< 038 > 
< 125 > 
<191 > 

< 216 > 

< 009 > 

< 020 > 

< 169 > 
< 013 > 
< 250 > 
< 033 > 
< 200 > 

< 238 > 

< 136 > 
< 139 > 
<1B0> 
< 047 > 
< 246 > 
< 025 > 

< 153 > 
< 066 > 
< 092 > 
< 215 > 


<209> 

<068> 

<192> 
<217> 
<099> 
< 171 > 
<254> 

<077> 

<026> 

<021 > 
<005> 
<214> 
<044> 
<242> 
<015> 

<129> 

<207> 


Das Listing zum Rechnungshelfer. Beachten Sie bitte die Eingabehinweise auf Seite 6. 
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1020 

WAIT 198,1 

<018> 

1740 

PRINT#1,CHR*(16)“54";"IELEFQN: ";F 8 * <168> 

1030 

GOSUB 2610 

< 106> 

1750 

PRINT#1,"«SPACE>"A1* 

<116> 

1040 

GOTO 730 

<048> 

1760 

PRINT#1,"«SPACE>"A2* 

<127> 

1050 


<238> 

1770 

PRINT #1,“«SPACE>"A3* 

< 138> 

1060 

REM"* ANGEBOT ZUSAMMEN STELLEN * 

<234> 

1780 

PRINT#1,A4* 

<244> 

1070 

REM“****************************** 

< 002 > 

1830 

PRINT#1,CHR*(13)CHR*(10) 

<195> 

1080 

RRINT H*:Z=0:GS=0 

<236> 

1840 

PRINT#1,"AETRIFFT: ";A5* 

<015> 

1090 

INPUT"<2UP>SIND DIE FIRMENEIGENEN ANG 
ABEN110SPACE >GESPEICHERT J/N «SPACE}J 
<3LEFT>";QS 

<224> 

1850 

1860 

PRINT#1,CHR*(10)CHR*(10) 

PRINT#1,"ALS ANLAGE UEBERSENDE ICH 
NEN ";F9*;" ZUM O.G. 2EZUG.“ 

< 212 > 

JH 

< 000 > 

1100 

IF Q*< >"J"AND Q*< >"N"THEN 1090 

<059 > 

1870 

PRINT#1,CHR*(10)CHR*(10) 

<232> 

1110 

IF Q*="J"THEN 2400 

<062> 

1880 

PRINT#1," ARBEITSAUFWAND"; 

<021 > 

1 120 

INPUT"HAME IHRER LIRMA";Fl* 

<031 > 

1890 

PRINT#1,CHR*(16)"40”"£REIS STCK/QM/LF 

1 130 

INPUT“STRASSE{9SPACE)";F2* 

<204> 


M(5SPACE> SENGE C7SPACE>BESAMT“ 

<239> 

1140 

INPUT"HOHNORTI9SPACE >";F3* 

<240> 

1900 

FOR XX=1 TO B0:PRINT#5,CHR*(163) 5 sNEX 

1150 

INPUT“SERUFSZWEIG{5SPACE>“;F4* 

<229> 


T 

<040> 

1160 

I NPUT " IUDNTONUMMER«SPACE > " ; F5* 

<160> 

1910 

PRINT#1,CHR*(10) 

<077> 

1170 

INPUT"SANK <12SPACE>" ; F 6 * 

<241 > 

1920 

FOR X=1 TO Z 

<253> 

1180 

INPUT“2ANKLEITZAHL{4SPACE >“;F7* 

<165> 

1930 

IF C*(X,3)<>""THEN Z1=Z1+2:G0T0 308C 

< 109> 

1190 

INPUT“TELEFON NR.«SPACE1“;FBt 

<099> 

1940 

IF ZI=67 THEN:Z1=0:GOSUB 2540 

< 178> 

1200 

PRINT H* 

<162> 

1950 

IF Z1>67 THEN:Zl=l:GOSUB 2540 

< 1 B 8 > 

1210 

INPUT “HOLLEN SIE DIE E.IRMENDATEN SPEI 


1960 

PRINT#1,C*(X,1>:GOSUB 2500 

< 175> 


CHERN J/N";Q* 

<033> 

1970 

PRINT#1,C*(X,2):GOSUB 2500 

< 1B9> 

1220 

IF Q*<>"J"AND Q*<>"N“THEN 1200 

< 178> 

1990 

NEXT X 

<160> 

1230 

IF Q*="J"THEN 2300 

< 174> 

2000 

IF ZI>=60 THEN GOSUB 2540 

<025> 

1240 

INPUT"HATUM";FA* 

<129> 

2010 

PR INT#5 , TAB ( 68 ) " EEEEE.EEEAAEE" 

<028> 

1250 

PRINT“<DOWN> MEIN ANGEBOT/MEINE HECHN 


2020 

A=GS:GOSUB 2220 

<157> 


UNG’"sINPUT F9* 

<249> 

2030 

GS*=V1* 

< 156> 

1260 

PRINT H*;"<RVSON>flNGABEN ZUM JJJNDEN: C 


2040 

GZ=GS*0.14+0.005:GY=GZ+GS 

< 160> 


RVOFF>"sPRINT 

<227> 

2050 

A=GZ:GOSUB 2220 

<15B> 

1270 

INPUT”ANREDE ('HERRN £RAU £1RMA')";A1 


2060 

GZ*=V1* 

<244> 


»SPRINT 

<209> 

2070 

A= 6 YsGOSUB 2220 

< 146> 

1280 

INPUT"VORNAME HACHNAME";A2* 

<215> 

2080 

GY*=V1* 

< 111 > 

1290 

1NPUT"ST RASSE«SPACE>"|A3* 

<014> 

2090 

PRINT#1,TAB(67)GS* f Z* 

< 175> 

1300 

INPUT“HDHNORT«SPACE )»;A4* 

<051 > 

2100 


< 120 > 

1310 

INPUT"AETRIFFT s«SPACE5“;A5* 

<195> 

2110 

PRINT#1,TAB(56)"+ 147. HKS.T ";GZ*;Z* 

<161 > 

1320 

PRINT H*:PRINT"AUSAMMENSTELLEN DES AN 


2120 

PR I NT#5 , TAB (68 > " EEEEEEEEEEEE" 

< 140> 


GEBOTS SIB s"SPRINT 

<254> 

2130 

PRINT#1,TAB(67)GY*;Z* 

<239> 

1330 

PRINT”5CHLUESSEL 2-"!SM" 

< 198> 

2140 

PRINT#1,TAB( 68 )"============" 

< 125> 

1340 

PRINT“ IDOWN JiOMMENTAR C2SPACE>"K' " 

< 169> 

2150 

PRINT#l,“flIT FREUNDLICHEN BRUESSEN" 

< 22 B> 

1350 

PRINT"(DOWN}ARUCKEN(4SPACE) ' D ’ " 

<226> 

2160 

PRINT#1,CHR*(10)CHR*(10) 

< 012 > 

1360 

INPUT SL* 


- 

CLOSE IsCLOSE 5 

<153> 

1370 

IF SLS=“"THEN 1360 

PRINT H*: INPUT"HOLLEN BIE NOCH EINE! 


1380 

IF SL*=”D"THEN 1590 

< 112 > 


BRUCK J/N";Q* 

<208> 

1390 

IF SL*="K"THEN Z=Z+2:INPUT"KOMMENTAR" 


2190 

IF Q*< >"J"AND Q*< >"N“THEN 2180 

<125> 


;C*(Z+l,3)s C*(Z,3)=“"s GOTO 1320 

<075> 

2200 

IF Q*="J"THEN GOTO 1610 

<090> 

1400 

SL=VAL(SL*)sIF SL<2 OR SL>SM THEN 132 


2210 

GOTO 110 

< 122 > 


0 

< 171 > 

2220 

REM"******************************** <255> 

1410 

GOSUB 2730 

<056> 

2230 

REM"*AUFRUNDEN UND KOMMA EINFUEGEN 

* <214> 

1420 

IF AA*="LEER"THEN 1360 

<049> 

2240 

REM"******************************** < 019> 

1425 

PRINT AA*AB*"1 £INHEIT="AC*"Afl(DOWN>" 

< 191 > 

2250 

B=INT((A+0-005)*100) 

< 168> 

1430 

IF Z>300 THEN PRINT"iEINE WEITEREN AI 


2260 

V2*=" C7SPACE>“+STR*(B) 

< 118> 


NGABEN MOEGLICH":GOTO 1360 

< 120 > 

2270 

V2*=RIGHT*(V2*,9) 

<089> 

1440 

INPUT"ANZAHL AN AINHEITEN"jM* 

<145> 

2280 

Vl*=MID*(V2*,l,7)+","+MID*<V2*,8,2> 

< 000 > 

1450 

IF M*< “ 1 "OR M*V9“THEN 1440 

<056> 

2290 

RETURN 

<060> 

1460 

Z=Z+1:M=VAL(M*) 

<203> 

2300 

CLOSE 3 

<039> 

1470 

P=VAL(AC*)s PS=P*M 

< 01 B> 

2305 

OPEN 4,8,2,"@:FIRMENDATEN,S,W” 

<211 > 

1480 

GS=G5+PS 

< 187> 

2310 

PRINT#4,F1* 

<003> 

1490 

C*(Z,1> =AA*+"«SPACE >” 

<071 > 

2320 

PRINT#4,F2* 

<077> 

1500 

P*=MID*(AC*,l,4)+“,"+MID*(AC*,6,2> 

<023> 

2330 

PRINT#4,F3* 

< 151 > 

1510 

C* (Z , 1)=C*IZ,1>+ "«SPACE >"+P* 

<142> 

2340 

PRINT#4,F4* 

<226> 

1520 

A=M:GOSUB 2220 

<129> 

2350 

PRINT#4,F5* 

<044> 

1530 

C*(Z,1)=C*(Z,1)+V1* 

< 112 > 

2360 

PRINT#4,F6* 

< 118> 

1540 

A=PSsGOSUB 2220 

<076> 

2370 

PRINT#4,F7* 

< 192> 

1550 

C$(Z,i) “CS < 2,1 } +Vl*-*-Z# 

< 131 > 

23B0 

PRINT4I4 t F 8 t 

<01 1 > 

1560 

C*(Z,2)=AB* 

<042> 

2390 

CLOSE 4 

< 139> 

1570 

GOTO 1320 

<098> 

2396 

OPEN 3,8,2,"TEXTDATEN,L,"+CHR*( 88 ):GO 

1580 

REM"************************ 

<126> 


TO 1240 

< 160> 

1590 

REM"* ANGEBOTE AUSDRUCKEN«SPACE>* 

<014> 

2400 

OPEN 4,8,3,"FIRMENDATEN,S,R" 

<065> 

1600 


<146> 

2410 

INPUT#4,F1* 

<023> 

1610 

Zl=28:1=1 

< 0 B 6 > 

2420 

INPUT#4,F2* 

<097> 

1620 

OPEN 1,4,7 

<085 > 

2430 

INPUT#4,F3* 

< 171 > 

1630 

OPEN 5,4,0 

<252> 

2440 

INPUT#4,F4* 

<246> 

1640 

PRINT CHR*(10) 

<096> 

2450 

INPUT#4,F5* 

<064> 

1650 

PRINT# 1,CHR*(16)"04";F1*;CHR*(16)"54“ 


2460 

INPUT#4,F6* 

<138> 


;F2* 

< 192> 

2470 

INPUT#4,F7* 

< 212 > 

1660 

PRINT#1,CHR*(16)"54“;F3* 

< 123> 

2480 

INPUT#4,F8* 

<031> 

1670 

PRINT#i,CHR*(14);F4*;CHR*(15): 

<079> 

2490 

CLOSE 4:GOTO 1240 

< 18B> 

1680 

PRINT#1,CHR*(16)"54";"DEN, ";FA* 

<072> 

2500 

Z1=Z1+1 

<016> 

1690 

PRINT#1,CHR*(10) 

< 111 > 

2510 

IF Z1< =66 THEN RETURN 

<239> 

1700 

PRINT#1,CHR*(16)"54";"4T0.HR.s ";F5* 

<177> 

2520 

ZI =3 

< 109> 

1710 

PRINT#1,CHRS(16)"54";"BELDINSTITUT s 


2540 

FOR Q=1 TO 6 

<035> 


" 

<23B> 

2550 

PRINT#1,CHR*(10) 

<209> 

1720 

PRINT#1,CHR*(16)"54";F6* 

<186> 

2560 

NEXT Q 

<168> 

1730 

PRINT#1,CHR*(16)"54";"AANKLEITZAHL s 


2570 

1=1+1 

<013> 


";F7* 

<169> 

2580 

PRINT#1,CHR*(16)"35";"- -■ 

< 136> 


rf'i 


.de 

e.uet 


80 
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2590 

PRINT#1,CHRS<10> 

<251 > 

2880 

IF A<2 OR A>SM THEN 2870 

< 179> 

2600 

RETURN 

< 11 B> 

2890 

INPUT"<UP>SIS ZU SCHLUESSEL";E 

<174> 

2610 

REM“************************* 

<046> 

2900 

IF E<2 OR A>SM THEN 2890 

< 104> 

2620 

REM"* TEXTDATEN SPEICHERN(3SPACE >* 

<080> 

2910 

RETURN 

<174> 

2630 

REM“************************* 

<066> 

2920 

PRINT HS;"DATENSATZ NICHT VORHANDEN": 


2640 

HB=INT(SL/256) 

<203> 


FOR X=1 TO 1000:NEXT:GOTO 730 

<226> 

2650 

LB=SL-HB*256 

< 0 B 6 > 

2930 

REM"****************************** 

< 210 > 

2660 

T*=TS+FF*:TS=LEFTS < TS,40 > 

<093> 

2940 

REM"*TEX TDATEI EINRICHTEN/ERWEIT.* 

<197> 

2670 

T1S=T1S+FFS:T1S=LEFT* < T1*,40) 

<074> 

2950 

REM"****************************** 

<230> 

2680 

PS=FFS+PS:P*=RIGHTS t PS,7) 

<153> 

2960 

PRINT HS: PRINT "WIEVIEL JLAETZE SOLL DI 


2690 

RCS=T$+T1S+PS 

<172> 


E 2ATEI ENTHALTEN " 

<041 > 

2700 

PRINT#2,"P"+CHRS<2)+CHRS <LB>+CHRS(HB) 


2970 

INPUT"ODER ENDE - E' ";SMS 

< 020 > 


+CHRS(1> 

<167> 

2980 

IF SMS="E"THEN 110 

<096> 

2710 

PRINT#3,RC* 

< 147> 

2990 

SM=VAL(SMS) 

<074> 

2720 

RETURN 

<23B> 

3000 

IF SM<2 OR SM>1B00 THEN 2960 

< 101 > 

2730 

REM " ***************-****♦** 

< 011 > 

3010 

HB=INT(SM/256) 

<064> 

2740 

REM“* C2SPACE)TEXTDATEN LESEN T3SPACE}* 

< 124 > 

3020 

LB=SM-HB*256 

<010> 

2750 

REM"********************** 

<031 > 

3030 

PRINTH2,"P”+CHRS(2)+CHRS(LB)+CHRS(HB) 


2760 

HB=INT(SL/256) 

<067> 


+CHRS(1) 

<243> 

2770 

LB=SL-HB*256 

<206> 

3040 

PRINT#3,CHRS(255> 

<017> 

2780 

PR I NT#2 , P " +CHRS (2) +CHRS (LB) +CHRS (HB) 


3050 

PRINT#2,"P"+CHRS(2)+CHRS(01)+CHRS(0)+ 



+CHRS(1) 

<247 > 


CHRS(1) 

<020 > 

2790 

INPUT#3,RC* 

<147> 

3060 

PR1NT#3,SM 

< 132> 

2 B 00 

IF ASC(RCS> =255 THEN AA*="LEER":RETUR 


3070 

GOTO 110 

< 220 > 


N 

< 183> 

3080 

PRINT41,CS(X,3) 

<023> 

2810 

AAS=MIDS(RCS,1,40) 

<042 > 

3090 

ZZ=LEN(CS(X,3)) 

< 139> 

2820 

ABS=M1DS(RCS,41,40> 

< 104> 

3100 

FOR Y=1 TO ZZ 

<005> 

2830 

ACS=MIDS(RCS,81,7) 

<226> 

3110 

PRINT#5,CHRS(163); 

<190> 

2840 

RETURN 

< 104> 

3120 

NEXT Y 

<028> 

2850 

REM"**** EINGABELIMIT ****** 

<216> 

3130 

PRINTttl,CHRS(141) 

<211> 

2860 

PRINT HS 

<044 > 

3140 

GOTO 1990 

<209> 

2870 

INPUT"lUPJfiB 5CHLUESSEL:“;A 

<0B4> 
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Das Listing zum Rechnungshelfer (Schluß). Beachten Sie bitte die Eingabehinweise auf Seite 6. 
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97 
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62 
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99 

0/64 

FunV*:onon 

Kudlplo «ul für den C 64 (Xurvendmusstonl 

01 
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Roland DXY-tOl - ein Flacbb«ttplon«r un 

27 

10/44 


DIN A3 Fotrrai 
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49 
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48 
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137 
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37 
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90 
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44 
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LOtiung von Tho BUde of Blackpool 

>4 

10/84 
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48 
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46 
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4H 
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46 
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49 
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37 
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109 
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Flipper 
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schaft 
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34 
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A*»mWw im Tört Mastercode. Proßnui ProSaoft 
Maschine H 

30 
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32 
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28 
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18 
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34 
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Terminal 64 - Schwer auf Draht 

24 
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in 
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26 
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40 
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39 
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42 

12/84 
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26 
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24 
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43 

12/84 
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29 
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W 
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40 
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34 
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33 
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43 
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39 
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«7 
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G3 
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54 
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Paeeal - Lnnrungdähiaor und »legaiuei als Basic 

44 
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TIPS STRICKS 

0- Programm-Sonderheft) 
Eine wahro Fundgrube an 
Ideen und Programmen 
für Computer-Profis und 
alle, die es werden 
wollen. 

BESTELLCODE: Tips&Tips 




ABENTEUERS PIEIE 

(2. Programm-Sonderheft) 
Auf mehr als 100 Seiten 
viele interessante Advon- 
tures, die Sie lange Zeit 
fesseln werden. Mit ab¬ 
geschlossenem Kurs zur 
Programmierung eigener 

Abenteuerapiele und zahl¬ 
reichen Lösungen profes¬ 
sioneller Adventures. 
BESTELLCODE: 
Äbenteuerspiele 


SPIELE 

(3. Programm-Sonderheft) 
HeiBe Lrstings für alle 
Spiolo-Fans: Sportspiele. 
Schießspiele, Denkspiele, 
Spielegeneratoron, Aben¬ 
teuerspiele. Brettspiele 
Taktikspiele. Geschick¬ 
lichkeitsspiele und eine 
Maiktilbersicht aller in 
Deutschland erhältlichen 
professionellen Spiele 
bringen alles, was das 
Herz der Spiete-fhns 
höher schlagen läßt 

BESTELLCODE: Spiele 




GRAFIK «DRUCKER 

(4. Programm-Sonderheft) 
Band voll mit Informadonen: 
Rund 28 Listings der Spit¬ 
zenklasse. Darunter Tbp- 
Listings zur räumlichen 
Darstellung von Körpern 
aus beliebigen Betrach- 
tungsrichmngen. 

Weiters: Priifsummenli- 
stings, Drucker-Anwen¬ 
dung, Basic-Erweiterung, 
Hardcopy-Routinen, Zei¬ 
chengenerator, Grundla¬ 
gen, Tips «Tricks. 
BESTELLCODE: 

Grafik & Drucker 


on 

FlOPPY/DATASETTE 

(5. Programm-Sonderheft) 

Alles zum Thema Massen¬ 
speicher. So stellt man die 
Datasette oin. FMON 1541: 
Das Werkzeug für werden¬ 
de Floppy-Spezialisten. 
Disk-Basic 64: Ffcst 50 neue 
Befehle für komfortablen 
Floppy-Betrieb. Turbo Tape 
de Luxe: Datasette lOmal 
schneller als Floppy 1541. 
5fach ochnellor laden mit 
Hypra-Copy. 
BESTELLCODE: Floppy 




Am besten 



gleich mitbestellen: 
Die 64'er-Sammelbox 


Für alle Leser, die »64’er« regelmä¬ 
ßig kaufen, sammeln oder im 
Abonnement beziehen, gibt es 
jetzt ein interessantes Service-An¬ 
gebot: die 64’er-5ammelbox! 


Mit dieser Sammelbox bringen 
Sie nicht nur Ordnung in Ihre 
wertvollen Hefte, sondern schaf¬ 
fen sich gleichzeitig ein interes¬ 
santes und attraktives Nachschla¬ 
gewerk. 


Übrigens: Die Sammelbox ist 
nicht nur ein praktisches 
Aufbewahrungsmittel: Sie 
eignet sich auch her¬ 
vorragend als Ge¬ 
schenk für Freun¬ 
de und Bekannte 
zu vielen 
Anlässen. 


64cf-onllne.de 

64er-online.net 
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Datei total 

Database ist eine komfortable Datei- 
verwaitung für den C 64 mit einigen 
außergewöhnlichen Leistungsmerk¬ 
malen. Nahezu beliebige Datenfeld- 
und Datensatzlängen, Formatier- und 
Rechenfunktionen sind nur einige 
Stichworte. Ein Programm, das zu 
besitzen sich lohnt. 

Ein Wort zu Anfang: Sie werden zu Database kein Listing in 
diesem Heft finden. Dies hat folgenden Grund: Das Programm 
besteht aus insgesamt elf Einzelprogrammen, die zusammen 
25 (in Worten: fünfundzwanzig!) Seiten Listing ergeben wür¬ 
den. Wir waren der Meinung, daß dies zum Abtippen nicht 
zumutbar ist. Darum ist Database nur auf der Leser- 
service-Diskette zu diesem Heft erhältlich. 

Das Programm besteht aus insgesamt drei Hauptteilen: Den 
beiden Ladeprogrammen, dem Teil »Neue Datei entwickeln« 
und dem Teil »Datenpflege«, die aus speicherplatztechni¬ 
schen Gründen als Einzelprogramme vorliegen (ein vierter 
Teil, die sogenannten »Sonderfunktionen«, kann von Ihnen 
gegebenenfalls ergänzt werden. Dieses Zusatzprogramm 
muß nur zwei Bedingungen erfüllen: Es muß sich um ein 
Basic-Programm handeln und unter dem Namen »Soft« auf 
Diskette gespeichert sein.). 

Wenn Sie LOAD "DBL",8,1 eingeben, wird das Lade- 
Programm eingeladen und automatisch gestartet, innerhalb 
dieses Lade-Programms können Sie durch Drücken der ent¬ 
sprechenden Taste den von Ihnen gewünschten Programm¬ 
teil laden und ebenfalls automatisch starten. 

Entwicklung einer neuen Datei 

Zunächst ein paar allgemeine Anmerkungen: 

Die Hauptmenüs der beiden Programmteile »Neue Datei ent¬ 
wickeln« und »Datenpflege« bestehen aus jeweils zwei Sei¬ 
ten. Durch Drücken der »RETURN«-Taste kann auf die jeweils 
andere Seite umgeschalten werden. Zum Aufruf der einzel¬ 
nen Untermenüs dienen die Funktionstasten »Fl« - »F8*. Aus 
allen Untermenüs kommen Sie mit »SHIFT« + »RETURN« wie¬ 
der ins Hauptmenü zurück. (Wenn Sie also einmal eine Pro¬ 
grammfunktion aus Versehen aufgerufen haben, einfach 
»SHIFT« + »RETURN« drücken und Sie befinden sich wieder 
an der Aufrufstelle.) Mit Ausnahme der Definition der Eingabe¬ 
maske einer Datei müssen alle Eingaben (zum Beispiel Datei¬ 
namen) mit »RETURN« abgeschlossen werden! 

Sie sehen, die Bedienung von Database ist wirklich sehr ein¬ 
fach. Eine Übersicht über alle Programmfunktionen und 
deren Aufrufmöglichkeiten finden Sie übrigens in Bild 1. 

Database ist eine Dateiverwaltung. Was das genau heißt, 
soll im folgenden kurz erläutert werden. Zunächst zum Begriff 
Datei. Eine Datei können Sie sich vorstellen als »elektroni¬ 
schen Karteikasten« mit vielen gleichartigen »Karteikarten«. 
Einer »Karteikarte« entspricht dabei ein sogenannter »Daten¬ 
satz« der Datei. Jeder Datensatz unterteilt sich wiederum in 
verschiedene »Datenfelder«; den einzelnen Eintragungen auf 
der »Karteikarte«. 

Eine Dateiverwaltung wie Database ist ein Programm, mit 
dem Sie beliebige Arten von Dateien verwalten können. Im 
Gegensatz zu zum Beispiel einer Adressenverwaltung, bei 
der über ein vorgegebenes Eingabeschema (zum Beispiel 
»Name«, »Vorname«, »Strasse«, »Wohnort«, etc.) eben nur 
Adressen eingegeben werden können, sind Sie bei Database 


in der Wahl des Eingabeschemas (der sogenannten 
»Eingabe-« oder »Dateimaske«) völlig frei, das heißt, Sie kön¬ 
nen die Bereiche (die sogenannten »Datenfelder«), in die 
später Daten eingegeben werden sollen, an beliebigen Posi¬ 
tionen auf dem Bildschirm verteilen. Darüber hinaus kann 
sich die Eingabemaske über insgesamt fünf (!) Bildschirmsei¬ 
ten erstrecken. Und natürlich können Sie das Ganze mit 
beliebigen Kommentaren und »Verzierungen« versehen. 
Dafür steht Ihnen der gesamte Zeichensatz des Computers 
zur Verfügung. 

Nachdem die Grundbegriffe geklärt sind, kommen wir zur 
Praxis: Um eine neue Datei zu entwickeln, müssen Sie Teil 1 
von Database einladen (im Lademenü »Fl« drücken). Über 
den Menüpunkt »Bildschirmmaske entwerfen« (siehe Bild 1) 
kommen Sie in die Eingabemaskendefinition. Der Cursor 
blinkt jetzt am Anfang der 2. Bildschirmzeile. Für die Entwick¬ 
lung der Eingabemaske stehen Ihnen die 2. - 22. Bildschirm¬ 
zeile (künftig »Dateiseite« genannt) zur Verfügung. In diesem 
Bereich kann der Cursor mit den üblichen Tasten frei bewegt 
werden. Wie schon gesagt, kann die Eingabemaske auf bis 
zu fünf Seiten verteilt werden. Dazu können Sie mit »F5« auf 
die jeweils nächste, mit »F7« auf die jeweils vorherige Seite 
»umschalten«. Mit »F8« kann durch Angabe der Nummer der 
gewünschten Seite und anschließendem »RETURN« eine 
Seite direkt aufgerufen werden (also zum Beispiel von Seite 
1 auf Seite 5 umgeschalten werden). Zusätzlich zu diesen 
Befehlen gibt es noch eine Reihe weiterer Kommandos, die 
die Entwicklung der Eingabemaske komfortabler und leichter 
machen. Eine Zusammenfassung dieser Editorbefehle fin¬ 
den Sie in Bild 3. 

Im folgenden wird auf den wohl wichtigsten Befehl - nämlich 
den zur Definition eines Datenfeldes - ausführlich ein¬ 
gegangen. 

a) Datenfeld einrichten 

Wie .Schon erwähnt, kann ein Datenfeld an beliebiger Stelle 
innerhalb einer Dateiseite auf dem Bildschirm positioniert 
werden. Dazu müssen Sie als erstes den Cursor auf den 
gewünschten Feldanfang positionieren und danach die »F6«- 
Taste drücken. An der Position des Cursors erscheint jetzt 
das »kleiner«-Zeichen (<) zur Kennzeichnung des Feldan¬ 
fangs. 

Eine Stelle weiter wird der Feldtyp festgehalten. Insgesamt 
stehen fünf Typen zur Auswahl (nähere Informationen dazu 
etwas weiter unten): 

T : Textfeld 
S : Schlüsselfeld 
D : Datumsfeld 
N : numerisches Feld 
E : Rechenfeld 

Festlegen können Sie den Feldtyp ganz einfach dadurch, 
daß Sie die entsprechende Taste (also T, S, D, N oder E) 
drücken. Rechts neben dem Feldtyp befindet sich das »grö- 
ßer«-Zeichen (>) zur Kennzeichnung des Feldendes. Dieses 
Feldende können Sie mit »CRSR RIGHT« nach rechts und mit 
»CRSR LEFT« nach links verschieben. Die aktuelle Feldlänge 
wird dabei in der oberen Bildschirmzeile rechts angezeigt. 
Hat das Feld seine gewünschte Länge erreicht, drücken Sie 
»RETURN«, Das Feld ist nun eingerichtet. 

b) Die Feldtypen: 

1. Der in der Regel wohl am meisten verwendete Feldtyp ist 
das Textfeld (T). Eingaben in ein solches Feld werden genau 
so übernommen, wie Sie sie eingeben, das heißt, am Feld¬ 
inhalt werden keinerlei Veränderungen vorgenommen. Natür¬ 
lich können in ein Textfeld Zahlen oder Texte und Zahlen 
gemischt eingegeben werden. Zur Feldlänge: Ein Textfeld 
kann sich maximal über eine gesamte Dateiseite erstrecken 
und hat dann eine Länge von immerhin 838 Byte! 

2. Zu jeder Datei gehört genau ein Schlüsselfeld (S). Das 
Schlüsselfeld entspricht, was die Behandlung der eingege- 
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benen Daten und die Feldlänge betrifft, dem Textfeld. In 
Bezug auf die Organisation des Datenbestandes einer Datei 
kommt ihm aber eine spezielle Bedeutung zu: Zu jeder von 
Ihnen definierten Datei wird eine Schlüssel- oder Indexdatei 
angelegt, die die Schlüssel, das heißt, die Inhalte des Schlüs¬ 
selfeldes, und die Position aller Datensätze innerhalb der rela¬ 
tiven Hauptdatei enthält. Über diese Schlüsseldatei, die spä¬ 
ter bei der Datenpflege immer vollständig in den Computer 
geladen wird, ist ein sehr schneller Zugriff auf jeden beliebi¬ 
gen Datensatz der Datei möglich. 

Um nun einerseits die Maximalanzahl der Datensätze mög¬ 
lichst groß und andererseits die Länge des Indexfeldes nach 
Möglichkeit beliebig zu halten, wird nicht der gesamte Inhalt 
des Schlüsselfeldes, sondern nur ein von Ihnen anzugeben¬ 
der Teil des Feldes als Datensatzschlüssel übernommen. 
Diese »Anzahl der relevanten Stellen des Schlüsselfeldes« 
wird bei der Übernahme der Eingabemaske (durch den 
Menüpunkt »Datei einrichten«) abgefragt. Ein Beispiel: Ange¬ 
nommen, Sie haben ein 50 Byte langes Schlüsselfeld defi¬ 
niert und geben als relevante Stellen »3« an, dann werden bei 


der Dateneingabe nur die ersten drei Zeichen des Schlüssel¬ 
feldes als Schlüssel übernommen. 

3. Das Datumsfeld (D) nimmt eine Sonderstellung ein. Es 
hat eine feste Länge von 13 Byte und dient - wie der Name 
schon sagt - zur komfortablen Eingabe eines Datums. Dieses 
muß in folgender Form eingegeben werden: »TT.MM.JJJJ« 
(zum Beispiel »01.11.1983«). Wird ein falsches Datum ange¬ 
geben (zum Beispiel. »35.13.1980«), dann wird im hinteren 
Teil des Feldes die Meldung »/F!« ausgegeben. Ist das Datum 
korrekt, wird der zugehörige Wochentag berechnet und 
durch »/« getrennt hinter dem Datum ausgegeben. 

4. Das numerische Feld oder Zahlenfeld (N): Ein kleines 
Beispiel soll Sinn und Zweck dieses Feldtyps erläutern. 
Angenommen, Sie haben ein Feld, in das bis zu vierstellige 
Geldbeträge in der üblichen Form (also mit zwei Nachkomma¬ 
stellen) eingegeben werden sollen. Natürlich können Sie die¬ 
ses Feld auch als Textfeld definieren. Wollen Sie aber sicher¬ 
stellen, daß die eingegebenen (beziehungsweise gespei¬ 
cherten) Zahlen auch tatsächlich das gewünschte Format (in 
diesem Fall also vier Vorkomma- und zwei Nachkommastel- 
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Bild 1. Die Auswahl-Menüs. Von den grau unterlegten Punkten aus können Sie »Helpscreens« aufrufen. 
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len) aufweisen, dann definieren Sie das Feld als Zahlenfeld 
und geben eine entsprechende Formatiervorschrift ein. 
Diese Vorschrift kann allerdings nicht direkt bei der Definition 
der Eingabemaske angegeben werden, sondern die Eingabe 
muß über den Menüpunkt »Datei einrichten« erfolgen (nähere 
Informationen dazu daher etwas weiter unten). Zunächst 
kommen wir zum letzten und wohl interessantesten Feldtyp, 
dem Rechenfeld. 

5. Das Rechenfeld (E): Dieser Feldtyp bietet Ihnen die Mög¬ 
lichkeit, Berechnungen innerhalb eines Datensatzes durch¬ 
führen zu lassen, das heißt, es können beliebige Felder eines 
Datensatzes - egal ob Text-/Schlüssel-/Zahlen- oder selbst 
Rechenfeld - rechnerisch miteinander verknüpft werden. 
Das Ergebnis der Berechnung wird dann in dem entspre¬ 
chenden Rechenfeld abgelegt. Auch hier muß die Eingabe 
der notwendigen Rechenvorschrift über den Menüpunkt 
»Datei einrichten« erfolgen. An dieser Stelle daher nur noch 
ein paar Worte zur Länge der Rechenfelder (und auch der 
Zahlenfelder): Weder bei den Rechen- noch bei den Zahlen¬ 
feldern wird die Länge der Felder kontrolliert. Natürlich sind 
aber nur Feldlängen (beziehungsweise Förmatiervorschrif- 
ten) sinnvoll, die innerhalb des Rechenbereichs beziehungs¬ 
weise der Rechengenauigkeit des Computers liegen, 
c) Datei (auf Diskette) einrichten: 

Wenn Sie mit der Definition der Eingabemaske fertig sind, 
drücken Sie »SHIFT« 4- »RETURN« und - im Hauptmenü 
angekommen - die »F7«-Taste. Dadurch beginnt die »Über¬ 
nahme» der Eingabemaske durch das Programm (die Daten¬ 
feldanfänge und -enden werden ermittelt, die Feldtypen fest¬ 
gestellt und so weiter) und die Einrichtung der Datei auf Dis¬ 
kette. 

Haben Sie Rechen- oder Zahlenfelder definiert, dann wer¬ 
den Sie hier automatisch aufgefordert die zugehörigen Vor¬ 
schriften einzugeben. Das gerade bearbeitete Feld wird 
dabei durch revers dargestellte Feldbegrenzungen gekenn¬ 
zeichnet: 

Zuerst müssen Sie die Formatiervorschriften für die Zahlen¬ 
felder und die Rechenfelder (!), die ja auch Zahlen als Ergeb¬ 
nis der durchgeführten Berechnungen enthalten, eingeben. 
Dazu setzen Sie einfach in den beiden im unteren Bildschirm¬ 
bereich befindlichen, revers dargestellten Bildschirmzeilen 
den Punkt (».«) an die Stelle, an der er später im Zahlenfeld 
(beziehungsweise Rechenfeld) stehen soll. Die anderen 
Stellen können Sie - nur als Hilfe - mit irgendeinem anderen 
Zeichen auffüllen. Registriert wird auf jeden Fall nur der 
Punkt. Damit die so definierte Vorschrift übernommen wird, 
müssen Sie »RETURN« drücken. (Im weiter oben erwähnten 
Beispiel mit dem vierstelligen Geldbetrag sähe die Vorschrift 
also zum Beispiel so aus: »1111.11«.) Kommen auch negative 
Zahlen vor, muß für das Vorzeichen eine zusätzliche Vor¬ 
kommastelle reserviert werden. (Im Beispiel: »11111.11«) 

Nachdem Sie alle Formatiervorschriften auf diese Weise 
eingegeben haben, müssen Sie die Rechenvorschriften ein¬ 
geben. Zur Erleichterung der Eingabe sind alle Datenfelder - 
am Bildschirm sichtbar - fortlaufend durchnumeriert. Außer¬ 
dem kann mit »F5« (vorblättern) und »F7« (zurückblättern) die 
Dateimaske »durchgeblättert« werden. Das ist sehr nützlich, 
wenn Sie zum Beispiel eine dreiseitige »Karteikarte« ent¬ 
wickelt haben und in die Berechnung für ein Rechenfeld auf 
Seite 3 verschiedene Datenfelder der Seiten 1 und 2 einbe¬ 
ziehen wollen. Mit »F5« können Sie dann auf die Seite 1 
beziehungsweise 2 umschalten, um so die laufende Nummer 
der betreffenden Felder zu ermitteln. In die Berechnung ein¬ 
bezogen wird ein Feld jetzt einfach durch Angabe von »F 
(Feldnummer)« (zum Beispiel F(1) für Feld 1, F(2) für Feld 2 
und so weiter). Die Berechnungsformel wird - wie die Förma- 
tierungsvorschrift - in die beiden revers dargestellten Bild¬ 
schirmzeilen im unteren Bildschirmbereich eingegeben und 
darf maximal 72 Byte lang sein. An Formelelementen sind alle 
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von Basic gewohnten Rechenoperatoren und -funktionen 
zugelassen (also auch SQR, LOG, SIN und so weiter). 

Zwei Beispiele: 

F(1)+F(9) weist dem betreffenden Rechenfeld die 

Summe aus dem Inhalt von Feld 1 und 
Feld 9 zu. 

F(2)+F(3)*F(17) weist dem betreffenden Rechenfeld den 
Inhalt des Feldes 2 + das Produkt aus 
Feld 3 und Feld 17 zu. 

Natürlich kann es bei der Eingabe der Rechenvorschriften 
sehr leicht zu einer Fehleingabe kommen. Da diese in den 
allermeisten Fällen (bei der Datenpflege) zu einem Pro¬ 
grammabbruch führt, werden Sie vom Programm vor der 
ersten Vorschriftseingabe gefragt, ob eine Syntaxkontrolle 
durchgeführt werden soll. Beantworten Sie die Frage mit »ja«, 
wird jede Eingabe auf korrekte Syntax untersucht und gege¬ 
benenfalls auf einen Fehler aufmerksam gemacht. Natürlich 
können aber von dieser Kontrollroutine nicht alle Fehler 
erkannt werden. Daher sollten Sie von vorneherein bei der 
Eingabe sehr sorgfältig sein und insbesondere auch auf mög¬ 
liche Bereichsüberschreitungen (negative Zahlen bei Wur¬ 
zeln, 0 bei der Division) achten, da es dadurch ebenfalls zu 
einem Programmabbruch kommt. 

Nach Eingabe aller Formatier- und Rechenvorschriften sind 
noch einige Angaben erforderlich, bevor die Datei auf Dis¬ 
kette eingerichtet werden kann: 

Zuerst werden Sie nach dem gewünschten Namen der 
Datei gefragt, der maximal 14 Zeichen lang sein darf. Beant¬ 
worten Sie die nachfolgende Frage nach dem Zeichensatz 
mit »ja«, wird der im Computer befindliche (eventuell geän¬ 
derte) Zeichensatz (nähere Informationen dazu weiter unten) 
unter dem Namen der Datei gespeichert und später (bei der 
»Datenpflege«) automatisch mit der Datei eingeladen. Beant¬ 
worter, Sie die Frage mit »nein«, werden Sie gefragt, ob Sie 
einen anderen Zeichensatz verwenden wollen, dessen 
Namen Sie gegebenenfalls eingeben müssen. Angenom¬ 
men, Sie haben einen deutschen Zeichensatz entwickelt, 
den Sie in verschiedenen Dateien verwenden wollen. Dann 
wäre es natürlich wenig sinnvoll und würde unnötig Disket¬ 
tenkapazität kosten, wenn der Zeichensatz zu jeder Datei 
extra gespeichert würde. Daher haben Sie die Möglichkeit, 
den Namen eines beliebigen, auf der Diskette gespeicherten 
Zeichensatzes anzugeben, der dann bei der »Datenpflege* 
ebenfalls automatisch mit der Datei geladen wird. , 

Zuletzt werden Sie nach der (bei der Besprechung des 
Schlüsselfeldes schon erwähnten) »Anzahl der relevanten 
Stellen des Schlüsselfeldes« gefragt. Nochmal zur Erinne¬ 
rung: Später bei der Dateneingabe werden nur soviel Stellen 


2 

Zwischenspeicher für diverse Zwecke 

251 - 254 

Zwischenspeicher für diverse Zwecke 

1024- 2047 

Video-RAM (Bildschirm 1) 

2048-40148 

Basic-Speicher 

40149-40247 

MP zur Berechnung der Datenfeldpositionen 

40248 - 40959 

Bildschirmmaskengenerator 1 

40960 - 45159 

Zwischenspeicher für Dateimaske 

50176 - 51175 

Video-RAM (Bildschirm 2) 

51176-52565 

diverse Hilfsprogramme 

52566 - 52573 

Zwischenspeicher für Helpscreens (Farben) 

52574 - 52833 

Eingaberoutine für Helpscreens und Dateimasken¬ 
definition 

52834 - 53027 

MP für scrolling nach oben 

53028 - 53223 

MP für scrolling nach unten 

57344-61439 

Zeichengenerator II 

61440-62283 

Zwischenspeicher für Helpscreen 1 

62284-63127 

Zwischenspeicher für Helpscreen 2 


Tabelle 1. Die Speicherbelegung durch DBI 
(Teil 1: Neue Datei entwickeln) 
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des Schlüsselfeldes als Schlüssel übernommen, wie Sie hier 
angeben. Die kleinste Anzahl ist dabei 1, die größte 30, wobei 
zu beachten ist: Je kleiner Sie die Schlüssel wählen, desto 
mehr Datensätze können Sie in einer Datei unterbringen! Die 
Maximalanzahl MD der Datensätze errechnet sich nach fol¬ 
gender Formel: MD=INT(2250/(AS+3)); wobei AS die 
Länge der Schlüssel ist. Bei einer Schlüssellänge von drei 
Byte, was bei einer Adreßdatei mit dem Nachnamen als 
Schlüsselfeld vollauf genügt, können Sie also immerhin 375 
Datensätze in der betreffenden Datei unterbringen. Im übri¬ 
gen ist es unerheblich, wenn ein Schlüssel in einer Datei 
mehrfach vorkommt. Bei der Datenausgabe wird darauf 
durch eine entsprechende Meldung hingewiesen. 

Nach dieser letzten Information dauert es geraume Zeit, bis 
die Datei auf Diskette eingerichtet ist. Am Ende kehrt das Pro¬ 
gramm wieder ins Hauptmenü zurück. Zuvor wird allerdings 
gefragt, ob Sie mit der Dateimaske Weiterarbeiten wollen. 
Antworten Sie mit »ja«, bleibt die Eingabemaske im Computer 
erhalten und kann für die Entwicklung weiterer Daten benutzt 
werden. Bei einem »nein« wird der Eingabemaskenspeicher 
im Rechner gelöscht. 

Um das bisher Gesagte zu verdeutlichen, soll an einem 
praktischen Beispiel - einer kleinen Rechnungsverwaltung - 
die Entwicklung einer Datei demonstriert werden. Sehen Sie 
sich dazu bitte Bild 4 an: Links oben sehen Sie die Eingabe¬ 
maske so, wie Sie sie bei der Definition eingeben müssen. 
Dabei dürfte es wohl keine Schwierigkeiten geben. Als 
Schlüsselfeld wurde das Feld »Lieferant« gewählt. Die Felder 
»Artikelnummer« (Art.Nr.), »Einzelpreis« (EP) und »Anzahl« 
(ANZ) sind numerische Felder. Bei den Feldern »Gesamt¬ 
preis« (GP), »Gesamtsumme«, »Mehrwertsteuer« und »Rech¬ 
nungsbetrag« handelt es sich um Rechenfelder. Das »Tele¬ 
fons-Feld wurde, da es auch nichtnumerische Zeichen ent¬ 
hält (»/« beziehungsweise 


2 - 2047 

entspricht Tabelle 1 

2048 - 39484 

Basic-Speicher 

39485 - 40959 

Bildschirmmaskengenerator II 

40960 - 45159 

Zwischenspeicher für Dateimaske 

45160 - 49359 

Zwischenspeicher für Selektionsmaske 

49360 - 49459 

Rechengenerator (erzeugt aus String eine 
Basic-Zeile) 

49460 - 49700 

Indexdatei-Verwaltung 

49701 -49703 

Zwischenspeicher (für Indexdateiverwaltung) 

49704 - 49786 

Stringvergleich-Routine 

49787 - 49869 

BSC/ASC-Wandler 

51176-63127 

entspricht Tabelle 1 

63128 - 65535 

Indexdatei 2 


nicht als numerisches, sondern als Textfeld definiert. 

Haben Sie die Dateimaske komplett eingegeben, dann 
drücken Sie bitte »SHIFT« + »RETURN« und anschließend 
»F7«. Nach kurzer Zeit erscheint die Eingabemaske in der 
Form, wie Sie sie in Bild 4 rechts oben sehen. Alle Datenfel¬ 
der sind fortlaufend durchnummeriert. (Bei Feldern mit einer 
Länge kleiner als fünf Zeichen - in diesem Rill die »Anzahls- 
Felder - ist die Numerierung aus Platzgründen nicht auf dem 
Bildschirm sichtbar.) 

Als erstes müssen Sie jetzt die folgenden Formatvorschrif¬ 
ten eingeben. (Die Feldgrenzen des gerade bearbeiteten Fel¬ 
des werden revers dargestellt. Nach jeder Formateingabe 
müssen Sie RETURN drücken!): 


Tabelle 2. Die Speicherbelegung durch DBII 
(Teil 2: Datenpflege) 

Die anschließende Frage betreffend der Syntaxkontrolle 
beantworten Sie sicherheitshalber mit »ja«. Danach geben 
Sie die folgenden Rechenvorschriften ein: 

- Feld 9: F(7)*F(8) 

- Feld 13: F(11)*F(12) 

- Feld 17: F(15)*F(16) 

- Feld 18: F(9)+F(13)+F(17) 

- Feld 19: 0.14*F(18) 

- Feld 20: F(18) + F(19) 

Als Namen der Datei geben Sie schließlich «rechnungen« 
ein. Die beiden Fragen nach dem Zeichensatz beantworten 
Sie mit »nein«. Bei der »Anzahl der relevanten Stellen des 
Schlüsselfeldes« dürften »5« genügen. Damit sind alle not¬ 
wendigen Informationen eingegeben; die Datei wird auf Dis¬ 
kette eingerichtet, 
d) Änderungsmöglichkeiten: 

Zunächst zu den Änderungsmöglichkeiten während der 
'zur Abtrennung deTvo'rwahij, Daten,,. skendefinition beziehungsweise bei einer Datei, in 

' Hirt nrtrth l/rtirtrt flomn rtirtrtrtnrthrtn it/i irrirtn Itino oi ir nio^OTiQ 


- Feld 3: 1111 


(die »1« dient wie gesagt nur als 
»Füllzeichen. Dazu können Sie 
auch jedes andere Zeichen ver¬ 
wenden. Entscheidend ist, an wel¬ 
cher Stelle der Punkt (».«) steht) 


- Feld 6 

111111 

- Feld 7 

111.11 

- Feld 8 

11 

- Feld 9 

111.11 

- Feld 10 

111111 

- Feld 11 

111.11 

- Feld 12 

11 

- Feld 13 

111.11 

- Feld 14 

111111 

- Feld 15 

111.11 

- Feld 16 

11 

- Feld 17 

111.11 

- Feld 18 

1111.11 

- Feld 19 

111.11 

- Feld 20 

1 1 1 1.11 

ü3Lü* 



die noch keine Daten eingegeben wurden. (Eine auf Diskette 
eingerichtete Datei können Sie übrigens über den Menü¬ 
punkt »Datei einladen« (siehe Bild 1) in den Computer laden, 
um Änderungen an der Eingabemaske vorzunehmen): 

An den Datenfeldern können grundsätzlich beliebige Ände¬ 
rungen vorgenommen werden (an den Kommentaren und 
Bemerkungen natürlich auch). Es können also ohne weiteres 
Datenfelder gelöscht, verkleinert (mit »DELETE«) oder ver¬ 
größert werden (mit »INSERT«), Auch der Feldtyp kann ein¬ 
fach durch Überschreiben des ursprünglichen Codes mit der 
neuen Kennzeichnung geändert werden. (Wenn Sie zum Bei¬ 
spiel aus einem Textfeld ein Zahlenfeld machen wollen, müs¬ 
sen Sie nur das »T« durch ein »N« ersetzen.) Wichtig ist nur, 
daß die einzelnen Datenfelder (bis auf die erste Stelle, die ja 
den Feldtyp-Code enthält) vollständig mit dem bei der Ein¬ 
richtung der Felder erzeugten Füllzeichen (CHR$(166)); ent¬ 
spricht »COMMODORE« + »+«) aufgefüllt sind! Ist das näm¬ 
lich nicht der Fall, dann wird das betreffende Feld bei der 
Übernahme der Eingabemaske vom Programm nicht erkannt. 

Wenn Sie zum Beispiel bei der Übernahme der Eingabe¬ 
maske durch die Routine »Datei einrichten« (während der Ein¬ 
gabe der Formatier- und Rechenvorschriften) einen Fehler in 
der Eingabemaske entdecken, können Sie die Übernahme 
mit »SHIFT« + »RETURN« abbrechen und anschließend mit 
»Fl« wieder in die Eingabemaskendefinition gelangen. 

Eine gerade in Arbeit befindliche Eingabemaske kann über 
den Menüpunkt »Dateimaske abspeichern« (siehe Bild 1) auf 
Diskette unter einem frei wählbaren Namen zwischengespei¬ 
chert werden, um dann zu einem späteren Zeitpunkt über 
den Menüpunkt »Dateimaske einladen« (siehe Bild 1) wieder 
in den C 64 geladen zu werden. Dadurch ist es möglich, die 
Entwicklung einer Datei abzubrechen, ohne später bei der 
Weiterarbeit die Eingabemaske (beziehungsweise den Teil 
der bereits definiert wurde) noch einmal neu eingeben zu 
müssen. 
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Bei einer Datei, in die bereits Daten eingegeben wurden, 
sind die Änderungsmöglichkeiten schon geringer. 

Bei den Kommentaren und Bemerkungen gibt es keine Pro¬ 
bleme. Hier können beliebige Änderungen vorgenommen 
werden. Auch die Positionen der Datenfelder können verän¬ 
dert werden. Dabei ist allerdings darauf zu achten, daß 
erstens die Reihenfolge der Datenfelder nicht verändert wird 
und zweitens die Länge der einzelnen Datenfelder nicht 
geändert wird, das heißt, die Felder weder verkleinert noch 
vergrößert werden. 

e) Änderung des Zeichensatzes: 

Über den Menüpunkt »Zeichensatz ändern« gelangen Sie in 
die Zeichensatzänderungsroutine. 

Dabei gehen Sie folgendermaßen vor: 

- Zuerst stellen Sie den gewünschten Schriftmodus ein. 
Dazu befindet sich in der unteren Bildschirmhälfte ein klei¬ 
nes Auswahlmenü: 

- Mit »F4« schalten Sie den Grafik-Modus, mit »F2« den 
Groß-/Kleinschrift-Modus ein. 

- Mit »F8« können Sie auf »RVS on«, mit »F6« auf »RVS off« 
umschalten. 

- Danach drücken Sie die gewünschte Taste. Dadurch wird 
die Matrix des betreffenden Zeichens auf der rechten Bild¬ 
schirmhälfte ausgegeben. 

- Nun können Sie Änderungen an der Matrix vornehmen. 
Dafür stehen Ihnen neben der üblichen Cursorsteuerung 
folgende Kommandos zur Verfügung: 

- »Fl«: Matrixpunkt setzen 

- »F3«: Matrixpunkt löschen 

- »F5«: gesamte Matrix löschen 

- »F7«: geänderte Matrix übernehmen 

(Hinweis: Um zu verhindern, daß der Aufbau der Menüs 
zerstört wird, ist die Zeichensatzänderung nur im Bereich der 
Dateimaske und des Helpscreens 2 wirksam.) 

Mit »SHIFT« + »RETURN« können Sie jederzeit in das 
Hauptmenü zurückkehren. 

Noch ein Tip: Wollen Sie größere Änderungen am Zeichen¬ 
satz vornehmen, ist es wohl am sinnvollsten, wenn Sie die 
gewünschten Matrizen zuerst auf einem entsprechend ge¬ 
rasterten Blatt Papier entwerfen und sie danach auf den Bild¬ 
schirm übertragen. Die Zahlen um das Matrixfeld auf dem 
Bildschirm sind Ihnen dabei behilflich. 

f) Änderung der Tastaturbelegung: 

Über den Menüpunkt »Tastaturbelegung ändern« gelangen 
Sie in die Tastaturänderungsroutine. Dieses Programmodul 
stellt an sich nur eine Erweiterung der Zeichensatzänderung 
dar, das heißt, tatsächlich wird nicht die Belegung der Tasta¬ 
tur geändert, sondern nur die Zeichenmatrizen entspre¬ 
chend ausgetauscht. 

Haben Sie »F5« gedrückt, gelangen Sie in ein weiteres Aus¬ 
wahlmenü: 

- Mit »Fl« läßt sich die Belegung einer Taste ändern. 

- Mit »F3« können Sie zwei Tasten vertauschen. 

Bevor Sie die entsprechenden Tasten drücken, müssen 
Sie, wie bei der Zeichensatzänderung, den gewünschten 
Schriftmodus einstellen. 

Wichtig: Die Belegung einer Taste wird immer nur in dem 
eingestellten Schriftmodus geändert, das heißt, wenn Sie 
zum Beispiel den Groß-/Kleinschriftmodus und »RVS off« ein¬ 
stellen und danach die Tasten »V« und »Z« vertauschen, ist 
diese Änderung im Graphikmodus und bei »RVS on« nicht 
wirksam! Genauso müssen auch die »geSHIFTeten« Tasten 
extra geändert werden! 

Auf den ersten Blick wirkt dies vielleicht etwas umständ¬ 
lich. Andererseits eröffnen sich dadurch aber wesentlich 
mehr Möglichkeiten der Veränderung. So können Sie zum 
Beispiel - auch in Verbindung mit der »Zeichensatzände¬ 
rung« - aus einem Zeichensatz praktisch zwei machen, 
indem Sie zum Beispiel im Groß-/Kleinschriftmodus den nor- 


Dateneingabe: 

RETURN 

auf Anfang des nächsten Feldes positionie¬ 
ren (wenn aktuelles Feld Rechen- oder 
Zahlenfeld ist, wird die Vorschrift ausgeführt!) 

SHIFT + RETURN 

Rückkehr zum Hauptmenü 

F5 

vorblättern 

F7 

zurückblättern 

F8 

Seitendirektaufruf 

HOME 

auf Anfang des ersten Feldes positionieren 

SHIFT + HOME 

alle Datenfelder löschen 

CTRL + 1 

Hintergrundfarbe ändern 

CTRL + 2 

Vordergrundfarbe ändern 

CTRL + 3 

Cursorfarbe ändern 

L 

aktuelles Datenfeld löschen 

V 

Rechen-/Formatiervorschriften für alle 
betroffenen Felder ausführen 

S: 

Datensatz speichern 

CTRL + C 

Cursorblinkfrequenz ändern 


Tabelle 3. Die bei der Dateneingabe zur Verfügung 
stehenden Funktionen 


malen Zeichensatz beibehalten und im Graphikmodus einen 
entsprechenden griechischen Zeichensatz entwickeln. 
Zwischen diesen beiden Zeichensätzen können Sie dann 
einfach mit »COMMODORE« + »SHIFT« umschalten! Mit 
»SHIFT« + »RETURN« können Sie jederzeit in das Haupt¬ 
menü zurückkehren. 

Dateneingabe 

Um Daten in eine Datei eingeben zu können, müssen Sie 
Teil 2 von Database einladen. (Im Lademenü »F3« drücken.) 

Für jede Diskette, auf der sich Daten befinden, führt Data¬ 
base «in Inhaltsverzeichnis, das »Datei-Directory«. Dieses 
wird auf der Diskette als sequentielles File gespeichert. 
Neben den Namen der einzelnen Dateien enthält es auch 


DATABASE DATEISTRUKTUR 


Datei-Informationen (.D/SEQ) 

Dieses Re enthält sämtliche den Aufbau der Datei 
betreffenden Informationen (Anzahl der Seiten'Farben/ 
Anzahl Fbsition und Länge der Datenfelder usw.) 


Datei-Maske (.E/PRG) 

Dieses Re enthält die Bildschlrmmaske der Datei. 


Index-Datei 1 (.l/SEQ) 

Dieses File enthält verschiedene Informationen über 
den Datenbestand der Datei (unter anderem 
aktuelle Anzahl/Maximalanzahl der Datensatzei. 


Datei 


Index-Oatei 2 (S/PRG) 

Dieses Re enthält de Schlüssel (Indizes) sowie die 
Position (des ersten Bytes) der Datensätze 
in alphabetischer Reihenfolge 

Aufbau:_FtL. RH RP_Fbsition innerhalb 

7 —'‘V L ' i x 1 — des Records 

Schlüssel Record- 

Nummer 'Ftecord-Nummer 
(Low-Byte) (Highbyte) 

(In den ersten 150 Bytes befindet sich auBerdem ein 
Speicher für die ftsiöonen gelöschter Datensätze) 


Hauptdatei (.FUREL) 

Dieses File enthält die eigentlichen Daten der Datei 
Diese werden in fortlaufender Reihenfolge ohne 
Trennzeichen abgespeichert. 


Bild 2. Diese Files werden bei der Arbeit mit Database 
auf der Diskette eingerichtet und verwaltet. Nähere 
Informationen in Bild 5. 
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Angaben über die Anzahl der Dateiseiten und die aktuelle satz speichern wollen. Beantworten Sie die Frage mit 

Anzahl der Datensätze einer Datei. Bei der Definition einer »nein«, so wird der Cursor wieder auf den Anfang des letz¬ 

neuen Datei wird das Datei-Directory automatisch aktualisiert ten Datenfeldes positioniert. 


beziehungsweise - wenn noch nicht vorhanden - automa¬ 
tisch angelegt. Auch bei der Datenpflege wird es ständig auf 
dem neuesten Stand gehalten. Über den Menüpunkt »Datei- 
Directory« (siehe Bild 1) und durch anschließendes Drücken 
der »F2«-Taste kann das Datei-Directory angezeigt werden. 

Darüber hinaus können Sie mit »F3« eine Datei löschen, mit 
»F5« eine Datei umbenennen und mit »SHIFT« + »RETURN« 
ins Hauptmenü zurückkehren. 

Doch zurück zur Dateneingabe: Um eine Datei zur Daten¬ 
pflege in den Computer zu laden, gibt es zwei Möglichkeiten: 
Entweder, Sie drücken im Dateidirectorymodul »Fl« oder im 
Hauptmenü »F3«. In beiden Fällen müssen Sie den vollständi¬ 
gen Namen der gewünschten Datei eingeben und anschlie¬ 
ßend »RETURN« drücken. (Übrigens: Der Name der gerade 
im Rechner befindlichen Datei wird bei der Ausgabe des 
Dateidirectorys revers dargestellt!) 

Nach Beendigung des Ladevorgangs ist die Datei zur 
Datenpflege bereit. Über das Hauptmenü kann jetzt beliebig 
zwischen den einzelnen Programmfunktionen umgeschaltet 
werden. Sie können also zum Beispiel zuerst neue Daten ein¬ 
geben, danach in die Datenausgaberoutine verzweigen, und 
so weiter. 

Über den Menüpunkt »Daten eingeben« (siehe Bild 1) kön¬ 
nen Sie jetzt mit der Dateneingabe beginnen. In diesem 
Zusammenhang gleich noch ein wichtiger Hinweis: Wenn Sie 
am Datenbestand einer Datei Änderungen vornehmen (also 
insbesondere neue Daten eingeben, aber auch Datensätze 
löschen oder ändern), ist davon natürlich auch die Schlüssel¬ 
datei, die sich ja im Speicher befindet, betroffen. Am Ende 
der Dateiarbeit muß diese daher über den Menüpunkt »Datei 
speichern« (siehe Bild 1) auf die Diskette zurückgeschrieben 
werden - mit einer Einschränkung: Wenn Sie eine neue Datei 
einladen, die sich auf derselben Diskette wie die vorherige 
befindet, wird die alte Datei (vor dem Laden der neuen) auto¬ 
matisch auf die Diskette zurückgeschrieben. 

Auch beim Dateidirectory ist Vorsicht geboten: 

Durch das Einladen des Dateidirectorys wird eine eventuell 
im Computer befindliche Datei gelöscht! 

Nach diesen Vorbemerkungen einige konkrete Hinweise 
zur Dateneingabe: Nachdem Sie im Hauptmenü »F5« 
gedrückt haben, wird die erste Dateiseite auf dem Bildschirm 
ausgegeben und der Cursor blinkt am Anfang des ersten 
Datenfeldes. Nun können Sie mit der Dateneingabe begin¬ 
nen. Alle Datenfelder sind zur besseren Kennzeichnung mit 
dem schon von der Datenfelddefinition bekannten Füllzei¬ 
chen (CHR$(166)) aufgefüllt. Der Cursor kann jetzt nur noch 
innerhalb der Datenfelder bewegt werden. 

Ähnlich wie bei der Dateimaskendefinition steht Ihnen bei 
der Dateneingabe ein komfortabler Editor zur Verfügung. Um 
aber einen der im nachfolgenden beschriebenen Befehle 
aufrufen zu können, müssen Sie zuerst die »F1«-Taste 
drücken! Daraufhin beginnt der Schriftzug »Fl« in der drittun- 
tersten Bildschirmzeile ganz rechts zu blinken. Jetzt können 
Sie die gewünschte Funktion aufrufen. Nach deren Ausfüh¬ 
rung können Sie mit der Dateneingabe fortfahren. Haben Sie 
die »F1«-Taste unbeabsichtigt gedrückt, kommen Sie mit 
»SHIFT« + »RETURN« in die Eingaberoutine zurück. 

Die Befehle im einzelnen (Eine Zusammenfassung finden 
Sie in Tabelle 3): 

- »RETURN«: Wenn Sie die »RETURN«-Taste drücken und 
das aktuelle Datenfeld ein Datums-, Rechen- oder Zahlen¬ 
feld ist, dann wird die zugehörige Vorschrift ausgeführt. Auf 
jeden Fall aber wird der Cursor auf den Anfang des näch¬ 
sten Datenfeldes positioniert. Mit einer Einschränkung: 
Sollte es sich bei dem aktuellen Feld um das letzte Daten¬ 
feld handeln, dann erfolgt eine Abfrage, ob Sie den Daten- 


- »SHIFT« + »RETURN«: Bewirkt Rückkehr ins Hauptmenü. 
Die Datenfelder werden dabei gelöscht. 

- »F5«: Dateiseite vorblättern. 

- »F7«: Dateiseite zurückblättern. 

- »F8«: Seitendirektaufruf. 

- »HOME«: Positioniert Cursor auf den Anfang des ersten 
Datenfeldes. 

- »SHIFT« + »HOME«: Löscht sämtliche Datenfelder. 

- »L«: Löscht das aktuelle Datenfeld. 

- »CTRL« + »1«: Ändert Hintergrundfarbe. Der Farbcode wird 
jeweils um eins erhöht. 

- »CTRL« + »2«: Ändert Vordergrundfarbe. 

- »CTRL« + »3«: Cursorfarbe ändern. 

- »CTRL« + »C«: Cursorblinkfrequenz ändern. Siehe auch 
Bild 3. 

- »V«: Durch dieses Kommando werden sämtliche Rechen- 
und Förmatiervorschriften für alle betreffenden Felder aus¬ 
geführt. (Zuvor werden die Zahlenwerte aller Felder ermit¬ 
telt.) Wenn Sie also direkt bei der Dateneingabe auf das 
»RETURN«-Kommando verzichten, können Sie mit »V« die 
Berechnungen und Formatierungen nachholen lassen. 

- »S«: Mit diesem Kommando wird der eingegebene Daten¬ 
satz gespeichert und der Schlüssel des Datensatzes in die 
Indexdatei einsortiert, ohne daß Sie extra im letzten Daten¬ 
feld »RETURN« drücken müssen. 

Datenausgabe 

Über den Menüpunkt »Daten ausgeben« (siehe Bild 1) 
gelangen Sie in einen der wichtigsten Programmpunkte 
eines jeden Datenverarbeitungsprogramms; der Datenaus¬ 
gabe. Die Datenausgabemöglichkeiten von Database sind 
sehr vielfältig. Im wesentlichen lassen sich drei Bereiche 
"dnteTBc'neiden: 

- die Ausgabe über Schlüssel 

- das »Durchblättern« der Datei 

- die Selektion über eine frei wählbare Auswahlmaske 
Wenn Sie im Hauptmenü »F7« drücken, wird zunächst wie¬ 
der die erste Dateiseite auf dem Bildschirm ausgegeben. 
Jetzt können Sie durch Drücken der entsprechenden Taste 
die gewünschte Funktion aufrufen: 

a) Die Ausgabe über Schlüssel: 

Dazu drücken Sie die »I«-Taste. Jetzt werden die Datenfelder 


Datenausgabe: 

I Ausgabe über Schlüssel 

F Ausgabe über freie Selektion 

E ersten Datensatz einladen 

F letzten Datensatz einladen 

N nächsten Datensatz einladen 
V vorherigen Datensatz einladen 

D Datensatz löschen 

R Datensatz ersetzen 

A Datensatz hinzufügen 

Weitere Funktionen (Erläuterung in Tabelle 3): 

F5, F7, F8, CTRL+1/2/3, SH + R 
Zusatzfunktionen bei »freier Selektion«: 

K mit Selektion beginnen 
M Verknüpfungsroutine aufrufen 
Fl < F5 ' 

F2 <= F6 o 

F3 > F7 n 

F4 > = 

außerdem (Bedeutung in Tabelle 3): 

RT, SH + RT, F5, F7, F8, HOME, SH + HOME, L, V. CTRL + C 


Tabelle 4. Die bei der Datenausgabe zur Verfügung 
stehenden Funktionen. 
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Editor-Befehle: 

HOME 

Cursor auf den Anfang der aktuellen Datenseite 

CLEAR 

positionieren. 

Aktuelle Datenseite löschen. (Die Cursorposition 

RVS on 

verändert sich dabei nicht.) 

Revers-Modus einschalten. 

RVS off 

Revers-Modus ausschalten. 

DELETE 

Bewirkt die von Basic gewohnte Delete-Funktion 

INSERT 

(Zeilenweise!) 

Bewirkt die von Basic gewohnte Insert-Funktion. 

RETURN 

(Zeilenweise! Die letzte Bildschirmspalte wird 
jeweils überschrieben.) 

Positioniert den Cursor auf den Anfang der nach- 

CTRL+1 

sten Zeile. 

Schaltet die Hintergrundfarbe um. 

CTRL+2 

Schaltet die Vordergrundfarbe um. 

CTRL+3 

Schaltet die Cursorfarbe um. 

CTRL+C 

Mit diesem Kommando können Sie die Blinkfre- 

F6 

quenz des Cursors verändern. Gleichzeitig wird 
dadurch aber auch die Tastaturabfragefrequenz 
geändert, das heißt. Sie können mit dieser Routine 
den Computer Ihrer individuellen Schreibge¬ 
schwindigkeit anpassen. 

Datenfeld einrichten. Nähere Informationen siehe 

FS 

Text. 

Eine Dateiseite vorblättern. 

F7 

Eine Dateiseite zurückblättem. 

F8 

Dateiseite direkt aufrufen. 

Fl 

Die Zeile, in der sich der Cursor befindet, wird 

F3 

invertiert. 

Die Zelle, in der sich der Cursor befindet, wird 

F2 

gelöscht. 

Die Zeile, in der sich der Cursor befindet, sowie 

F4 

aller darüber liegenden Dateizeilen werden um 
eine Zeile nach oben gescrollt. 

Die Zeile, in der sich der Cursor befindet, sowie alle 

darunter liegenden Dateizeilen werden unreine 
Zeile nach unten gescrollt. 

SHIFT + RETURN Bewirkt Rückkehr ins Hauptmenü (Die Datei- 

maske wird zwischengespeichert!.) 

Die folgenden Kommandos haben bei den Helpscreens eine andere 

Bedeutung: 

F5 

Helpscreen speichern 

F6 

Helpscreen einladen 

F7 

Helpscreen umschalten/vertauschen 

SHIFT + RETURN Rückkehr zur Aufrufstelle 

F8 

keine Bedeutung 


Bild 3. Die bei der Maskendefinition und den Help- 
screens zur Verfügung stehenden Editorbefehie 


gelöscht, die Dateiseite, auf der sich das Schlüsselfeld befin¬ 
det, ausgegeben und der Cursor auf das Schlüsselfeld posi¬ 
tioniert, Nachdem Sie den Schlüssel mit abschließendem 
»RETURN« eingegeben haben, wird er in der Indexdatei 
gesucht und - sofern vorhanden - der zugehörige Datensatz 
in den Rechner geladen und auf dem Bildschirm ausgege¬ 
ben. Gehören zu einem Schlüssel mehrere Datensätze, dann 
werden Sie darauf durch die Meldung »Weitere Datensätze 
vorhanden!« hingewiesen. Wenn Sie daraufhin nochmals »I« 
drücken und die nachfolgende Frage mit »ja« beantworten, 
wird der nächste Datensatz (mit demselben Schlüssel) aus¬ 
gegeben. 

Haben Sie die »I«-Taste nur versehentlich gedrückt, können 
Sie die Routine mit »SHIFT« + »RETURN« verlassen. 

b) »Durchblättern« der Datei: 

Hier bietet sich wieder der Vergleich einer Datei mit einem 
Karteikasten an. Mit den folgenden Kommandos ist es näm¬ 
lich möglich, eine Datei wie einen Karteikasten »durchzublät¬ 
tern«. Die Kommandos beziehen sich dabei auf die Indexdatei 
beziehungsweise auf die in ihr gespeicherten Schlüssel der 


einzelnen Datensätze. Wenn also zum Beispiel von einem 
»ersten Datensatz« die Rede ist, dann handelt es sich dabei 
um den Datensatz, dessen Schlüssel als erster in der Index¬ 
datei gespeichert ist. Verbunden mit der Tatsache, daß die 
Schlüssel in der Indexdatei alphabetisch einsortiert sind, 
ergibt sich daraus die Möglichkeit, eine Datei in alphabeti¬ 
scher Reihenfolge durchzublättern. 

Die Befehle im einzelnen: 

- »E«: Gibt den ersten Datensatz der Datei aus. 

- »L«: Gibt den letzten Datensatz der Datei aus. 

- »N«: Mit diesem Kommando kann der nächste Datensatz 

in Bezug auf den gerade im Speicher befindlichen 
ausgegeben werden. 

- »V«: Dadurch wird der vorherige Datensatz ausgegeben, 
c) Die Selektion über eine frei wählbare Ausgabemaske: 
Mit dieser Routine, die mit »F« aufgerufen wird, steht Ihnen ein 
vielseitiges Instrument zur Auswahl (Selektion) von Datensät¬ 
zen zur Verfügung. Die Grundidee ist dabei folgende: Sie 
geben in die Datenfelder eine sogenannte Selektionsmaske 
(das heißt Vergleichsdaten) ein, die dann mit jedem Daten¬ 
satz der Datei verglichen wird. Entspricht ein Datensatz der 
Maske, wird er in den Speicher geladen. Ansonsten wird der 
nächste Datensatz verglichen. 

Bevor mit der Selektion begonnen werden kann, müssen 
Sie also zuerst eine Auswahimaske eingeben. Die grundle¬ 
gende Vorgehensweise ist dabei dieselbe wie bei der Daten¬ 
eingabe! Mit Ausnahme der Routinen zur Datensatzspeiche¬ 
rung und zur Änderung der Bildschirmfarben stehen deshalb 
dieselben Routinen wie bei der Dateneingabe zur Verfügung. 
(Eine Aufstellung finden Sie in Tabelle 4 unten.) 

- »K«: Durch »K« wird die Selektionsmaske übernommen, die 
Selektion gestartet und im Falle eines positiven Vergleichs 
der betreffende Datensatz ausgegeben. 

,t»M« Dieses Kommando bietet Ihnen die Möglichkeit, einige 
spezielle Selektionskriterien anzugeben. Der Cursor blinkt 
dabei auf dem Feldbegrenzungszeichen. Wenn Sie jetzt 
eine der nachfolgenden Tasten drücken, wird das entspre¬ 
chende Symbol unter dem Cursor revers ausgegeben. 

- »Fl«: »kleiner«-Funktion: Dadurch werden alle Datensätze 
selektiert, deren entsprechender Datenfeldinhalt kleiner ist 
als die eingegebenen Vergleichsdaten. 

-*F2«: »kleiner gleich«-Funktion: Bewirkt Selektion aller 
Datensätze, deren entsprechender Datenfeldinhalt kleiner 
gleich den Vergleichsdaten ist. 

-*F3«: »gröBer«-Funktion: Bewirkt Selektion aller Daten¬ 
sätze, deren entsprechender Datenfeldinhalt größer als die 
Vergleichsdaten ist. 

-»F4«: »größer gleich«-Funktion: Bewirkt Selektion aller 
Datensätze, deren entsprechender Datenfeldinhalt größer 
gleich den Vergleichsdaten ist. 

- »F5«: »Hochkomma«-Funktion: Diese Funktion spart Ihnen 
Tipparbeit. Bei einem auf diese Weise verknüpften Feld wird 
nämlich die Eingabe des vorherigen Feldes übernommen. 

-*F6«: »ODER«-Funktion: Diese logische »ODER«- 
Verknüpfung kann zusätzlich zu den anderen Funktionen 
verwendet werden. Es können beliebig viele (aber minde¬ 
stens zwei) Felder verknüpft werden. Diese Funktion läßt 
sich auch sinnvoll mit der vorangegangenen kombinieren: 
Haben Sie zum Beispiel eine Literaturverwaltung mit mehre¬ 
ren gleichwertigen Feldern zur Stichworteingabe und sind 
sich bei einer Abfrage nicht sicher, in welches Feld Sie ein 
bestimmtes Stichwort eingegeben haben, können Sie fol¬ 
gendermaßen verfahren: Sie geben das Stichwort in das 
erste betreffende Feld ein und verknüpfen das Feld mit 
»ODER«. Die anderen betreffenden Felder verknüpfen Sie 
mit »Hochkomma« und »ODER«. Das ist schon alles! 

So sparen Sie nicht nur Tipparbeit, sondern auch eventuell 
notwendige zusätzliche Abfragen. 

-*F7«: »NICHT«-Funktion: Bewirkt Selektion aller Daten- 
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Sätze, deren entsprechender Datenfeldinhalt ungleich den 
Vergleichsdaten ist. 

Wichtig: Um wieder in die »normale« Eingaberoutine zu 
kommen, müssen Sie »RETURN« drücken! 

Zusätzlich stehen Ihnen drei Zeichen mit spezieller Bedeu¬ 
tung zur Verfügung, die Sie direkt bei der Eingabe der Ver¬ 
gleichsdaten verwenden können: 

-das »Fragezeichen» (CHR$(63)) und das Sonderzeichen 
(CHR$(166)), mit dem die Felder beim Aufruf der Aus- und 
der Eingaberoutine aufgefüllt sind: Diese beiden Zeichen 
haben dieselbe Funktion. Sie dienen als »Joker«, das heißt, 
sie können für jedes beliebige andere Zeichen stehen! Sind 
also eine (oder mehrere) Stellen in einem Datenfeld für die 
Selektion nicht relevant, dann geben Sie dort eines der bei¬ 
den Zeichen ein. 

-das »Multiplikationszeichen« (CHR$(42)): Dieses Zeichen 
kennzeichnet die Stelle, an der es steht, sowie alle nachfol¬ 
genden Stellen des Datenfeldes als nicht relevant! 
Abschließend drei zusätzliche Funktionen zur Bearbeitung 
des Datenbestandes einer Datei, die Sie ebenfalls durch 
Drücken der entsprechenden Taste aufrufen können: 

-»D«: Dadurch wird der gerade im Speicher befindliche 
Datensatz aus der Datei entfernt, das heißt im Computer 
und auf Diskette gelöscht. 


- »R«: Mit diesem Kommando können Sie den im Speicher 
befindlichen Datensatz ersetzen (beziehungsweise 
ändern). Dabei wird in die Dateneingaberoutine verzweigt. 
Es können beliebige Änderungen (auch am Datensatz¬ 
schlüssel) vorgenommen werden. Durch Drücken der »S«- 
Taste wird der alte Datensatz dann durch den neu eingege¬ 
benen ersetzt. 

- »A«: Dieses Kommando ermöglicht die Eingabe eines 
neuen Datensatzes, ohne daß extra über das Hauptmenü 
die Dateneingaberoutine aufgerufen werden muß. 

Eine Aufstellung aller bei der Datenausgabe zur Verfügung 
stehenden Kommandos finden Sie in Tabelle 4. 

Helpscreens 

Diese sogenannten »Hilfsbildschirme« stellen eine wert¬ 
volle Hilfe sowohl für die Arbeit mit dem Programm selbst als 
auch für die Arbeit mit den einzelnen Dateien dar. Hier kön¬ 
nen Sie zum Beispiel wichtige Hinweise zu einzelnen Kom¬ 
mandos des Programms ablegen, auf Diskette speichern und 
dann bei Bedarf wieder in den C 64 laden. Wie Sie in Bild 1 
sehen können, ist es möglich, die Helpscreens auch bei der 
Datenein- und Datenausgabe aufzurufen, das heißt Sie kön¬ 
nen bei der Datenpflege jederzeit auf die Helpscreens 
zurückgreifen! 


Lieferant: <s. 

Strasse: <t. 



.> 


Lieferant: <s. 

Strasse: < t.. 





PLZ: <n... > 

Telefon: <t. 



Ort: <t. 


PLZ: <n... > 

Telefon: <t. 



Ort: <t. 


,4> 

■ 5> 

Art.Nr.: 

EP:(DH) 


ANZ: GP: (DH) 


Art.Nr.: 

EP:(DH) 

ANZ: 

GP: (DH) 


<n.> 


> 

<n.> <e.. 


Df 

6> 

<n. 

...7> 

<n. > 

<e_9> 


<n.> 

<n.... 

> 

<n. > <e.. 

..> 


<n...lO> 

<n. 

..11> 

<n. > 

<e...l3> 


<n.> 

<n.... 

> 

<n.> <e... 



<n...l4> 

<n. 

..15> 

<n. > 

<e...!7> 


Gesamtsumme: 

<e. 

-> 




Gesamtsumme: 

<e... 

. .18> 




+ 14? Mwst.: 

<e. 

• > 




+ 14* Mwst.: 

<e... 

..19> 




Rechn.Betr.: 

<e. 

• > 




Rechn.Betr.: 

< e... 

..20> 





So sieht die Eingabemaske bei der Definition aus ... _und so bei der Eingabe der Format- und Reehen- 

vorschriften. 


Lieferant: < Schmidt AG. 

Strasse: COberwalstr. 1... 

PLZ: <8000> 

Telefon: <089/987654> 


. > 

. > 

Ort: <Muenchen> 

Art.Nr.: EP:(DM) 

ANZ: 

GP: (DM) 

< 123456 > <127.50 > 

< 3> 

<382.50> 

< 345124 > < 13.71> 

< 7> 

< 95-97> 

< 257629 > < 1.95> 

<12> 

< 23.40> 

Gesamtsumme: <501.87> 



+ 14* Mwst.: < 70.26> 



Rechn.Betr.: <572.13> 




Lieferant: < Schmidt AG... 

Strasse: <Oberwalstr. 1... 

PLZ: <8000> 

Telefon: <089/987654> 


.> 

Ort:< Muenchen > 

Art.Nr.: 

EP:(DM) 

ANZ: 

GP: (DH) 



<123456> 

<127.5.> 

<3. > 

<e.... 

> 


<345124> 

<13-71.> 

<7. > 

<e.... 

> 


<257629> 

<1.95..> 

<12> 

<e. 

> 


Gesamtsumme: 

< e.> 





+ 14* Mwst.: 

<e.> 





Rechn.Betr.: 

<e.> 






Eine Beispiel-Eingabe (unformatiert)... 


... und nach Durchführung der Berechnungen und 
Formatierungen. 


Bild 4. Eine Rechnungsverwaltung zur Demonstration der Rechen- und Formatiermöglichkeiten von Database 
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Insgesamt stehen zwei Helpscreens zur Verfügung, die ein¬ 
fach durch Drücken der »CTRL« + »H«-Taste aufgerufen wer¬ 
den. Zur Erläuterung: Database verwendet zwei Bildschirme. 
Auf dem einen, der vor allem zur Ausgabe der Hauptmenüs 
und für die Sonderfunktionen benützt wird, wird der normale 
Zeichensatz des C 64 verwendet. (Wenn Sie also zum Bei¬ 
spiel vom Hauptmenü die Helpscreens aufrufen, wird 
Helpscreen 1 ausgegeben.) Auf dem anderen, der zur Aus¬ 
gabe der Dateimaske dient, wird der eventuell vom Benutzer 
geänderte Zeichensatz verwendet (und bei einem Help- 
screenaufruf entsprechend Helpscreen 2 ausgegeben). Bis 
auf die verschiedenen Zeichensätze sind die beiden Help¬ 
screens aber völlig gleichwertig. 

Für die Eingabe stehen Ihnen die 2.-22. Bildschirmzeile 
zur Verfügung. Die möglichen Kommandos sind dabei im 
wesentlichen dieselben - bis auf die dateispezifischen - wie 
bei der Dateimaskendefinition. (Siehe Bild 3.) 

Dazu kommen die vier folgenden Kommandos: 

- »F5«: Helpscreen speichern: Mit diesem Kommando kön¬ 
nen Sie den gerade auf dem Bildschirm ausgegebenen 
Helpscreen durch Angabe eines maximal 14stelligen 
Namens auf Diskette abspeichern. 

- »F6«: Helpscreen laden. Mit diesem Kommando können 
Sie einen auf Diskette gespeicherten Helpscreen durch 


Angabe des Namens in den Computer laden. Dabei ist es 
egal, von welchem Helpscreen (1 oder 2) aus Sie den ein¬ 
zuladenden Helpscreen gespeichert haben! (Ein Help¬ 
screen, den Sie zum Beispiel von Helpscreen 1 aus 
gespeichert haben, kann also ohne weiteres in den 
Helpscreen 2 eingeladen werden.) 

- »F7«: Helpscreens umschalten/vertauschen. Nachdem 
Sie »F7« gedrückt haben, erscheint die Frage »Help¬ 
screens vertauschen?« Beantworten Sie sie mit »nein«, 
wird nur auf den jeweils anderen Helpscreen umgeschal¬ 
tet. Beantworten Sie die Frage mit »ja«, werden die Inhalte 
der beiden Helpscreens vertauscht und danach der 
jeweils andere Helpscreen ausgegeben. Diese Funktion 
bekommt dann einen Sinn, wenn Sie zum Beispiel einen 
geänderten Zeichensatz verwenden und die Änderungen 
auf einem Helpscreen vermerken. Auf Helpscreen 2 
sehen Sie dann die geänderten Zeichen; auf Helpscreen 
1 ist die »normale« Zeichenmatrix des betreffenden Zei¬ 
chens sichtbar. 

- »SHIFT« + »RETURN«: Mit dieser Tastenkombination kön¬ 
nen Sie jederzeit - egal auf welchem Helpscreen Sie sich 
gerade befinden - zur Aufrufstelle zurückkehren. 
Abschließend noch einige Hinweise für diejenigen, die sich 

mit dem Programm(aufbau) näher befassen wollen: 


Variablenliste für Database/I: 

HP%(.„) 

Anfangs- und Endadressen der Zwischenspeicher für 

FF 

Zwischenspeicher für Farbwerte (im Farbcode) 


Helpscreens 

MF%(1) 

Hintergrundfarbe (Hauptmenü) 

DR 

enthält Speicherkonfiguration (für diverse Zwecke) 

MF%(2) 

Vordergrundfarbe (Hauptmenü) 

BR%(..) 

Zwischenspeicher für Bildschirmumschaltung 

MF%(3) 

Cursorfarbe (Hauptmenü) 

FE 

Fehlernummer (Floppymeldung) 

ME 

Nummer des aktuellen Hauptmenüs 

FES 

Fehlertext (Floppymeldung) 

HP 

Nummer des aktuellen Helpscreens 

C$ 

enthält CHR$(145) 

UG 

Flag für erfolgten Unterprogrammaufruf 

C3 

Zwischenspeicher für Cursorpositionszähler (HB) 

SP 

Cursorspalte 

C4 

Zwischenspeicher für Cursorpositionszähler (LB) 

ZE 

Cursorzeile 

RS 

RVS-Flag für Bildschirmmaskendefinition 

ME$(.„) 

enthält Strings für Hauptmenüausgabe 

k:> 

RVS-Flag für Helpscreens 

CI 

Zwischenspeicher für Cursorspalte 

AF 

Zähler für Felder/Gesamtzahl der Felder (einer Datei) 

C2 

Zwischenspeicher für Cursorzeile 

FV 

Flag für »Feld vorhanden« 

FC%(.) 

Funktionscodes (ASC-Werte der entsprechenden Tasten) 

S 

Flag für »Schlüsselfeld vorhanden« 


für Kommandoaufruf 

N 

Flag für »numerisches Feld vorhanden« 

FM 

Anzahl der Funktionen (dto.) 

EF 

Flag für »Ergebnisfeld vorhanden« 

BA(1) 

Bildschirmspeicheranfangsadresse von Bildschirm 1 

AM 

Maximalzahl der Felder 


(1024) 

FD(...) 

Feldpositionen (Anfang/Ende) 

BA(2) 

Bildschirmspeicheranfangsadresse von Bildschirm 2 

FA%(..) 

Flag für Feldarten 


(50176) 

AF%(..) 

Anzahl der Felder je Seite 

PG 

aktuelle Dateiseite (der Bildschirmmaske) 

F0$(..) 

Formatvorschriften für numerische Felder 

Fl (..) 

Hintergrundfarbe der einzelnen Datoiseiten 

RO$(..) 

Rechenvorschriften für Ergebnisfelder 

F2(..( 

Vordergrundfarbe der einzelnen Dateiseiten 

ZG$(..) 

Name des Zeichengenerators 

F3(.) 

Cursorfarbe der einzelnen Dateiseiten 

AS 

Anzahl der relevanten Stellen des Schlüsselfeldes 

KS$(..) 

enthält diverse Strings (für Ausgabe und andere Zwecke) 

S3 

Anzahl der Formatvorschriften 

GZ 

Länge der Eingabe (bei !GET-Befehl) 

S5 

Anzahl der Rechenvorschriften 

CB 

Zwischenspeicher für Cursorblinkfrequenz 

DS 

enthält Dateiname 

CP 

aktuelle Cursorposition (im Bildschirmspeicher) 

DL 

Datensatzlänge 

GR 

Flag für Schriftmodus der Dateimaske 

DAS 

Dateiname (für Ausgabe) 

AP%(„.) 

Anfangs- und Endadresse der einzelnen Dateiseiten im 

SF 

Seite, auf der sich das Schlüsselfeld befindet 


Zwischenspeicher (Low-Byte/High-Byte) 

NN 

Feldnummer des Schlüsselfeldes 

FS%(„) 

Flag für erfolgten Seitenaufruf bei Dateimaskendefinition 

ES 

erste Seite der Dateimaske, auf der sich ein Feld 

SM 

Flag für Schriftmodus (bei UP Zeichensatzänderung) 


befindet 

RV 

Flag für RVS on/off (bei UP Zeichensatzänderung) 

FO%(.) 

enthält laufende Nummer der Formatierfelder 

UD 

Flag für Bedingungsabfrage (bei UP Zeichensatz- 

RO%(.) 

enthält laufende Nummer der Ergebnisfelder 


änderung) 

MT 

Maximalzahl der Datensätze einer Datei 

ZF%(1) 

Hintergrundfarbe (UP: Zeichensatzänderung) 

PT 

Anfangsadresse des Bildschirmmaskengenerators 

ZF%(2) 

Vordergrundfarbe (UP: Zeichensatzänderung) 

DD$(..) 

Dateinamen (Datei-Directory) 

ZF%(3) 

Cursorfarbe (UP: Zeichensatzänderung) 

SN%(..) 

Anzahl der Seiten einer Datei (Datei-Directory) 

TA%(1) 

Hintergrundfarbe (UP: Tastaturänderung) 

DS%(..) 

Anzahl der Datensätze einer Datei (Datei-Directory) 

TA%(2) 

Vordergrundfarbe (UP: Tastaturänderung) 

AD 

Anzahl der Dateien 

TA%(3) 

Cursorfarbe (UP: Tastaturänderung) 

DP 

Flag für Datei-Directory abspeichern 

P2(..) 

Zwischenspeicher für Zeichenmatrix 

SY 

Flag für Syntaxkontrolle durchführen (bei Rechen- 

SE 

enthält Anzahl der Dateiseiten 


Vorschriftseingabe) 

ZG 

Flag für Zeichensatzabspeicherung 

Speicher für diverse Zwecke: 

HZ 

Zwischenspeicher für Nummer des aufgerufenen Help- 

E, EG$, EG, K, S1. AG$, S2. RVS, 1$, H$, H1$, H2$, H. Hl, H2, H3, 


screens 

H4, H5, S6, S4, H3$, ZP, Gl. G2. P1(„), SZ. SC, AI, Z$, Z, LI. L2. PI, 

PH(..) 

Anfangsadresse der Zwischenspeicher der (Färb-/ 

P2, P3, A2, T5, TI, T2, T4, T1$, ZW$, S, S7, ZF, A3, A4, S6$, LB(.,), 


Schriftmoduswerte (für Helpscreens) 

HB(.) 



Tabelle 5. Die im Teil »Neue Datei entwickeln« verwendeten Variablen 
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Dateiverwaltung 




- ln den Bildern 2 und 5 finden Sie Informationen über die 
von Database 64 erzeugten Dateien. 

- Die Tabellen 1 und 2 zeigen die Speicherbelegung von 
Database. 

- Die Tabellen 5 und 6 enthalten eine vollständige Liste der 
in den beiden Programmteilen verwendeten Variablen. 

- Tabelle 7 gibt Auskunft über die in den vier Maschinenpro¬ 
grammpaketen enthaltenen Routinen. 

Hinweis: 

Damit das Programm compilierfähig wurde, waren umfangrei¬ 
che Änderungen notwendig. Dadurch wurde das (uncompi- 
lierte) Programm an manchen Stellen etwas langsamer, vor 
allem aber um einiges länger! Daher müssen Sie im zweiten 
Programmteil (DBII BASIC) in der uncompilierten Version auf 
eine Programmfunktion, nämlich die Helpscreens, verzich¬ 
ten. Die Leserservice-Diskette enthält auch das compilierte 
Programm (DBII). In diesem ist die Helpscreen-Funktion ver¬ 
fügbar! 

(Martin Hecht/tr) 


Anmerkung der Redaktion: 

Dem Programmautor stand leider kein Drucker zur Ver¬ 
fügung. Deshalb fehlen Database die Druckerroutinen 
zur Ausgabe von Datensätzen. Ein entsprechendes 
Programm ließe sich aber über den Menüpunkt »Son¬ 
derfunktionen« relativ leicht einbinden. Geübten Pro¬ 
grammierern dürfte das keine Probleme bereiten. Ent¬ 
sprechende Vorschläge nehmen wir gerne entgegen. 
Dieses Druckprogramm muß auf der Diskette unter 
dem Namen »Soft« vorliegen und zumindest einen 
Basic-Start haben. 

Die Leserservice-Diskette enthält folgende Pro¬ 
gramme: 

Blocks: Name: Funktion: 

2 DBL Autostart; mit »,8,1« laden. 

6 DBL/T Ladeprogramm 

93 DBI Teil 1 (neue Datei entwickeln) 

in compilierter Version 

96 DBII Teil 2 (Datenpflege) in compi¬ 

lierter Version. 


Maschinenprogramme: werden 
automatisch nachgeladen. 
Siehe auch Tabelle 7. 


4 MP-P-2 
6 MP-P-3 
9 MP-P-4 
3 MP-P-5 

129 DBI BASIC Teil 1 als Basicversion 
126 DBII BASIC Teil 2 als lauffähige Basicversion 
ohne Helpscreenfunktion. 


Floppy-File-Typen: 

PRG : Maschinenprogramm-File 
SEQ : sequentielles File 
REL : relatives File) 


Bild 5. Informationen über die erzeugten Files 

'ILS'üj* 


or 


Zur Speicherung auf Diskette: 

Alle Dateinamen werden jeweils aut 14 Zeichen Länge aufgefüllt. Die 
letzten beiden Stellen (also die 15. und 16. Position) dienen zur Kenn¬ 
zeichnung des File-Typs. Zusätzlich zu den in Bild 2 aufgeführten 
Bezeichnungen (.D/.E/.I/.S/.R) werden noch folgende Abkürzungen ver¬ 
wendet: 

.U Dieses File (PRG) enthält eine Dateimaske, die keiner Datei 
zugeordnet ist. 

.M Dieses File (SEQ) enthält Informationen (Farben/Schrift¬ 
modus) über eine mit ».U« gekennzeichnete Dateimaske. 

.Z Dieses File enthält einen (abgeänderten) Zeichensatz. (PRG) 
.H Dieses File enthält einen Helpscreen. (PRG) 


Variablenliste für Database/Il: 

NN 

erste Datei der als nächstes auszugebenden Seite des 
Datei-Directorys 

Sl 

laufende Nummer (in bezug auf Datei-Directory) der im 
Computer befindlichen Datei 

RV 

RVS-Flag 

P 

Flag für Bildschirmadresse 

DD 

Flag für »Datei-Directory eingeladen« 

DF%(1) 

Hintergrundfarbe (Datei-Directory) 

DF%(2) 

Vordergrundfarbe (Datei-Directory) 

DF%(3) 

Cursorfarbe (Datei-Directory) 

DR 

Schriftmodusflag für Datei-Directory 

DM 

Nummer der auszugebenden Bildschirmmaske 
(für Menüs) 

NF 

aktuelle Feldnummer 

AF 

Anzahl der Felder (gesamt) 

LL 

aktuelle Feldnummer (In bezug auf einzelne Seite) 

FD(.,1) 

enthält Datenfeldanfänge 

FD(.,2) 

enthält Länge der Datenfelder 

F1 %(..) 

Hintergrundfarbe (Dateimaske) 

F2%(..) 

Vordergrundfarbe (Dateimaske) 

F3%(„) 

Cursorfarbe (Dateimaske) 

R(-) 

enthält Ergebnisse der Berechnungen für Rechenfelder 

AT 

Anzahl der Datensätze einer Datei 

F(-) 

enthält Zahlenwerte der Datenfelder 

EA 

Endadresse +1 der Indexdatei 2 

GF 

Anzahl der gelöschten (und noch nicht wieder besetzten 
Datensätze einer Datei) 

NP(1> 

nächster verfügbarer Record zum Schreiben (Low) 

NP(2) 

nächster verfügbarer Record zum Schreiben (High) 

NP(3) 

nächster verfügbarer Record zum Schreiben (Position 
innerhalb Record) 

PO(1) 

Aktueller Record (Low) 

PO(2) 

Aktueller Record (High) 

POP) 

Aktueller Record (Position innerhalb Record) 

11 

Startadresse des Speichers für Länge der Datei 

Lin^*r 

(Indexdatei 2) 

12 

Startadresse des Speichers für Position gelöschter 
Records 

13 

Startadresse des Speichers für Indexe und Record¬ 
positionen 

NS 

Nummer des Schlüsselfeldes 

SL.SH 

Zwischenspeicher für Datensatznummer 

T3 

aktuelle Datensatznummer 

DC 

Flag für »Datensatz im Computer« 

R1$/R2$ 

»Überlaufstrings« für Datensatzspeicherung auf Diskette 
(enthält »Rest« des ersten beziehungsweise letzten 
Records) 

OP(..) 

Zwischenspeicher für Recordzeiger 

14 

Zeiger auf Selektionsmaske 

VZ%(.) 

Feld für Verknüpfungsflags (bei freier Selektion) 

Weitere Variablen (Bedeutung siehe Tabelle 5): 

FF. MF(1), MF(2), MF(3), ME. PT, HP, UG, KS$(..), ME$(.„). FC%(..), ZE, 

SP. FE, C$ 

L$, AD, DD$(.), SN(..), DS(..), GZ, GR, AF%(.). BR%(.), 

RO%(.), SE, PG, ES, S5. FO%(..), RO$(..), FOS(..), MT, AP%(.„). 

HP%(.,.), FM, S3, DU SF, ZG$, AS, FES, HZ, CI, C2, C3, C4, HR, PH(..), 
RS. CB. 

Speicher für diverse Zwecke: siehe Tabelle 5. 






Tabelle 6. Variablen im Teil »Datenpflege« 


MP-P-2 Datenfeldberechnungsroutine/Bildschirmmasken¬ 
generator I 

MP-P-3 Bildschirmmaskengenerator II 
MP-P-4 Diverse Maschinensprache-Hilfsprogramme/Eingabe- 
routinen/Nach oben scrollen/Nach unten scrollen 
MP-P-5 Rechengenerator/Indexverwaltung/Stringvergleich/ 
BSC/ASC-Wandler 


Tabelle 7. Die einzelnen Maschinenroutinen 
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Bestellungen aus 
nnderon UlnOorn 
bitlo per Auslands¬ 
postanweisung' 


Bestellungen aus der 
SchwoU bitte direkt an: 

MaiktSTechnik Vertriebs AG 
Ko«orotTUM»o 3 
CH-6300 Zug 
Tel. 042/415656 


Bestellungen aus 
Österreich bitte direkt an 
Bucherzentrum Meidling 
Scbönbrunnerslr 261 

1120 Wien 

Tel 0222/833196 
Microcomput-ique 
Erhard Schiller 
Fosangosso 21 
1030 Wien 
Tel 0222/785661 


"SSSS' Unser Angebot 

Leser-Service 

Der Commodore 64 hat schon 
oft bewiesen, wie vielseitig er 
ist. Er läßt sich nicht nur mit Pro¬ 
grammen, sondern auch durch 
so manche Hardware-Erweite¬ 
rung sinnvoll nutzen und aus¬ 
bauen. Dabei ist es sicherlich 
ein reizvoller Bestandteil des 
Computer-Hobbys, sich solche 
Erweiterungen selbst nachzu¬ 
bauen. Aber nicht jeder Leser 
verfügt über die Gelegenheit 
und Zeit zur Platinenherstel¬ 
lung. Hinzu kommt, daß es oft zu 
teuer ist, wegen einer bestimm¬ 
ten Erweiterung, Investitionen 
von mehreren hundert Mark für 
eine Platinenstation zu tätigen. 

Wir haben reagiert: Ab sofort 
besteht die Möglichkeit, im Rah¬ 
men des Leser-Service, die in 
der 64’er abgedruckten Hard¬ 
ware-Erweiterungen in drei ver¬ 
schiedenen Ausbaustufen zu 
erhalten: 

1. Als Platinen 

Nur Leerplatinen. Die Be¬ 
schaffung der Bauteile und der 
Zusammenbau bleibt bei Ihnen. 

2. Als Bausätze 
Unsere Bausätze enthalten alle 
Teile, die notwendig sind, um 
die beschriebene Erweiterung 
komplett aufzubauen. Sie brau¬ 
chen die Bauteile nur noch 
gemäß der Anleitung in dem je¬ 
weiligen Heft zusammenzulöten 
und einzubauen. 

3. Als Fertiggeräte 
Die Fertiggeräte sind komplett 
aufgebaute und geprüfte 
Geräte. Sie brauchen die Erwei¬ 
terung lediglich noch einzu¬ 
bauen. 

Wichtiger Hinweis: Wir bemühen uns 
um eine umgehende Auslieferung 
Ihrer bestellten Hardware. Aber bis 
zum Eingang Ihrer Überweisung, der 
Auftragsabwicklung und der dazuge¬ 
hörenden Postwege vergehen minde¬ 
stens 3 Wochen. Bitte haben Sie Ver¬ 
ständnis, wenn aus diesen Gründen 
Ihro Hardware nicht sofort bei Ihnen 
eintrifft. 


Angebot 1: 


Expansion-Port Eprom-Platine mit 1 x 8 KByte 
Speicherplatz für 2732 bis 2764 E pro ms. 

Beschreibung in Ausgabe 10185 
Bestellnummer HW 010 pro Slück 

Dieser Artikel wird nur als Fertiggerät angeboten. 


19,80* 


Angebot 2: 


Expansion-Port Eprom-Platine 

mit 2x8 KByte Speicherplatz für 2732 bis 2764 

Eproms, mit Umschaltmüglichkeit. 

Beschreibung in Ausgabe 10/85 

Leerplatine na Qf\* 

Bestellnummer: HW OZO ^q^ nni im—iStück 

pro Slück 49,80* 
pro Stück 59,80* 


Bausalz mil allen Teilen: 
Bestellnummer HW 021 


Fertiggerät, getestet, wie beschrieben: 
Bestellnummer HW 022 

Angebot 3: 


Eprom Trans — Die Speichererweiterung 

ROM-Spelchererweiterung zum Einbau in den C64, gleichzeitig Steckpietz 
tür ein Original- oder ein alternatives Betriebssystem. Zwol Platinen in 
Epoxid-Harz-Auslührung wie in Ausgabe 10/85 beschrieben. 


Leerplatine 

Bestellnummer: HW 030 


pro Stück 


49,80* 

119,80* 


Bausatz mit allen Tellen: 

Bestellnummer: HW 031 pro Stück 

Eprom-Trans ist nicht als Fertiggerät erhältlich. Die Hardware-Erweiterungen aus 
früheren Ausgaben und die 40/80 Zeichen-Umschaltung für den C128 werden 
wir so bald als möglich In unser Angebot aufnehmen. 


Angebot 4: 


Super Kernal 

Erweitertes Betriebssystem tür den C 64 mit vielen neuen Funktionen inkl. 
Adaptersockel, einbaufertig in den C 64. 

Beschreibung in Ausgabe 11/85 

Version 1 : Enthält Hypra Load / DOS 5.1 / Funktionstastenbelegung / 
Renew / RS232 

Bestellnummer: HW 040 

Version 2: Enthält Hypra Load / DOS 5.1 / Funktionstastenbelegung / 
Renew / Super Centronics Schnittstelle 

Bestellnummer: HW 041 

Version 3: Enthält Hypra Load / DOS 51 / Funktionstastenbelegung / 
Renew / Hypra Save 

Bestellnummer: HW 042 

Version 4: Enthalt Hypra Load / DOS 5.1 / Funkttonstasten / Hypra Save / 
Centronics klein 

Bestellnummer: HW 043 OQ Qf% * 

Preis tür jede Version pro Stück: 39,80 


Alle Preise Inklusive Mehiwoilsleuer 


Qualität & Service 

• Die 64'er Hardware hat 
einen hohen Qualitätsstan¬ 
dard. Wir verwenden nur 
beste Epoxid-Harz-Platinen 
mit Lötstopp-Lack. 

• Wir verwenden nur Präzi¬ 
sionssockel mit gedrehten 
Kontakten. 

• Alle Platinen werden pro¬ 
fessionell gefertigt. Wenn 
notwendig mit doppelseiti¬ 
ger Beschichtung und Löt- 
Durchkontaktierungen. 

• Jedes Gerät, das wir versen¬ 
den, wurde auf Funktions¬ 
tüchtigkeit geprüft. 

• Wir sind auch nach dem 
Verkauf für Sie da. 

Neben der gesetzlichen 
Garantie bietet unser 
Service- und Fertigungs¬ 
partner Ihnen Hilfe und 
Unterstützung an. 

Unsere Garantie 

Im Rahmen der Versand- und 
Lieferbedingungen unterlie¬ 
gen die Geräte einer Gewahr¬ 
leistungszeit von 6 Monaten 
ab Lieferung. Der Lieferung 
liegt eine Service-Karte bei, 
die Sie im Falle einer Be¬ 
anstandung zusammen mit 
dem Gerät an die auf der Karte 
vermerkte Adresse schicken 
können. Die gleiche Karte ver¬ 
wenden Sie bitte bei Repara¬ 
turen nach der Garantiezeit. 

Wie bestelle ich? 

Alle Hardware-Erweiterun¬ 
gen, die Sie bestellen können, 
tragen einen Bestellverweis 
am Ende des Artikels im jewei¬ 
ligen Heft. Falls Sie keinen 
Hinweis finden, hat sich der 
Autor dieser Erweiterung 
nicht dazu entschließen kön¬ 
nen, seine Entwicklung im 
Rahmen des Leserservice für 
eine Verbreitung freizugeben. 
Bitte verwenden Sie für Ihre 
Bestellung immer die beilie¬ 
gende Postscheck-Zahlkarte 
oder einen Verrechnungs¬ 
scheck. Sie erleichtern uns 
damit die Auftragsabwicklung 
und sparen sich Versand¬ 
kosten. 


G4«r-onllne.de 

64er-online.net 
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Finanzen 


Buchführung - 
leicht ver¬ 
ständlich mit 
»Bufueg« 

Grundkenntnisse der Buchführung 
sind nicht nur für zukünftige Manager- 
Generationen wichtig. Wer weiß, wie 
gebucht wird, hat in jedem Beruf Vor¬ 
teile, denn wirtschaften heißt buchen. 

Das Programm »Bufueg« ist auf der Grundlage der Kennt¬ 
nisse über Buchführung der Klasse 11 und 12 entstanden, 
genügt aber auch den Anforderungen der Klasse 13. Es ist 
deshalb nicht für die professionelle Arbeit in einem Betrieb 
geeignet, sondern vielmehr ist es als Hilfe für den Anfänger 
auf dem Gebiet der Buchführung gedacht. »Bufueg« kann 
zum Beispiel als Kontrolle für die Berechnung von Zahlenwer¬ 
ten dienen, hilft, den Abschluß von Konten zu überprüfen, 
und ist auch unter dem Aspekt sehr nützlich, daß jegliche 
Schreibarbeit auf vielen Seiten T-Kontenpapier entfällt. 

S*€B 


Beschreibung 
der Programmfunktion 


Nach dem Laden des Programms von Datasette oder 
Floppy-Disk erscheint nach der Eingabe von RUN zunächst 
die Programmüberschrift, dann das Hauptmenü. Aus 
buchungstechnischen Gründen ist die Auswahl im ersten 
Schritt auf das Erstellen der Eröffnungsbilanz beschränkt. Auf 
Druck der Taste »1« folgt die Möglichkeit, zuerst alle Aktiv-, 
dann alle Passivkonten einzugeben. Die jeweiligen Anfangs¬ 
bestände werden dabei unter »Betrag« eingegeben. Neben 
den schon im Programm enthaltenen Maßregeln ist zusätzlich 
zu beachten: 

1. Es können maximal nur 17 Aktiv- und 16 Passivkonten ein¬ 
gegeben werden, was aber für die Buchführungsaufga¬ 
ben, die der Anfänger zu lösen hat, durchaus ausreicht. 

2. Je höher die Zahl der in der Eröffnungsbilanz enthaltenen 
Konten, desto geringer ist die Möglichkeit, später eine 
bestimmte Anzahl neuer Konten zu eröffnen, da das Pro¬ 
gramm nur 19 Aktiv-, 19 Passiv- und 12 neueröffnete 
Unterkonten von Eigenkapital verwalten kann. Dies bedeu¬ 
tet zum Beispiel: Eingabe von 17 Aktivkonten für die Eröff¬ 
nungsbilanz hat zur Folge, daß später nur noch 2 Aktivkon¬ 
ten (Bild 1) neu eröffnet werden können. 

3. Die Eingabe des Kontos »Waren« als erstes Aktivkonto 
bewirkt die in der Buchführung übliche Aufteilung dieses 
Kontos in die Konten »Wareneinkauf« und »Warenverkauf« 
im Programm. 

4. Die Konten »Mehrwertsteuer« und »Vorsteuer« haben eine 
besondere Stellung im Programm. Anfangsbestände die¬ 
ser beiden Konten auf der Aktiv- oder Passivseite der 
Eröffnungsbilanz können eingegeben werden, ohne daß 


das Programm diese später als Aktiv- oder Passivkonten 
behandelt. 

5. Das Konto »Eigenkapital« und sein Anfangsbestand 
werden vom Programm eigenständig in die Eröffnungsbi¬ 
lanz eingetragen. Es braucht also niemals eingegeben zu 
werden. 

Hat man alle Konten und Anfangsbestände der Eröffnungsbi¬ 
lanz eingegeben, so erscheint diese auf dem Bildschirm. 
Folgt man dann der wenig später erscheinenden Aufforde¬ 
rung »Space drücken«, so springt das Programm zum 
Anfangsmenü zurück. Sollte das Konto »Waren« als erstes 
Aktivkonto eingegeben worden sein, wird vorher noch der 
Warenschlußbestand abgefragt, der ja in der Regel bekannt 
und für den Abschluß der Warenkonten von entscheidender 
Bedeutung ist. Befindet man sich jetzt wieder im Hauptmenü, 
so fällt sein erster Auswahlpunkt für den weiteren Verlauf 
weg, da die Eröffnungsbilanz nicht nochmals erstellt werden 
muß. < 

Im zweiten Menüpunkt, dem »Buchen« gibt es vier Möglich¬ 
keiten, einen Buchungssatz einzugeben: 

1. Buchungssatz: KASSE an BANK 12000 DM 

Eingabe: Konto? KASSE Konto? BANK 

Betrag? 12000 Betrag? 12000 

an 

Konto? Q Konto? Q 

2. Buchungssatz: KASSE 1000 an BANK 1100 

MWST 100 

Eingabe: Konto? KASSE Konto? BANK 

Betrag? 1000 Betrag? 1100 

Konto? MWST Konto? Q 

Betrag? 100 

3. Buchungssatz: KASSE 1100 an BANK 1000 

MWST 100 

Eingabe: Konto? KASSE Konto? BANK 

Betrag? 1100 Betrag? 1000 

an 

Konto? Q Konto? MWST 

Betrag? 100 

4. Buchungssatz: KASSE 1000 an LOEHNE 1500 

BANK 2000 MWST 1500 

Eingabe: Konto? KASSE Konto? LOEHNE 

Betrag? 1000 Betrag? 1500 

Konto? BANK Konto? MWST 

Betrag? 2000 Betrag? 1500 


WE 


Wareneinkauf 

WV 

- 

Warenverkauf 

MWST 

= 

Mehrwertsteuer 

VST 

= 

Vorsteuer 

AB 

= 

Anfangsbestand 

SB 

= 

Schlußbestand/Schlußbilanz 

EK 

= 

Eigenkapital 

G+V 

= 

Gewinn-und-Verlust-Konto 


Bild 1. Liste aller vom Programm für verschiedene 
Kontennamen benutzten Abkürzungen 
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a) Programmaufschlüsselung nach Zeilennummern 


10 

- 

30 

Adresse des Autors: Name des Programms 

41 

- 

44 

Programmüberschrift auf Bildschirm 

45 


50 

Dimensionieren der Strings, in denen später die 
Kontennamen stehen 

60 


170 

Anfangsmenü aufzeichnen, je nach Auswahl ver¬ 
zweigen 

198 

- 

799 

Eröffnungsbilanz erstellen 

198 


362 

Abfragen der Aktiv- und Passivkonten und Spei¬ 
chern in den jeweiligen Stringfeldem 

363 

“ 

675 

Berechnung des Eigenkapitals. Zeichnen der 
Eröffnungsbilanz auf den Bildschirm 

676 


693 

Einrichten der Warenkonten; Abfragen des Waren¬ 
schlußbestandes 

693 


799 

Eintragung der Anfangsbestände in die Stringfel¬ 
der. Änderungen/Neueintragungen ln Stringfelder 
aufgrund besonderer Eingaben wie MWST- oder 
VST-Anfangsbestände und so weiter 

800 

- 

1168 

Buchen 

800 

- 

910 

Erklärungen zum Buchen. Aufzeichnung des Bil¬ 
des für die Buchung auf dem Bildschirm 

910 

- 

993 

Abfragen der zu buchenden Konten 

995 

- 

1016 

Prüfen, ob zu buchende Konten schon in den 
Stringfeldern enthalten sind 

1020 


1147 

Ablegen der eingegebenen Konten in die jeweili¬ 
gen Stringfelder 

1160 

- 

1168 

Abfrage, ob weiterbuchen oder nicht 

2000 

- 

2422 

Konten einsehen 

2000 


2053 

Abfrage, welches Konto man ansehen will. Prüfen, 
ob Konto schon in Stringfeldern enthalten ist 

2060 


2080 

Zeichnung des Konten-»T«'s. Verzweigung Je nach 
Kontenart 

2085 

- 

2195 

Zeichnen des gewünschten Aktivkontos 

2220 

- 

2295 

Zeichnen des gewünschten Passivkontos 

2300 

~ 

2395 

Zeichnen des gewünschten Unterkontos von 
Eigenkapital 

2400 

- 

2422 

Abfrage, ob weiter ansehen oder nicht 

2500 

- 

2668 

Konten abschließen 

2500 

~ 

2580 

Menü für Kontenneueröffnung. Verzweigung je 
nach Auswahl 

2590 

~ 

2655 

Aufnahme des neueröffneten Kontos ln das jewei¬ 
lige Stringfeld 

2660 


2668 

Abfrage, ob weiter mit neueröffnen oder nicht 



Konto? 

11$ 

Konto? 

EE$ 


Betrag? 

10$ 

Betrag? 

ER$ 




an 



Konto? 

01$ 

Konto? 

RES 


Betrag? 

00$ 

Konto? 

RR$ 


Bild 2. Variablen, die beim Buchen benutzt werden 


Der dritte Auswahlpunkt des Menüs ist auch einfach zu 
handhaben. Es wird gefragt, welches Konto man ansehen 
möchte, und nach Eingabe des gewünschten Kontos folgt 
seine Aufzeichnung auf dem Bildschirm. 

Im vierten Punkt, dem »Konten neu eröffnen«, kann ein Pri¬ 
vatkonto (Eingabe: »Privat«) als Unterkonto von Eigenkapital 
eröffnet werden. Dieses wird beim Abschluß der Konten 
' gesondert behandelt, das heißt nicht über »Gewinn-und- 
Verlust« abgeschlossen, wie die anderen Konten dieser 
Gruppe, sondern über das Eigenkapitalkonto, wie es in der 
Buchführung allgemein üblich ist. 

Hat man schließlich alle Buchungssätze ausführen lassen 
und möchte die Konten abschließen, so wählt man den Punkt 
5 des Menüs. Dort werden alle Konten nach folgenden 
Regeln abgeschlossen: 

a) Alle Aktiv- und Passivkonten über das Schlußbilanzkonto 


2700 - 

8970 

Konten abschließen 

2800 - 

2860 

Aufzeichnen der abgeschlossenen Aktivkonten 

3800 - 

3860 

(mit Buchnasen etc.) 

Aufzeichnen der abgeschlossenen Passivkonten 

4800 - 

4860 

Aufzeichnen der abgeschlossenen Unterkonten 

5004 - 

5055 

von Eigenkapital 

Aufzeichnen des Menüs für den Warenkontenab¬ 

5060 - 

5810 

schluß. Verzweigung je nach Auswahl. 
Bruttoabschluß der Warenkonten 

6000 - 

7800 

Nettoabschluß der Warenkonten 

7880 - 

7950 

Abschluß des »G+V«-Kontos 

8000 - 

8090 

Abschluß des Eigenkapitalkontos 

8100 - 

8185 

Abschluß der Steuerkonten (»MWST« und »VST«) 

8900 - 

8970 

Schlußbilanz aufzeichnen 

40000 - 

40050 

Routine zum Zeichnen des Rahmens um Menüs 

50000 - 

50006 

etc. 

Routine zum Zeichnen des Konten-»T«'s 

50200 - 

50258 

Routine zum Prüfen, ob ein Kontenname in einem 

50400 - 

50431 

Stringfeld enthalten ist 

Ablegung von Kontennamen und Beträgen in den 

50500 - 

50590 

Stringfeldem 

Routine zum Berechnen des Schlußbestandes 

50600 - 

50690 

beim Abschluß von Aktivkonten 

Routine zum Berechnen des Schlußbestandes 

50700 - 

50790 

beim Abschluß von Passivkonten 

Routine zum Berechnen des Schlußbestandes 

60000 - 

60007 

beim Abschluß von Unterkonten des Eigenkapitals 
Beendigung des Programms, wenn der vom Pro¬ 

60010 

60020 - 

60040 

gramm berechnete Eigenkapitalbetrag lür die 
Eröffnungsbilanz negativ ist 
Verzweigungsadresse, wenn im Anfangsmenü 
Punkt »6« der »Neuanfang« gewählt wird 
Bekanntgabe, falls kein Aktiv-, Passiv- oder Unter- 


konto von Eigenkapital vom Programm mehr ver¬ 
waltet werden kann 


b) Liste der wichtigsten Variablen 

A$ Enthält alle Aktivkonten, ihre Anfangsbestände und 

alle Buchungen, die mit Aktivkonten Zusammenhän¬ 
gen 

BS Enthält alle Passivkonten, ihre Anfangsbestände und 

alle Buchungen, die mit Passivkonten Zusammen¬ 
hängen 

C$ Enthält die Konten EK, WE, WV, MWST, VST und 

alle neueröffneten Unterkonten von Eigenkapital, alle 
Anfangsbestände und Buchungen auf diesen Kon¬ 
ten, alle Posten des »G+V«-Kontos und der Schluß¬ 
bilanz 

A,B,C Zählvariablen für die Anzahl der eröffneten Aktiv-, 

Passiv- und Unterkonten von Eigenkapital 

KKS Warenschlußbestand 

LK Gibt an, ob die Aktiv- oder Passivseite bei Buchun¬ 

gen betroffen ist 

XY-, YX-, NM-, 

MN$ Strings, die beim Buchen in den Stringfeldem A- 

string, B-string beziehungsweise C-string abgelegt 
werden 

KL Zeigt an, ob es sich um ein Aktivkonto (KL=1), ein 

Passivkonto (KL=2), ein Unterkonto von Eigenkapi¬ 
tal (KL=3) oder um ein dem Programm nicht 
bekanntes Konto (KL=4) handelt 

IY. Yl Zählvariablen für die Anzahl der auf Aktiv- (IY) oder 

Passivseite (Yl) eines Kontos stehenden 
Posten/Kontennamen und Beträge 

FG$ Enthält beim Abschluß der Konten das jeweilige 

Abschlußkonto (zum Beispiel Aktivkonto: FG-string 
= »SB«; Unterkonto von Eigenkapital: FG-string = 
»G+V«) 


Bild 3. Programmbeschreibung 
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C 64 


Finanzen 


b) Alle Unterkonten von Eigenkapital über das »Gewinn-und- 
Verlust«-Konto 

c) Ein eventuell eröffnetes »Privat«-Konto über das Eigenka¬ 
pitalkonto 

d) Falls Warenkonten eröffnet worden sind, werden diese je 
nach Wahlmitdem Sruttoabschluß (das heißt, »Warenein¬ 
kauf«- und »Warenverkauf«-Konto werden mit dem 
»Gewinn-und-Verlust«-Konto abgeschlossen) oder mit 
dem Nettoabschluß (das heißt, das »Wareneinkauf«-Konto 
wird über das »Warenverkaufs-Konto abgeschlossen und 
dieses wiederum über das »Gewinn-und-Verlust«-Konto) 
abgeschlossen. 

e) Das »Gewinn-und-Verlust«-Konto über das Eigenkapital¬ 
konto 

f) Das Eigenkapitalkonto über das Schlußbilanzkonto 

g) Das »Vorsteuer«-Konto über das »Mehrwertsteuer«-Konto 

h) Das »Mehrwertsteuer«-Konto über das Schlußbilanzkonto 


Hat das Programm alle Konten abgeschlossen, kehrt es 
wieder zum Anfangsmenü zurück. Als Auswahl bleibt jetzt nur 
noch Punkt 6, nach dessen Ausführung man das Programm 
neu starten und eine neue Buchführungsaufgabe beginnen 
kann, und Punkt 3, das »Konten einsehen«. Hier werden alle 
abgeschlossenen Konten nochmals nacheinander aufge¬ 
zeichnet. Dieser Menüpunkt kann dann noch beliebig oft wie¬ 
derholt werden. Selbstverständlich kann das Programm noch 
erweitert werden. Die Erläuterung der verwendeten Varia¬ 
blen (Bild 2) und die Programmbeschreibung (Bild 3) sind zu 
diesem Zweck ebenfalls abgebildet. Mit etwas Übung wird es 
Ihnen sicherlich gelingen, so manche betriebswirtschaftliche 
Aufgabe zu lösen. Möglicherweise fertigen Sie sogar einen 
Jahresabschluß für ein kleines Probe-Unternehmen an. 
Eines wird Ihnen dabei auf jeden Fall bewußt werden - auch 
kaufmännische Betriebe können über Ihre Waren-, Kapital- 
und Finanzkontos nicht nach freiem Belieben verfügen. Die 
buchhalterischen und rechtlichen Bestimmungen stecken 
einen relativ engen Rahmen ab, den es geschickt auszulegen 
heißt. Diese Arbeit kann Ihnen aber kein Programm abneh¬ 
men, denn dazu gehört Kreativität und Einfallsreichtum. Das 
sind aber Bereiche, in denen sich Computer heute noch nicht 
mit dem Menschen messen können. 

(V. Gill/aw) 


47 JJS="{WHITE,RIGHT>= 


=£3SPACE>= 


==*======== {3SPACE >====== {GREEN > " < 255> 

48 RO*=" {WHITE ,RIGHT> CCCCCCC_C {3SPACE> CCCCC 

.CC-_CC.CqcC_CC {5SPACE> .CCCCCJC. {GREEN> 11 <091 > 

49 LM*= "{WHITE,RIGHTI CCCC.C.CJ.C VtUP,LEFT>H£S 

{DOWN J.C.-.C 

REEN>“ 


50 BB=1:C=4:KK=1:LL=1:MM=1:NN=1 
60 GOSUB 40000:PRINT"<HOME5"iFOR 1=1 TO 3: 

PRINT:NEXT:PRINT SPC<3>“MENUE :“ 

65 PRINT SPC (3) "TZZTiTZ“ 

70 PRINT:PRINT:PRINT SPC(3)"EROEFFNUNGSBIL 

ANZ ERSTELLEN-(1)“ 

B0 PRINT SPC(3)"BUCHEN. 

.( 2 ) “ 

90 PRINT SPC(3)"KONTEN EINSEHEN. 

.(3) “ 

100 PRINT SPC(3)"KONTEN NEUEROEFFNEN. 

.<4> « 

110 PRINT SPC(3)"KONTEN ABSCHLIESSEN. 

.(5) “ 

120 PRINT SPC(3)"NEUANFANG. 

.( 6 ) " 

140 PRINT:PRINT:PRINT SPC(5)"{RVSON,SPACEJ 
WIE IST IHRE WAHL ?{SPACE,RVOFF,SPACE} 

150 GET V*:IF V*=”"THEN 150 
160 IF VAL(V*)<1 OR VAL(V *>>6 THEN 60 
170 ON VAL(V*)GOTO 198,B00,2000,2500,2700, 
60010 

198 IF YU=1 THEN 60 

199 YU=1 

200 GOSUB 40000 

201 PRINT"<HOME>“:FOR 1=1 TO 2:PRINT:NEXT: 
PRINT SPC14)"GEBEN SIE BITTE DIE BENOE 
TIGTEN" 

210 PRINT SPC(4)"AKTIVKONTEN UND IHRE ANFA 
NGSBE-" 

215 PRINT SPC(4)"BESTAENDE (IN D-MARK) EIN 
! " 

216 PRINT:PRINT SPC(4)"8EI KONTENNAMEN MIT 
-HR AI S ACHT " 

217 PRINT SPC(4)"BUCHSTABEN LAENGE WAEHLEN 
SIE" 

21B PRINT SPC(4)"BITTE EINE ABKUERZUNG !" 

219 PRINT:PRINT SPC(4)"AUSSERDEM MUESSEN S 
IE DAS WAREN-" 

220 PRINT SPC(4)"KONTO (FALLS VORHANDEN) Z 
UERST" 

221 PRINT SPC(4)“EINGEBEN (EINGABE : "WARE 
N' > ! " 

222 PRINT:PRINT SPC(4)"DRUECKEN SIE CT NA 
CH BEENDIGUNG" 

225 PRINT SPC(45"DER EINGABE !": 

230 PRINT:PRINT:S=4:GOSUB 9000 
235 PRINT"(CLR>":PRINT:PRINT:PRINT 
240 FOR A=0 TO 16 

250 PRINT:PRINT SPC(5):INPUT"KONTO";A4(A,0 
,0):IF A$(A,0,0)=“E"THEN 274 


< 128> 
< 10B> 


<137> 

<023> 


<047> 


<063> 


< 112 > 


<188> 


<116> 


<038> 


<196> 
< 139> 
<066> 

<081 > 
<030> 
<039> 
<204> 


10 

REM«« 



<025> 

255 

13 

REM* 


* 

<062> 

260 

14 

REM» 

'BUFUEG' 

* 

< 166> 


15 

REM» 


# 

<064> 

261 

17 

REM* 

BUCHFUEHRUNGS- 

# 

<003> 

262 

19 

REM* 

PROGRAMM 

tt 

<124> 

263 

20 

REM* 


* 

<069> 


21 

REM* 

VOLKER GILL 

# 

<209> 

264 

22 

REM*FR.-RECHBERG-STR.15* 

< 194> 


23 

REM* 

6430 BAD HERSFELD 

* 

<094> 

265 

24 

REM* 

TEL.06621776361 

* 

<087> 


25 

REM* 


# 

<074> 

266 


<045> 


30 REM****-»*******-»*«*»**** 

41 PRINT"{CLR>":POKE 53280,0:POKE 53281,0: 

GOSUB 40000 

42 PRINT“<HQME,WHITE>":FOR 1=1 TO 8:PRINT: 

NEXT:PRINT SPC(16)"BUFUEG" 

43 PRINT:PRINT SPC(16)"BY V.G.“ 

44 PRINT:PRINT SPC(16)“£19855" 

45 DIM A*(18,20,3>,B*(1B,20,3>,C*(20,25,3> 

,D*(17,3> <063> 

46 DD$="{WHITE■RIGHT > C.E.C.Q.C.CCC (3SPACE> .C.C.C.C.C. 

.q.P.-c.c.c.cc.c.cc.y{UP,LEFT}W£c.{DOWN>c.c.c.c.c^c.{G 
REENJ“ <034> 


<048> 

<216> 
< 170> 

< 110 > 


, 0 , 1 ) 


IF A*(A,0,0>="MWST"THEN C*(3,1,0)=“AB" 
:C*(3,1,1)=A*(A,0,1):DG=DG+1 


<048> 

<139> 

<046 > 

<150> 

<003> 

<143> 

<232 > 

<136> 

<00B> 

<192> 
<243> 
<230 > 

<090> 

<040> 

<004 > 

<233> 

<065 > 
<049> 

0<234> 

<246 > 


“:D*(PT,1)=A*(A,0,1>:PT=PT+1:GOTO 271 <010> 


C*(4,1,1)=A*(A,0,1):DG=DG+1 
IF A*(A,0,0)="VST"THEN D*(PT,0)="VST": 
D* (PT , 1 > = A* (A, 0 , 1 > : PT=PT +1 

271 NEXT 

272 FOR 1 = 1 TO 3: PRINT:NEXT:PRINT SPC(5)"M 
OEGLICHE KONTENANZAHL ERSCHOEPFT •" 

274 PRINT:PRINT SPC(5)"ALLE EINGABEN RICHT 
IG 7 (J/N)“ 

275 GET L*: IF L*="J"THEN 280 

276 IF L*="N"THEN PRINT“{CLR>":PRINT:PRINT 
:PRINT:GOTO 240 

277 GOTO 275 
280 GOSUB 40000 

2B1 PRINT"{HOMEJ":FOR 1=1 TO 3:PRINT:NEXT: 


<227> 

<025 > 
<027 > 

<161 > 

<250> 

<223> 

< 119> 
<231 > 
<030 > 


Listing Buchführungsprogramm. Bitte verwenden Sie den Checksummer 64 V3 auf Seite 6. 


































Finanzen 


C 64 


PRINT SPC(4)"GEBEN SIE BITTE JETZT DIE 
PASSIV-" 

290 PRINT SPC(4)"KONTEN UND IHRE ANFANSSBE 
STAENDE “ 

295 PRINT SPC(4)“(IN D-MARK) EIN !“ 

296 PRINT:PRINT SPC(4)"WAEHLEN SIE AUCH HI 
ER EINE ABKUER-" 

297 PRINT SPC(4)“ZUNG BEI KONTENNAMEN MIT 
MEHR ALS" 

298 PRINT SPC(4)"ACHT BUCHSTABEN LAENGE !" 

300 PRINT:PRINT SPC(4)“BENUTZEN SIE WIEDER 

•Q- ZUM BEEN—" 

310 PRINT SPC(4)"DEN DER EINGABEN !" 

315 PRINTsPRINT:S=4:GOSUB 9000 

319 PRINT"<CLR>":PRINT:PRINT:PRINT 

320 FOR B=0 TO 15 

330 PRINT:PRINT SPC(5):INPUT"KONTO";B*(B,0 
,0)iIF BS<B,0,0)="B"THEN 354 

335 IF LEN(B*(B,0,0 ))>8 THEN 280 

340 PRINT SPC(7):INPUT"£RVSON>BETRAG"sBS<B 
, 0 , 1 ) 

341 IF LEN(BS(B,0,1 ))>8 THEN 340 

342 IF VAL(BS(B,0,1>)<=0 THEN 340 

343 IF BS<B,0,0)="MWST"THEN CS<3,1,2>="AB" 
:CS<3,1,3>=BS(B,0,1):DH=DH+1 

344 IF BS(B,0,0)="MWST"THEN ES(TP,0)="MWST 
":ES(TP,1>=BS(B,0,1):TP=TP+1:GOTO 351 

345 IF BS(B,0,0)=“VST"THEN CS(4,1,2)="AB": 
CS(4,1,3)=BS(B,0,1):DH=DH+1 

346 IF BS(B,0,0)="VST"THEN ES(TP,0)="VST“: 
ES(TP,1)=BS(B,0,1):TP=TP+1 

351 NEXT 

352 FOR 1=1 TO 3:PRINT:NEXT:PRINT SPC(5)“M 
OEGLICHE KONTENANZAHL ERSCHOEPFT !" 

353 BSC 16,0,0)="Q" 

354 PRINT:PRINT SPC(5)"ALLE EINGABEN RICHT 
IG ? (J/N) ■ 

355 GET LS:IF LS="J"THEN 35B 

356 IF LS="N"THEN PRINT"<CLRJ":PRINT:PRINT 
:PRINT:GOTO 320 

357 GOTO 355 

358 IF BS(B,0,0).= "Q”THEN PRINT" CCLRJ“ 

360 IF A=0 AND B=0 THEN YU=0:BOTO 60 

361 IF BS(0,0,0)="Q“THEN BS(0,0,0>="" 

362 IF AS(0,0,0)="Q”THEN AS(0,0,0>="" 

363 A=A—1:B=B-1:FOR AZ=0 TO A:UU=UU+VAL < AS 
(AZ,0,1)) 

364 NEXT 

365 FOR AZ=0 TO B 

366 HH=HH+VAL(BS(AZ,0,1>) 

367 NEXT 

368 JJ=UU—HH:CCS=RIGHTS(STRS(JJ),LEN(STRS( 
JJ))-l):IF JJ<0 THEN GOTO 60000 

369 PRINT"£CLR>":GOSUB 50000 

370 PRINT"£HOME>":PRINT SPC<11>"£REDJEROEF 
FNUNGSBILANZ £WHITE>" 

375 BS(B+1,0,0)="EK“:BS(B+1,0,1)=CCS 

376 IF A>B+1 THEN MK=2:G0T0 400 

377 IF A<B+1 THEN MK=1 

390 PRINT"£HOME,GREEN>":FOR 1=1 TO 3:PRINT 
: NEXT 

391 FOR SS=0 TO A:PRINT SPC(1)AS(SS,0,0)TA 
B < 18—LEN (AS <SS,0,1 > ) > VAL < AS (SS,0,1) ) 

392 NEXT 

393 IF MK=2 THEN GFS=DDS:RT=A:GOTO 420 

400 PRINT“£HOME,GREEN!“:FOR 1=1 TO 3:PRINT 
:NEXT 

401 FOR SS=0 TO B+l:PRINT TAB(20)BS(SS,0,0 
)TAB <37—LEN(BS(SS,0,1>))VAL(BSC SS,0,1) 
> 

405 NEXT 

406 IF MK=2 THEN 390 

407 IF MK=1 THEN GFS=LMS:RT=B+1:GOTO 420 

410 GFS=ROS:RT=A 

420 PRINT GFS:PRINT TAB(19-LEN(STRS<UU)))U 
U TAB(38—LEN(STRS(UU)))UU:PRINT JJS 

421 FOR AZ=2003 TO 1043+(8+RT)*40 STEP-40: 
POKE AZ,32:NEXT 

422 FOR SP=0 TO A:DS(SP,0)=AS(SP,0,0):DS(S 
P,1)=AS <SP,0,1):NEXT 

423 FOR SP=0 TO B:DS(SP,2)=BS(SP,0,0):DS(S 
P,3)=BS(SP,0,1):NEXT 

424 DS(B+1,2) = *'EK“:DS( B+1,3)=CCS 

672 IF B=—1 THEN BS(B+l,0,0)="0“:BS(B+l,0, 
1 )■=-": GOTO 675 



674 

< 182> 

675 


676 

<067> 

677 

<252> 

678 

<039> 

680 

<020> 

681 

< 137> 

685 

<059> 

<211 > 
<061 > 

6 B6 

< 176> 

< 129 > 

687 

< 131 > 

688 

< 156> 

689 

< 181 > 

690 

<150> 

691 

<067> 

692 

<208> 

693 


696 

<202> 


< 157> 

697 


698 

<254> 

<107> 

699 


700 

<241 > 
<061 > 

701 

<074> 

702 

<245> 

704 

<006> 

705 

<026> 

7™A 

-,c; 

<226> 

730 

<15B> 

733 

<149> 

734 

<044> 

735 

< 120> 

750 

<026> 

760 

<042> 

<123> 

770 


771 

<209> 

790 

<148> 

799 

<075> 

800 

<237> 

801 

<208> 

<142> 

802 

<071 > 

810 

<213> 

< 14B> 

820 

<110> 

830 

<081 > 

840 


850 

<21B> 

875 

< 161 > 
<254> 
<053> 

880 

<148> 

B90 

<058> 

891 

<215> 

894 

< 153> 

900 

<070> 

<237> 

910 

< 174> 

915 


BS(B+l,0,0)=“BS(B+l,0,1)="" 

A=A—DG: B=B—DH 

IF AS(0,0,0)<>"WAREN"THEN 693 

CS(1,0,0)="WE":CS(1,1,0)="AB“:CS <1,1,1 

)=AS <0,0,1) 

FOR AZ=0 TO A:AS(AZ,0,0)=AS(AZ+1,0,0): 
AS(AZ,0,1)=AS(AZ+1,0,1):NEXT 
FOR AZ=1 TO 3000:NEXT 
GOSUB 9010:A=A—1 

PRINT"{WHITE,CLR>“sFOR 1=1 TO 7:PRINT: 
NEXT:PRINT SPC(5)"GEBEN SIE BITTE JETZ 
T NOCH DEN" 

PR I NT : PR I NT SPC (5) " WARENSCHLUSSBESTAND 
EIN ! ■ 

FOR 1=1 TO 3:PRINT:NEXT:PRINT SPC(5):I 
NPUT"£RVSON>BETRAG"j KKS:IF LEN(KKS )>8 
OR VAL < KKS)< =0 THEN 685 
FOR 1=1 TO 4:PRINT:NEXT:PRINT SPC(5)"E 
INGABE RICHTIG ? (J/N)“ 

GET LS:IF LS="J"THEN 692 
IF LS="N"THEN 6B5 
GOTO 689 

CS(2,0,0)="WV":CS(1,1,2)="SB":CS <1,1,3 
)=KKS:GOTO 696 
GOSUB 9010 

IF AS(0,0,0)="Q"OR(AS(0,0,0)="MWST“DR 
AS(0,0,0)="VST“)AND AS<1,0,0> = "C"THEN 
701 

FOR AZ=0 TO A 

IF AS(AZ,0,0)="MWST“OR AS(AZ,0,0)="VST 
"THEN GOSUB 750 

AS(AZ,1,0)="AB":AS(AZ,1,1)=AS(AZ,0,1) 
NEXT 

IF BS(0,0,0)="Q"OR(BS(0,0,0)="MWST"OR 
BS(0,0,0)="VST")AND BS(1,0,0)="“THEN 7 
90 

FOR AZ=0 TO B 

IF BS <AZ,0,0)="MWST"OR BS(AZ,0,0)=“VST 
“THEN GOSUB 730 

BS(AZ,1,2)“"AB":BS(AZ,1,3)=BS(AZ,0,1) 

NEXT 

GOTO 790 

FOR SC=AZ TO B 

BS(SC,0,0)=BS(SC+1,0,0):BS(SC,0,1)=BS( 
SC+1,0,1) 

NEXT 

RETURN 

FOR SC=AZ TO A 

AS(SC,0,0)=AS(SC+1,0,0):AS(SC,0,1)=AS( 
SC+1,0,1) 

NEXT 

RETURN 

CS(3,0,0)="MWST":CS(4,0,0)="VST“:CS(0, 
0,0)="EK":CS(0,1,2)="AB":CS(0,1,3)=CCS 
GOTO 60 

IF YUOl OR FR =8 THEN 60 
GOSUB 40000 

’:FOR 1 = 1 TO 3: PRINT: NEXT: 
"GEBEN SIE DEN BUCHUNGSSAT 


'IN DIE FOLGENDE TABELLE E 


<016> 

<10B> 

<092> 

<142> 

<176> 

<028> 

<025> 


<057> 

<105> 


<064> 

<016> 

< 002 > 

<234> 

<056> 

<084> 

<237> 


< 085> 

< 103> 

<051 > 

<029> 

< 202 > 


<12B> 

<109> 

<095> 
<091 > 
<208> 
<063> 
<173> 

<083> 
<236> 
<029> 
<191 > 

<038> 

<01B> 

<067> 

<221 > 
<255> 
<255> 
<043> 


<228> 

<027> 

<053> 

<014> 

<048> 

<0BB> 


PRINT"£HOME >' 

PRINT SPC(4) 

Z“ 

PRINT SPC(4) 

IN !'■ 

PRINT:PRINT SPC(4)"SOLLTEN AUF DER SOL 
L- BZW. HABEN-" 

PRINT SPC(4)"SEITE NICHT ZWEI KONTEN B 
ETROFFEN " 

PRINT SPC(4)“SEIN,SO GEBEN SIE EIN ’Q' 
EIN ! “ 

PRINT:PRINT:S=4:GOSUB 9000 

PRINT“£CLR,3D0WN JSOLL-SEITE"SPC(19)"HA 

BEN-SEITE" 

PRINT“ 


FOR 1=1 TO 12:PRINT:NEXT:PRINT"H???TpT 


PPPPPPPPPPPPPPH" <094> 

PRINT"£HOME>":FOR 1=1 TO 10:PRINT:NEXT 
:PRINT SPC(18)"£RVS0N,4SPACE>" <184> 

PRINT"£HOME>":FOR 1=1 TO 12:PRINT:NEXT 
:PRINT SPC<18)"£RVS0N,4SPACE>" <251> 

PRINT"£HOME>":FOR 1=1 TO 11:PRINT:NEXT 
:PRINT SPC(18)"£RVSON,SPACE>AN " <242> 

PRINT"£HOME>":FOR 1=1 TO B:PRINT:NEXT: 

INPUT"£RIGHT>KONTO";IIS <028> 

IF LEN(IIS )>8 OR IIS=“"THEN 875 <226> 


100 










C 64 


Finanzen 


920 

PRINT SPC(1 > :INPUT“(RVSON»BETRAG";IO* 

<053> 

1137 

LK=0:XY*=EES:MN*=IOS:YXS=RES:NM*="" 

<007> 

925 

IF LEN (IO*) >8 OR IO*=""THEN 875 

<045> 

1138 

ON KL GOSUB 50400,50415,50425 

<095> 

930 

IF VAL(IO*><=0 THEN 875 

<0B7> 

1139 

XX*=OI*:GOSUB 50200 

< 145> 

940 

FOR 1 = 1 TO 3t PRINT:NEXT:PR INT SPC(1):I 


1140 

LK=0:XYS=EE*:MN*=OOS:YX*=RE*: NMS="“ 

<058> 


NPUT"KONTO“;0I* 

<196> 

1142 

ON KL GOSUB 50400,50415,50425 

<099> 

943 

IF OI*="Q"THEN 960 

<151> 

1143 

XX*=RE*aGOSUB 50200 

<084> 

945 

IF LEN (Ol*) >8 OR OI*=""THEN 875 

<032> 

1145 

LK=2:XY*=IIS:MN*=RRS:YX*=OI*:NM*="“ 

<080> 

950 

PRINT SPC(l):INPUT"(RVSONJBETRAG";OOS 

<107> 

1147 

ON KL GOSUB 50400,50415,50425 

<104> 

955 

IF LEN(0O*)>B OR 00*=""THEN 875 

< 107> 

1160 

PRINT"<CLR>":FOR 1=1 TO 5:PRINT:NEXT: 


957 

IF VAL(DOS)=<0 THEN 875 

<052> 


PRINT SPC(6)"{RVSON,27SPACE)" 

<0S2> 

960 

PRINT"{HOME>“:FOR 1 = 1 TO 8:PRINT:NEXT: 


1161 

PRINT SPC(6)"{RVSON,SPACEJWEITER MIT 



PRINT SPC(23 ):INPUT"KONTO“;EE* 

<034> 


BUCHEN 7 (J/N) " 

<231 > 

965 

IF LEN(EE*)>8 OR EE*=""THEN 875 

<209> 

1162 

PRINT SPC(6)"(RVSON,27SPACE>“ 

< 104> 

970 

PRINT SPC(23):INPUT"(RVSON)BETRAG";ER* 

<21B> 

1165 

GET L*:IF L*=""THEN 1165 

< 108> 

975 

IF LEN(ER*)>8 OR ER*=""THEN 875 

<192> 

1166 

IF L*="J"THEN 875 

<200> 

977 

IF VAL(ER*)=<0 THEN 875 

<200> 

1167 

IF L*=“N“THEN 60 

<056> 

900 

FOR 1=1 TO 3:PRINT:NEXT:PRINT SPC(23>: 


1168 

GOTO 1165 

<109> 


INPUT"KONTO";RE* 

<133> 

2000 

IF YUOl THEN 60 

<120> 

9B3 

IF RE*="Q"THEN 990 

< 199> 

2001 

IF FR=B THEN PZ=7:FK=5:LL=1:KK=1:MM=1 


985 

IF LEN(RE*)>8 DR RE*=""THEN 875 

<0BB> 


:NN=1:GOTO 2700 

<078> 

986 

PRINT SPC(23):INPUT"{RVSONJBETRAG";RR* 

<0B2> 

2010 

PRINT"{CLR»":FOR 1=1 TO 4:PRINT:NEXT: 


987 

IF LEN(RR*)>8 DR RR*="“THEN B75 

<063> 


PRINT SPC(6)"WELCHES KONTO WOLLEN SIE 


988 

IF VAL(RR*)<=0 THEN 875 

< 115> 


" 

<001 > 

990 

PRINT"(HOME)":FOR 1=1 TO 20:PRINT:NEXT 


2020 

PRINT:PRINT SPC(6):INPUT"ANSEHEN ”;PO 



:PRINT SPC(4)"ALLE EINGABEN RICHTIG ? 



* 

< 138> 


(J/N) " 

<017> 

2030 

IF LEN(PO*)>8 OR PO*="“THEN 2010 

< 196> 

991 

GET L*:IF L*="J“THEN 995 

<246> 

2040 

PRINT"(CLR >":X X *=PO*:GOSUB 50200 

<077> 

992 

IF L*="N“THEN 875 

<026> 

2050 

IF KL<>4 THEN 2060 

<217> 

993 

GOTO 991 

<143> 

2052 

FOR 1=1 TO 3:PRINT:NEXT:PRINT SPC<6>“ 


995 

XX*=II*t GOSUB 50200 

S126> 


CRVSON,LIG.BLUE,SPACE}DAS KONTO MUSS 


996 

IF KL<>4 THEN 1000 

< 127> 


ERST EROEFFNET " 

<066> 

997 

DS*="ERSTE SOLL-KONTO":GOTO 1014 

<222> 

2053 

PRINT:PRINT SPC(6)"(RVSON,SPACE »WERDE 


1000 

IF OI*="Q"THEN 1006 

<1B9> 


N !(SPACE,WHITE}":GOTO 1016 

<232> 

1001 

XX*=OI*:GOSUB 50200 

<005> 

2060 

GOSUB 50000 

<040> 

1002 

IF KL<>4 THEN 1006 

<229> 

2070 

PRINT"<RED>"TAB(20-(LEN(PO*>/2>)PO* 

<111> 

1003 

DS*="ZWEITE SOLL-KONTO":GOTO 1014 

<018> 

2080 

ON KL GOTO 2085,2220,2300 

<070> 

1006 

XX*=EE*: GOSUB 50200 

<134> 

2085 

PRINT"(HOME,GREENJ":FOR 1=1 TD 3:PR1N 


1007 

IF KL< >4 THEN 1010 

< 146> 


T:NEXT:KJ=1 

<124> 

1008 

DS*="ERSTE HABEN-KONTO":GOTO 1014 

< 128> 

2090 

FOR OP=l TO 20 

<069> 

1010 

IF RE*="Q"THEN 1020 

<094> 

2095 

IF A*(SS,OP,0)=""THEN 2145 

<055 > 

1011 

XX*=RE*:GOSUB 50200 

<206> 

2096 

PRINT TAB(KJ)A*(SS,OP,0) 

<092> 

1012 

IF KL< >4 THEN 1020 

<fS«RF. C 

210« >. : AS (SS,OP, 1 >=""THEN PRINT" (RIGHT,WH 


1013 

DS*="ZWEITE HABEN-KONTO" 

<243> 


ITE>+(UP,GREEN»":KJ=2:GOTO 2110 

<016> 

1014 

FOR 1=1 TO 3:PRINT:NEXT:PRINT SPC(5) M 


2104 

KJ=1 

<024> 


(RVSON,LIG.BLUE,SPACE)DAS " 5 DS*;" MUS 


2105 

PRINT"(UP J"TAB(18—LEN(A*(SS,OP,1))> VA 



S " 

< 097 > 


L (A* ( SS , OP, 1 > > 

<007> 

1015 

PRINTtPRINT SPC(5)"(RVSON,SPACE>ERST 


2110 

NEXT 

<08B> 


EROEFFNET WERDEN !(SPACE,WHITE>" 

<150> 

2145 

IF LQ=2 THEN RETURN 

<089 > 

1016 

FOR AZ=1 TO 6000:NEXT:GOTO 60 

<089 > 

2146 

PRINT"(HOME,GREEN)":FOR 1=1 TD 3:PRIN 


1020 

IF OIS="Q"AND RE*="D“THEN 1025 

<075> 


T:NEXT 

<049> 

1021 

IF QI*<>"Q"AND RE*<>"Q"THEN 1130 

<255> 

2149 

KJ=20 

< 113> 

1023 

GOTO 1060 

<137> 

2150 

FOR OP=l TO 20 

< 129> 

1025 

XX*=II*:GOSUB 50200 

<158> 

2160 

IF A*(SS,0P,2)=""THEN 2400 

<208> 

1030 

LK=0:XY*=EE*:NM*=IO*:YX*="":MN*="“ 

<129> 

2170 

PRINT TAB(KJ)A*(SS,OP,2) 

<16B> 

1035 

ON KL GOSUB 50400,50415,50425 

<248> 

2190 

IF A*(SS,OP,3)=""THEN PRINT SPC(20)"( 


1045 

XX*=EE*: GOSUB 50200 

<175> 


WHITE »+(UP,GREEN »":KJ=21:GOTO 2195 

<066 > 

1047 

LK=2:XY*=II*:NM*=ER* 

< 137> 

2191 

KJ=20 

< 155> 

1050 

ON KL GOSUB 50400,50415,50425 

< 007 > 

2193 

PRINT"(UP >"TAB(37—LEN(A*(SS,OP,3 >)> VA 


1055 

GOTO 1160 

< 1B7> 


L(A*(SS,OP,3)) 

< 191 > 

1060 

IF OI*="Q"THEN XX*=IIS:GOSUB 50200:GO 


2195 

NEXT 

< 173> 


TO 1065 

<066> 

2220 

PRINT"(HOME,GREEN)":FOR 1=1 TO 3:PRIN 


1063 

GOTO 1095 

<0B5> 


T:NEXT:KJ=1 

<003> 

1065 

LK=0:XYS=EE*:YX*=RE*:MN*=IO*:NMS="“ 

< 191 > 

2225 

FOR OP=l TO 20 

<204> 

1076 

ON KL GOSUB 50400,50415,50425 

<033> 

2227 

IF B*(SS,OP,0)=""THEN 2245 

<203> 

1080 

XX*=EE*:GOSUB 50200 

<210> 

2232 

PRINT TAB(KJ)B*(SS,OP,0) 

<10l> 

1081 

LK=2:XY*=II*:NMS=ER*:YX*="":MN*=”" 

<101> 

2235 

IF B*(SS,OP,1> = ""THEN PRINT"(RIGHT,WH 


1082 

ON KL GOSUB 50400,50415,50425 

<039> 


ITEJ+(UP,GREEN)":KJ=2:GOTO 2242 

<219> 

1090 

XX*=RE*:GOSUB 50200 

<031 > 

2237 

KJ=1 

< 157> 

1091 

LK=2:XYS=II*:NM*=RR* 

<029> 

2240 

PRINT"{UP)"TAB(18—LEN(B*(SS,OP,1)))VA 


1092 

ON KL GOSUB 50400,50415,50425 

<049> 


L (B* (SS , OP , 1) ) 

< 166» 

1093 

GOTO 1160 

<225> 

2242 

NEXT 

<220> 

1095 

XX*=EE$:GOSUB 50200 

<225> 

2245 

IF LQ=2 THEN RETURN 

< 1B9> 

1097 

LK=2:XY*=IIS:YX*=OIJ:MNS=ERS: NMS="” 

<184> 

2246 

PRINT"(HOME,GREENJ“:FOR 1=1 TO 3:PRIN 


1100 

ON KL GOSUB 50400,50415,50425 

<057> 


T:NEXT:KJ=20 

< 117> 

1105 

XX*=IIS:GOSUB 50200 

<238> 

2247 

FOR OP=l TO 20 

<226 > 

1107 

LK=0:XY*=EE*:NM*=ID*:VX*="":MN*="“ 

<206> 

2260 

IF B*(SS,OP,2)=”"THEN 2400 

< 060 > 

1110 

ON KL GOSUB 50400,50415,50425 0 

<067> 

2270 

PRINT TAB(KJ)B*(SS,OP,2) 

< 141 > 

1115 

XX*=OI*:GOSUB 50200 

< 121 > 

2290 

IF B*(SS,OP,3)=""THEN PRINT SPC<20>"< 


1117 

LK=0:XY*=EE*:NM*=00* 

<078> 


WHITEJ +(UP,GREEN)":KJ=21:GOTO 2295 

<238> 

1120 

ON KL GOSUB 50400,50415,50425 

<077> 

2291 

KJ=20 

<255 > 

1125 

GOTO 1160 

<001> 




1130 

XX*=EE*:GOSUB 50200 

< 004 > 




1132 

LK=2:XYS=IIS:YXS=OIS:MNS=ERS:NMS=“" 

<219> 




1134 

ON KL GOSUB 50400,50415,50425 

<091 > 




1135 

XXS=IIS:GOSUB 50200 

<012> 

Listing Buchführungsprogramm (Fortsetzung) 








Finanzen 
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*= 


2293 PRINT"<UP}"TAB(37-LEN(B*(SS,0P,3>))VA 

L(B*(SS,OP,3>) <059> 

2295 NEXT <017> 

2300 PRINT“{HOME,GREEN>”:FOR 1=1 TO 3:PRIN 

T : NEXT : KJ=1 <0B3> 

2305 FOR OP=l TO 20 <030> 

2310 IF C*(SS,OP,0)=""THEN 2345 <048> 

2315 PRINT TAB(KJ)C*(SS,OP,0> <05B> 

2320 IF C#(SS,OP,1)=““THEN PRINT“{RIGHT,WH 

ITE) +«JP,GREEN>“:KJ=2:GOTO 2342 <062> 

2337 KJ=1 < 003> 

2340 PRINT“ <UP} “TAB < 18-LEN (C* (S5,QF', 1) ) ) VA 

L(CS(SS,OP,1)) <036> 

2342 NEXT <066> 

2345 IF LQ=2 THEN RETURN <035> 

2346 PRINT“{HOME,GREEN>":FQR 1=1 TO 3:PRIN 

T:NEXT <251> 

2349 KJ=20 <059> 

2350 FOR OP=l TO 20 <075> 

2360 IF C# CSS,DP,2)="“THEN 2400 <170> 

2370 PRINT TAB(KJ)C*(SS,DP,2> <115> 

2390 IF C*(SS,OP,3)=""THEN PRINT SPC(20)“{ 

WHITE}+{UP,GREEN}":KJ=21:GOTO 2395 <156> 

2391 KJ=20 <101> 

2393 PRINT"{UP}"TAB(37-LEN(C*(SS,0P,3>))VA 

L(C#(SS,OP,3)) <1B5> 

2395 NEXT <119> 

2400 IF LQ=1 THEN RETURN <026> 

2404 GOSUB 9010 <170 > 

2408 PRINT“{CLR>"sFOR 1=1 TO 5:PRINT:NEXT: 

PRINT SPC( 5 ) "{RVSQN,30SPACE>“ <044> 

2409 PRINT SPC(5)"{RVSON,SPACE!WEITER MIT 

EINSEHEN 7 (J/N)I2SPACE}" <054> 

2410 PRINT SPC <5)"{RVSDN,30SPACE>" <066> 

2412 GET L*:IF L*=" "THEN 2412 <176> 

2415 IF L#="J"THEN 2000 <025> 

2420 IF L*="N"THEN 60 <039> 

2422 GOTO 2412 <052> 

2500 IF YUOl OR FR=B THEN 60 <211> 

2510 GOSUB 40000:PRINT"{HOME} " :FOR 1=1 TO 

4:PRINT:NEXT <202> 

2511 PRINT SPC(4)“DAS NEUZUEROEFFNENDE KON 

TD IST " <040> 

2515 PRINT 

mm " < 105 > 

2520 PRINT:PRINT:PRINT:PRINT SPC(4)“AKTIV¬ 
KONTO.(1)“ <069> 

2530 PRINT:PRINT:PRINT SPC(41"PASSIV-KONTO 

. .<21 ” <209> 

2540 PRINT:PRINT:PRINT SPC<4>"UNTERKONTO V 

ON EK.(3)“ < 154> 

2550 FOR 1=1 TO 3:PRINT:NEXT:PRINT SPC(4)" 

{RVSON,SPACE >IHRE WAHL 7 “ <083> 

2560 BET VY*:IF VY*=""THEN 2560 <174> 

2570 IF VAL(VYS)<1 OR VAL(VY*>>3 THEN 2510 <083> 
2580 ON VAL(VY*)GOTO 2590,2620,2640 <131> 

2590 IF A+l>18 THEN LP#="AKTIV":GOTO 60020 <1V3> 
2600 GOSUB 9040 ‘ <208> 

2610 A=A+1:A*(A,0,0)=PO*:GOTO 2660 <127> 

2620 IF B+1>1B THEN LP*="PASSIV":GOTO 6002 

0 <073> 

2630 GOSUB 9040 <23B> 

2635 B=B+1:B*(B,0,0)=PO#:GOTO 2660 <1B1> 

2640 IF C+1>1£> THEN LP#= “EK—UNTER" : GOTO &0 

020 <115> 

2650 GOSUB 9040 <002> 

2655 C=C+1:C*(C,0,0)=PO* <194> 

2660 PRINT"{CLR}":FOR 1=1 TO 5:PRINT:NEXT: 

PRINT SPC<6>"{RVSON,30SPACEJ" <058> 

2661 PRINT SPC(6)"{RVSON,SPACE3WEITER MIT 

EROEFFNEN 7 (J/N) “ <207> 

2662 PRINT SPC(6)"{RVSON,30SPACE>" <080> 

2665 GET L#:IF L#=““THEN 2665 <181> 

2666 IF L*="J"THEN 2510 <078> 

2667 IF L*="N“THEN 60 <032> 

2668 GOTO 2665 <173> 

2700 IF PZ=7 THEN 2710 <208> 

2701 IF YUOl OR FR=B THEN 60 <158> 

2704 FR=8 < 129 > 

2710 GOSUB 40000 <174> 

2711 PRINT"{HOME}":FOR 1=1 TO 8:PRINT:NEXT 

: PR INT SPC (12) “ <038> 

2715 PRINT SPC(12)"£{14SPACE}Z" <021> 

2720 PRINT SPC(12)"Z AKTIV-KONTEN £" <169> 

2725 PRINT SPC(12)"ZL14SPACEJZ" <031> 


2730 PRINT SPC (12)" <037> 

2735 FOR AZ=1 TO 500:NEXT <1B6> 

2740 IF A*(0,0,0)="GTTHEN 3710 <067> 

2745 IF A<0 THEN 3710 <033> 

2750 FOR SS=0 TO A <156> 

2754 IF A*(SS,1,0)=“"AND AS(SS,1,2)=""THEN 

2880 <239> 

2755 IY=0:YI=0:ER=0:RE=0:AI=0:AI*="":AG=1: 

AH=1 <054> 

2757 GOSUB 50500 <133> 

2775 PRINT"{CLR}":GOSUB 50000 <012> 

2776 PRINT"{HOME,DOWN,RED}"TAB(20-LEN(A# (S 
S,0,0))/2>A*(SS,0,0>:PRINT"{WHITE}" <027> 

2800 IF IY>YI THEN 2830 <200> 

2B10 IF IY<YI THEN 2840 <026> 

2820 LQ=1:GOSUB 2085 <149> 

2822 PRINT RO*:PRINT TAB<19-LEN(AIS))AI TA 
B(3B-LEN(AIS)>Als PRINT JJ*:PO=IY:GOTO 
2850 <156> 

2830 LD=1:GOSUB 2145 <145> 

2831 LQ=2:GOSUB 2085 <192> 

2832 PRINT DD#:PRINT TAB(19-LEN(AI#))AI TA 
B(38—LEN(AI#))AI:PRINT JJ*:PO=IY:GOTO 

2B50 <134> 

2840 LQ=1:GOSUB 2085 <169> 

2842 PRINT LM*:PRINT TAB(19-LEN(AI#))AI TA 

B(38—LEN(AI#))AI:PRINT JJ*:PO=YI <187> 

2850 FOR AZ=2003 TO 1043+(7+PO)*40 STEP-40 <055> 

2855 POKE AZ,32 <180> 

2860 NEXT <076> 

2876 GOSUB 9010 <134> 

2880 NEXT SS <047> 

3710 GOSUB 40000 < 158 > 

3713 PRINT"{HOME>“:FOR 1=1 TO 8:PRINT:NEXT 

: PRINT SPC (12)" ZZJLZJUJlZXXJJJtXXJLV ‘ <020> 

3715 PRINT SPC(12)"Z<15SPACE>Z" <005> 

3720 PRINT SPC(12)"Z PASSIV-KONTEN Z" <061> 

3725 PRINT SPC(12)"ZUSSPACEJZ" <015> 

3730 PRINT SPC (12) "<017> 
3740 FOR AZ=1 TO 1000:NEXT <03B> 

3745 IF B#(0,0,0)="Q"THEN 4000 <030> 

3-,_. FOR SS=0 TO B <141> 

3754 IF B*(SS,1,0)=""AND B*(SS,1,2)=""THEN 

3BB0 * <105> 

3755 IY=0:YI=0:ER=0:RE=0:AI=0:AI*=““:AG=1: 

AH=1 <038> 

3757 GOSUB 50600 <149> 

3775 PRINT”{CLR}“:GOSUB 50000 <252> 

3776 PRINT"{HOME,DOWN,RED}"TAB(20-LEN(B*(S 
S,0,0))/2)B#(SS,0,0):PRINT"{WHITEJ" <091> 

3800 IF IY>YI THEN 3830 <186> 

3810 IF IY<YI THEN 3840 <012> 

3820 LQ=1:GOSUB 2220 <071> 

3822 PRINT RO#:PRINT TAB(19-LEN(AI#))AI TA 
B(38—LEN(AI#)>AI:PRINT JJ#:PO=IY:GOTO 
3850 <010> 

3830 LO=l:GOSUB 2245 <129> 

3831 LB=2:GOSUB 2220 <114> 

3B32 PRINT DD*:PRINT TAB(19-LEN(AI*)>AI TA 

B(38—LEN(AI#))AI:PRINT JJ#:PO=IY:GOTO 
3850 <244> 

3840 LQ=1:GOSUB 2220 <093> 

3842 PRINT LM*:PRINT TAB(19-LEN(AI*))AI TA 

B(38—LEN(AI#))AI:PRINT JJ*:PO=YI <171> 

3850 FOR AF=2003 TO 1043+(7+PO)*40 STEP-40 <230> 

3855 POKE AF,32 <099> 

3860 NEXT <060> 

3876 GOSUB 9010 <11B> 

3880 NEXT SS <031> 

4000 GOSUB 40000 <194> 

4002 PRINT"{HOME}“:FOR 1=1 TO 8:PRINT:NEXT 

: PRINT SPC (9) " ZZXZZZZJLZXZZZZ-Z2ZXZZZZ " <211> 
4010 PRINT SPC(9)"Z<20SPACE}Z" <046} 

4020 PRINT SPC(9)“Z EK UND UNTERKONTEN Z" <251> 
4030 PRINT SPC(9)"ZI20SPACE1Z" <066> 

4040 PRINT SPC (9) “ 1XX11JJ.XJJJ.XJJJLXJJJJJJ. " <229> 

4045 FOR QZ=1 TO 1000:NEXT <089> 

4046 IF C=4 THEN 5000 <184> 

4055 FOR SS=5 TO C <002> 

4056 IF C*(SS,1,0)=“"AND C*(SS,1,2)=""THEN 

4881 <040> 

4060 IY=0:YI=0:ER=0:RE=0:AI=0:AI*=““:AG=1: 

AH=1:F6*="G+V“:GL=C+2 <185> 

4061 IF C#(SS,0,0)="PRIVAT"THEN FG*=”EK":G 

L=0:GOSUB 50700:GOTO 4075 <009> 


102 



£ 
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4070 FGS="G+V":GL=C+2:GOSUB 50700 <100> 

4075 PRINT"<CLR}":GOSUB 50000 <042> 

4776 PRINT2{HOME,DOWN,RED >"TAB(20-LEN<C*(S 

S,0,0)>/2>C*(SS,0,0):PRINT"{WHITE}" <155> 
4800 IF IY>YI THEN 4830 <172> 

4810 IF IY<YI THEN 4840 <254> 

4820 LQ=l:GOSUB 2300 <049> 

4822 PRINT RO*:PRINT TAB(19-£EN(AI*))AI TA 
B(38-LEN(AI*)>AI:PRINT JJ*:PO=IY:GOTO 
4850 <123> 

4830 LQ=1:GOSUB 2345 <115> 

4831 LQ=2:GOSUB 2300 <092> 

4832 PRINT DD*rPRINT TAB(19-LEN(AI*))AI TA 
B(38—LEN(AI*))AI:PRINT JJ*:PO=IY:GOTO 

4B50 <101> 

4840 LQ=1: BDSUB 2300 <069> 

4842 PRINT LM*: PRINT TAB(19-LEN(AI*))AI TA 

B(38-LEN(AI*))AI:PRINT JJ*:PO=YI <153> 

4850 FOR AF=2003 TO 1043+(7+PD)*40 STEP-40 <212> 
4855 POKE AF,32 <081> 

4860 NEXT <042> 

4876 GOSUB 9010 <102> 

4880 IF FD=9 THEN RETURN <223> 

4881 NEXT SS <016> 

5000 IF C*(1,0,0)=""THEN 7880 <002> 

5001 IF GY=1 THEN 5060 <015> 

5002 IF 6Y=2 IHEN 5060 <080> 

5003 GOSUB 40000 <181> 


5004 PRINT"{HOME,WHITE>":FOR 1=1 TO 4:PRIN 
T:NEXT:PRINT SPC(4)"ABSCHLUSS DER WAR 
ENKONTEN DURCH" 

5010 PR1NT SP C (4) ff 

5020 PRINT:PRINT:PRINT:PRINT SPC(4)"BRUTTO 

ABSCHLUSS.(1 > " 

5030 PR I NT: PR I NT: PR I NT SPC (4) " NETTOABSCHLU 
SS.(2) " 

5040 PRINT:PRINT:PRINT:PRINT SPC(4>"{RVSON 
,SPACE> IHRE WAHL ? “ 

5045 GET E*:IF E*=““THEN 5045 
5050 IF0VAL(E*)<1 OR VAL(E*>>2 THEN 5000 
5055 ON VAL(E*)GOTO 5060,6000 
5060 PRINT"{CLR>":GX=l:FOR SS=1 TO 2 
5065 IF C*(SS,1,0)="“AND C*(SS,1,2)=""THEN 
7880 

5070 ...... 

AH=1:FG*="G+V":GL=C+2 

5077 GOSUB 50700 

5078 PRINT"<CLR>":GOSUB 50000 

5776 PRINT"{HOME,DOWN,REDI"TAB(20-LEN(C*(S 
S,0,0))/2)C*(SS,0,0):PRINT"{WHITE}" 
5800 FD=9:GOSUB 4800 
5810 NEXT SS:GOTO 7880 
6000 PRINT"{CLRJ":GX=2:SS=1 
6010 IY=0:YI=0:ER=0:RE=0:AI=0:AI*="":AG=1: 

AH=1: FG*="WV" : GL=1 
6020 GOSUB 50700 
6075 PRINT"{CLR>":GOSUB 50000 
6776 PRINT" {HOME, DOWN, REDVTAB (20-LEN (C* (S 
S,0,0))/2)C*(SS,0,0):PRINT“{WHITE}" 
6B00 FD=9:GOSUB 4800 
6881 IF ML=5 THEN 6895 
6885 IF ML=6 THEN 6910 
6890 GOTO 7000 

6895 ML=0:BB=1:XY*=“WE":NM*=M*:MN#="":YX*= 
"•':LK=0:SS=2: GOSUB 50425: GOTO 7000 
6910 ML=0:BB=1:XY*=“WE":NM*=M*:MN*="":YX*= 
"":LK=2:SS=2:GOSUB 50425 
7000 IY=0:YI=0:ER=0:RE=0:AI=0:AI*="": AG=1: 

AH=1:FG*="G+V":GL-C+2 
7020 GOSUB 50700 
7075 PRINT"{CLR>":GOSUB 50000 
7776 PRINT"{HOME,DOWN,RED} " J AB (20-LEN(C*(S 
S,0,0))/2)C*(SS,0,0)SPRINT"<WHITE>" 
7800 FD=9:GOSUB 4800 
7880 GOSUB 40000 

7882 PRINT"{HOME}":FOR 1=1 TO 8:PRINT:NEXT 
sprint spc( i2) 

78B5 PRINT SPC(12)" H 14SPACE>i" 

7887 PRINT SPC(12)“£{5SPACE}G+V{6SPACE>£" 
7890 PRINT SPC(12 )"Xi 14SPACE}£" 

7892 PRINT SPC(12)" XZZZZZZZZZZZZZZZ " 

7895 FOR AZ=1 TO 1000:NEXT 

7900 IF C=4 AND C*(1,0,0)=""THEN 8000 

7905 SS=C+2 


<152> 

< 149> 

< 151 > 
<019> 

< 121 > 
<053> 
<064> 
<0657, 
<082> 

< 158> 

< 179> 
<231 > 
<029> 

<139> 

<154> 

<099> 

<252> 

<232> 

<158> 

< 010 > 

< 123> 
<138> 
<026> 
<024> 
<018> 

<036> 

<162> 

<077> 

< 142> 
<250> 

<107> 

< 122 > 

<008> 

<129> 

<111> 

<017> 

< 116> 

< 119> 
<129> 

< 198> 
<090> 


7906 IF C*(SS,I,0)=""AND C*(SS,1,2)=""THEN 

8000 <054> 

7910 IY=0:YI=0:ER=0:RE=0:AI=0:AI*="":AG=1s 

AH=l:FG*="EK":GL=C+2 <065> 

7920 GOSUB 50700 <024> 

7930 PRINT"<CLR>”:GOSUB 50000 <087> 

7940 PRINT"<RED>"TAB(18)”G+V" <142> 

7950 FD=9:GOSUB 4B00 <018> 

8000 GOSUB 40000 <130> 

8001 PRINT"<HOME>":FOR 1=1 TO 8:PRINT:NEXT 
SPRINT SPC(12) "< 124> 

8010 PRINT SPC(12)"i<13SPACE>2" <23B> 

8015 PRINT SPC(12)“Z.{5SPACE>EK{6SPACE}i" <101> 

B020 PRINT SPC(12)“1113SPACEJZ" <248> 

B025 PRINT SPC (12) " ZZZZ2JJLZZZZZZ2J. “ <128> 

8030 FOR AZ=1 TO 1000:NEXT <010> 

8040 SS=0 <190> 

8041 IF C*(C+2,1,0)=""AND C*(C+2,1,2)=""TH 

EN 8070 <046> 

8045 IF GY=1 OR GY=2 THEN 8070 <078> 

8050 IF ML=5 THEN ML=0:LK=0:BB=1:XY*=“G+V" 

: NM*=M*: YX*=" " : MN*= " " : GOSUB 50425: GOT 
O 8070 <045> 

8060 IF ML=6 THEN ML=0:LK=2:BB=1:XYS=”G+V" 

:NM*=M*:YX*=""...GOSUB 50425 <232> 

8070 IY=0:YI=0:ER=0:RE=0:AI=0:AI*="":AG=1: 

AH=1:FG*="SB":GL=0 <171> 

8075 GOSUB 50700 <181> 

8076 IF FK=5 THEN 80B0 <077> 

8077 IF ML=5 THEN ML=0:LK=0:BB=1:XY*=“EK": 
NM*=M*:YX*=““:MN*=““:SS=C+1:GOSUB 504 

25 <146> 

8078 IF ML=6 THEN ML=0:LK=2:BB=1:XY*="EK": 
NM*=M*:YX*=”":MN*="":SS=C+1:GOSUB 504 

25 <213> 

8080 PRINT"{CLRV:GOSUB 50000:PRINT”{RED}" 

TAB(19)"EK" <149> 

8090 FD=9:SS=0:GOSUB 4800 <153> 

8100 GOSUB 40000 <230> 

8107 PRINT"{HOME}":FOR 1=1 TO 8:PRINT:NEXT 

SPRINT SPC ( 12) " ZXZ7JZJUOXXXZZZZX " <100> 

81011 r.TINT SPC(12)"i{14SPACEIi" <080> 

8109 PRINT SPC(12)"Z STEUERKONTEN 2" <152> 

8110 PRINT SPC(12)"£{14SPACE}£" <082> 

8120 PRINT SPC (12) " ZZZZXZZZZZZXXXZLZ ' <093> 

8125 FOR AZ=1 TO 1000:NEXT <105> 

8126 IF C*(4,1,0)=""AND C*(4,1,2)=""THEN 8 

164 <041> 

8130 SS=4:IY=0:YI=0:RE=0:ER=0:AI=0:AI*="": 

AG=1:AH=1:FG*="MWST":GL=4:GOSUB 50700 <227> 
8135 IF FK=5 THEN 8155 <166> 

8140 IF ML=5 THEN ML=0:BB=1:SS=3:XY*="VST" 

:NM*=M*:YX*="":MN*="":LK=0:GOSUB 5042 
5 <194> 

8150 IF ML=6 THEN ML=0:BB=1:SS=3:XY*="VST" 

:NM*=M*:YX*="“:MN*="":LK=2:GOSUB 5042 
5 <016> 

8155 PRINT”{CLR}":GOSUB 50000:PRINT"{RED}" 

TAB<18)"VST“ <077> 

8160 FD=9:SS=4:GOSUB 4800 <239> 

8164 IF C*(3,1,0)=”"AND C*(3,1,2)=""THEN 8 

900 <001> 

8165 5S=3:IY=0:YI=0:ER=0:RE=0:AI=0:AI*=“ 

AG=1:AH=l:FG*=“SB"sGL=3sBOSUB 50700 <092> 

8166 IF FK=5 THEN 8180 <169> 

8170 IF ML=5 THEN ML=0:BB=1:SS=C+1:XY*="MW 

ST":NM*=M*:YX*="":MN*="“:LK=0:GOSUB 5 
0425 <222> 

8175 IF ML=6 THEN ML=0:BB=1:SS=C+1:XY*=“MW 
ST":NM*=M*:YX*="":MN*="“:LK=2:GOSUB 5 
0425 <067> 

8180 PRINT"{CLR}":GOSUB 50000:PRINT"{RED}" 

TAB(18)"MWST" <189> 

8185 FD=9:SS=3:GOSUB 4800 <004> 

8900 GOSUB 40000 <012> 

8901 PRINT"{HOME}":FOR 1=1 TO 8:PRINT:NEXT 

: PRINT SPC (12) •• <128> 

8910 PRINT SPC(12)"£<15SPACE}£" <120> 

8915 PRINT SPC(12)"2 SCHLUSSBILANZ 2" <037> 

8920 PRINT SPC(12)"2{15SPACE}2“ <130> 


Listing Buchführungsprogramm (Fortsetzung) 















Finanzen 


C 64 


8925 PRINT SPC (12) * 

8930 FÜR AZ=1 TO 1000:NEXT 

8931 SS=C+1:GL=C+1 

8932 IF KK*="“THEN 8935 

8933 IF GY=1 OR GY=2 THEN 8935 

8934 X Y*= "WAREN":NM*=KK*s MN«=”“:LK=0:YX*=" 
“:SS=C+1:GOSUB 50425 

8935 IY=0:YI=0:AI=0:AI*="":ER=0:RE=0:AG=1: 

..GOSUB 50700 

8940 PRINT"{CLR>":BOSUB 50000:PRINT"<RED>" 
TAB(13)"SCHLUSSBILANZ" 

8950 FD=9:GOSUB 4800 
8960 IF GX=1 THEN GY=1 
8965 IF GX=2 THEN GY=2 
8970 FD=0: GOTO 60 

9000 PRINT SPC (S)<WHITE,R VSON> ' SPACE ' DRU 
ECKEN <RVOFF >":GOTO 9020 
9010 PRINT"<HOME,WHITE,11SPACE}’SPACE - DRU 
ECKEN" 

9020 GET L*:IF L*=“ "THEN RETURN 
9030 GOTO 9020 

9040 PRINT"<CLR>": FOR 1=1 TO 10:PRINT:NEXT 
SPRINT SPC(5)"WIE LAUTET DAS NEUZUERO 
EFFNENDE" 

9050 PRINT:PRINT SPC<5):INPUT"KONTO ";PO* 
9060 IF LEN(PO*>>8 OR PO*=""THEN 2510 
9070 RETURN 

40000 PRINT" <CLR.RIGHT , WHITE> 

40006 FOR AZ=1 TO 23sPRINT"tRIGHTJT"SPC(36 
>"T":NEXT 

40020 PRINT" IUP .RIGHT >V+V+V+V+V+V+V+‘+V+V+V 
+V+V+V+V+V+V+V+V+V" 

40050 RETURN 

50000 FOR AZ=1105 TO 1141:POKE AZ,100:POKE 
55296-1024+AZ,1:NEXT 

50004 FOR AZ=1083 TO 2003 STEP 40:POKE AZ, 
93:POKE 55296-1024+AZ,1:NEXT 
50006 POKE 1065,19:POKE 1101,8:POKE 55337, 
1:POKE 55373,1:RETURN 
50200 FOR SS=0 TO A:IF A*(SS,0,0)=XX*THEN 
KL=1:RETURN 
50210 NEXT 

50235 FOR SS=0 TO B:IF B*(SS,0,0)=XX*THEN 
KL=2:RETURN 

50236 NEXT 

50250 FOR SS=0 TO C:IF C*(SS,0,0)=XX*THEN 
KL=3:RETURN 
50252 NEXT 
50258 KL=4:RETURN 

50400 IF A*(SS,BB,LK)<>""THEN BB=BB+l:GOTO 
50400 

50410 A*(SS,BB,LK)=XY*:A*(SS,BB,LK+1)=NM* 

50411 BB=BB+1:A*(SS,BB,LK> =YXS:A*(SS,BB,LK 
+1)=MN*:BB=1:RETURN 

50415 IF B*(SS,BB,LKX>""THEN BB=BB+1 sGOTO 
50415 

50420 B« (SS, BB , LK) =X Y*: B* ( SS , BB , LK+1) =NM* 

50421 BB=BB+1: B* (SS, BB , LK) =YX* : B* (SS , BB, LK 
+1)=MN*:BB=l:RETURN 

50425 IF C*(SS,BB,LKX>""THEN BB=BB+l:GOTO 
50425 

50430 C*(SS,BB,LK > =XY*:C*(SS,BB,LK+1> =NM« 

50431 BB=BB+1:C*(SS,BB,LK)=YX*:C*(SS,BB,LK 
+1)=HNJ:BB=1:RETURN 

50500 IF A*(SS,AG,0)=""THEN 50540 
50530 IY=IY+1:ER=ER+VAL(A*(SS,AG,1> >:AG=AG 
+1:BOTQ 50500 

50540 IF A«(SS,AH,2)=""THEN 50570 
50550 YI=YI+1:RE=RE+VAL(AS(SS,AH,3>>:AH=AH 
+1:GOTO 50540 
50570 IF ER>RE THEN 50575 
50573 GOTO 50580 

50575 ZX=ER—RE:ZX*=STR#(ZX>:M*=RIGHT*(ZX*, 
LEN(ZX*)—1):C*(C+l,LL,0)=A*(SS,0,0) 

50576 C*(C+1,LL,1)=M*:LL=LL+1 

50577 A*(SS,AH,2 > ="SB":A*(SS,AH,3)=M*:AI=E 
R:AI*=STR*(ER >:YI»YI +1:RETURN 

50580 IF ER<RE THEN 50585 

50583 GOTO 50590 

50585 ZX=RE-ER:ZX*=5TR*(ZX):M*=RIGHT*(ZX*, 
LEN(ZX*>-1):C*(C+1,KK,2)=A*(SS,0,0> 

50586 CS(C+1,KK,3)=M*:KK=KK+1 

50587 A*(SS,AG,0 > ="SB":A*(SS,AG,1)=M*:AI=R 


< 132> E:AI*=STR*(RE):IY=IY+l:RETURN 

<148> 50590 AI=RE:A1*=STR*(RE):RETURN 

<070> 50600 IF B*(SS,AG,0>=""THEN 50640 

<152> 50630 IY=IY+1:ER=ER+VAL(BS(SS,AG,1> > : AG=AG 

<017> +1: GOTO 50600 

50640 IF B*(SS,AH,2)=""THEN 50670 

< 139> 50650 YI=YI+1:RE=RE+VAL(B*(SS,AH,3>):AH=AH 

+1:GOTO 50640 

<032> 50670 IF ER>RE THEN 50675 

50673 GOTO 506S0 

<139> 50675 ZX=ER-RE:ZX*=STR*(ZX>:M*=RIGHT*(ZX4, 

<000;. LEN(ZX*)-1):C*(C+1,LL,0)=B*(SS,0,0) 

<244> 50676 C*(C+l,LL,1)=M«:LL=LL+1 

<065> 50677 B*(SS,AX,2)="SB":B*(SS,AH,3)=M*:AI=E 

<164> R:AI*=STR*(ER):YI=YI+1:RETURN 

50680 IF ER<RE THEN 50685 

<19t> 50683 GOTO 50690 

50685 ZX=RE—ER:ZX*=STR*(ZX):M*=RIGHT*(ZX*, 

< 189> LEN(ZX*)-1):C*(C+1,KK,2)=B*(SS,0,0> 

< 104> 50686 C*(C+1,KK,3)=M*:KK=KK+1 

<208> 50687 B*<SS,AG,0)="SB":B*(SS,AG,1)=M*:AI=R 

E:AI*=STR*(RE):IY=IY+1:RETURN 
50690 AI =RE: AI*=STR* (RE) : RETURN 
<082> 50700 IF C*(SS,AG,0)=“"THEN 50740 

<090> 50730 IY=IY+1:ER=ER+VAL(Ct(SS,AG,1)):AG=AG 

<194> +1:GOTO 50700 

<238> 50740 IF C^(SS,AH,2)=""THEN 50770 

50750 YI=YI+1:RE=RE+VAL(C*(SS,AH,3)):AH=AH 
<192> +1:GOTO 50740 

50770 IF ER>RE THEN 50775 

<061 > 50773 GOTO 50780 

50775 ZX=ER—RE:ZX*=STR*(ZX):M*=RIGHT*(ZX*, 
<144> LEN(ZX*>—l> 

<229> 50776 IF SS=GL THEN 50779 

50777 C*(GL,MM,0)=C*(SS,0,0) 

<221 > 50778 C*(GL,t1M, 1) =M*: MM=MM+1 

50779 CS(SS,AH,2)=FGS:C$(SS,AH,3> =M*:AI=ER 

<159> :AI*=STR*(ER):YI=YI+1:ML=5:RETURN 

50780 IF ER<RE THEN 50785 

<037> 50783 GOTO 50790 

50785 ZX=RE—ER:ZX*=STR*(ZX):M*=RIBHT*(ZX*, 
/<234>on .ina len(zx*>-d 

IF SS=GL THEN 50789 


<181 > 

507B6 

507B7 

<054> 

50788 

<207> 

50789 

<110> 

50790 

<223> 

60000 

<240> 

60002 

<226> 

<075> 

60003 

<079> 

60004 

< 004 > 

60005 

<097> 

60006 

<101> 

60007 

<023> 

60010 

< 119> 

60020 

<123> 

<135> 

60030 

<219> 
<051 > 

60040 

<019> 

< 145> 
<182> 

© e»'«- 

<058> 

<205> 


<175> 

<235> 


<000> 


<054> 

<132> 

Listing 


C*(GL,NN,3)=M*:NN=NN+1 
C*(SS,AG,0)=FG*:C*(SS,AG,1)=M*:AI=RE 
:AI*=STR*(RE):IY=IY+l:ML=6:RETURN 
A1=RE:AI*=STR*(RE):RETURN 
GOSUB 40000 

PRINT"<HOME>":FOR 1=1 TO 5:PRINT:NEX 
T:PRINT SPC(4)"DAS EIGENKAPITAL IST 
NEGATIV !•■ 

PRINT:PRINT:PRINT:PRINT SPC(4)“DER C 
OMPUTER SIEHT SICH VERAN—” 

PRINT SPC(4)"LASST,AUFGRUND DIESER S 
CHLECHTEN" 

PRINT SPC(4)"GESCHAEFTSLAGE JEGLICHE 
BUCH-“ 

PRINT SPC(4)"FUEHRUNGSAUFGABEN ABZUL 
EHNEN !" 

FOR AZ=1 TO 6000:NEXT:SYS 64738 


<224> 

< 177> 
<003> 

<071 > 

< 175> 

<127> 

<253> 

<058> 

<190> 

<049> 

<031 > 
<087> 
<132> 

<186> 

<232> 

<0B0> 

<023> 

<129> 

<181 > 
<045> 

<237> 

< 107> 

< 192> 

<072> 

<083> 

<045> 

< 114> 

< 175> 

< 197> 
< 010 > 

< 190> 
<109> 
<074> 

< 197> 

<084> 

<123> 

<057> 


147):RESTORE:END 
PRINT"<CLR,WHITE>":FOR 1=1 TO 7:PRIN 
T:NEXT;PRINT SPC(5)"ES KANN KEIN "LP 
«"KONTO" 


FOR AZ=1 TO 3000:NEXT:GOTO 60 


<097> 

< 152> 

< 188> 

<189> 

<024> 

<034> 

<225> 

<044 > 

< 012 > 
< 181 > 


Listing Buchführungsprogramm (Schluß) 
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Finanzen 


C 64 




Autokauf gut 
kalkuliert 

Dieses Programm erleichtert Ihnen 
die Entscheidung beim Autokauf. 
Preise und Unterhaltskosten werden 
in Tabellen und Grafiken ausgegeben. 


Vielleicht überlegen Sie, ob Sie Ihren nächsten Wagen mit 
oder ohne Katalysator kaufen sollten. Oder Sie beschäftigen 
sich mit dem Problem, ob es ein »Gebrauchter« oder ein 
»Neuer« sein könnte. In jedem Fall spielen neben vielen ande¬ 
ren auch die finanziellen Erwägungen eine wichtige Rolle. 

Eine gute Hilfe sind dabei Übersichten in Autozeitschriften, 
die zeigen, wie teuer die einzelnen Modelle im Unterhalt sind. 
Dabei ist es ein unvermeidlicher Nachteil, daß solche Über¬ 
sichten sich auf den »Durchschnittsfahrer« und das »Durch¬ 
schnittsauto« beziehen müssen. So ist es unwahrscheinlich, 
daß die Berechnungen für Sie exaktzutreffen. Im Einzelfall ist 
es wichtig, welchen Schadenfreiheitsrabatt Sie erreicht 
haben, ob Sie Wert auf eine Vollkasko-Versicherung oder eine 
Insassenunfallversicherung legen, etc. Der eine will auf ein 
Autoradio verzichten oder kann das Radio aus seinem jetzi¬ 
gen Wagen einbauen — der nächste stellt sich ein Autoradio 
der Mittelklasse vor, und der dritte glaubt, daß trotz des stö¬ 
renden Motorgeräusches ein Anschaffungspreis von über 
1000 DM für eine Auto-Hifi-Anlage sich lohne. Entsprechen¬ 
des gilt auch für anderes Zubehör. 

Ein Faktor, der stark zu Buche schlägt, ist die Fahrleistung 
pro Jahr, die den monatlichen Unterhalt gewaltig in die Höhe 
treiben kann, wenn der Wagen einen kräftigen Durst ent¬ 
wickelt. Andererseits können selbst bei einem kleinen Auto 
bei sehr geringer Kilometerleistung die Kosten pro gefahre¬ 
nen Kilometer so hoch werden, daß von Wirtschaftlichkeit 
kaum noch die Rede sein kann. 

Was aber eine allgemeine Übersicht nicht leisten kann, ist 
heute im Zeitalter der Heimcomputer individuell zu lösen. Der 
Computer kann sich hier als das bewähren, was er eigentlich 
ist: Ein Rechner! Mit seiner Hilfe lassen sich Anschaffungsko¬ 
sten, Kosten pro Monat sowie pro Kilometer übersichtlicher 
in Tabellen darsteilen und — was oft noch informativer ist — in 
Form von Balkendiagrammen grafisch darstellen. 

Die Vorarbeit allerdings kann Ihnen auch der beste Compu¬ 
ter nicht abnehmen: Informieren Sie sich über die aktuellen 
Preise, über eventuelle Preisnachlässe, über die Möglichkeit 
der Inzahlungnahme Ihres jetzigen Wagens, über die Preise 
des Zubehörs und über den Verbrauch, aber auch über die 
Tarife der Versicherungen und über die Kraftfahrzeugsteuer 
(ab 1. Jan. 86 18,80 DM pro 100 ccm für »konventionelle« 
Ottomotoren). Die Mühe lohnt sich: Je gründlicher Ihre 
Recherchen sind, desto zuverlässiger kann die Prognose 
des Rechners sein! 

Das Programm (Listing 1) wurde für den C 64 geschrieben. 
Außerdem sollten Sie über eine Floppy verfügen, denn die 
gesammelten Daten sind nur dann wertvoll, wenn sie leicht 
verfügbar sind. Deshalb enthält das Menü die Möglichkeit, die 
Daten auf Diskette zu speichern. Dabei wird eine gegebenen¬ 
falls schon vorhandene Datei mit Auto-Daten gelöscht, bevor 
der aktuelle Stand auf die Diskette geschrieben wird. Wenn 
Sie auch die bisherigen Daten erhalten wollen, um beispiels¬ 
weise die Preisentwicklung mehrerer Jahre zu dokumentie¬ 


KOSTEN VERGLEICH 

PREISE UND HRLTUNGSKOSTEH 
fl DATENEINGABE 

W LADEN GESPEICHERTER DATEN VON DISKETTE 

Bild 1. Entscheidungshilfe beim Autokauf gibt dieses 
Programm. 


ren, dann müßten Sie jede Datei auf einer anderen Diskette 
einrichten. 

Nach dem Start des Programms fragt der Computer, ob 
Neueingabe oder Laden der Daten von Diskette gewünscht 
wird. Wenn schon gesammelte Daten auf Diskette vorhanden 
sind, muß selbstverständlich zuerst geladen werden (2), 
bevor vom Menü aus weitere Eingaben und/oder Korrekturen 
erfolgen. 

Im übrigen brauchen auch Computerneulinge keine Sorge 
zu haben: Bei diesem Programm hilft der Computer durch 
Fragen und Aufforderungen, so daß Fehlbedienungen prak¬ 
tisch ausgeschlossen sind. 

Die Daten, die bei der Berechnung berücksichtigt werden: 

Anschaffungspreis 

— Grundpreis 

— Überführung und Zulassung 
Aufpreise für 

— Autoradio 

— vier Türen 

— Unterboden- und Hohlraumschutz 

— Servolenkung 

— Schiebedach 

— Sonderlackierung 

— Weitere Extras (Eingabe nach freier Wahl nach dem ersten 
Fragezeichen, Preis nach dem zweiten! 

Beispiele: Anhängerkupplung, Sperrdifferential etc. Bis zu 
fünf Bezeichnungen, nach denen im weiteren Programm¬ 
ablauf auch bei den anderen Wagen gefragt wird.) 

— Für wieviel Mark wird Ihr alter Wagen in Zahlung genom¬ 
men? 

— Händlerrabatt 

Steuer und Versicherung 

— Kraftfahrzeugsteuer 

— Haftpflichtversicherung 

— Teilkaskoversicherung 

— Vollkaskoversicherung 

— Insassenunfallversicherung 

Werkstattkosten 

Hier wird mit einer Pauschale gerechnet, weil sich ein 
genauer monatlicher Betrag natürlich nur mit prophetischen 
Gaben Vorhersagen ließe. Nach statistischen Erhebungen 
betrugen die durchschnittlichen Werkstattkosten für einen 
Pkw 1984 etwa 100 DM. Wenn Sie einen Wagen ins Auge 
gefaßt haben, bei dem die Werkstattkosten bekanntermaßen 
überdurchschnittlich hoch sind, müssen Sie eine höhere 
Pauschale ansetzen, während Sie sie verkleinern können, 
wenn Sie viele Wartungsarbeiten selbst erledigen. 
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KOSTEN PRO KILOMETER 



0.30 0.60 0.90 

Bild 2. Hardcopy der »Kosten pro Kilometer«. Die 
einzelnen Fabrikate werden mit drei Buchstaben 
abgekürzt. 
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Bild 3. Vergleich von Leistung und Hubraum 
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WEITER? (DRUECKEN SIE EINE 
TASTE!> 

BELIEBIGE 

Bild 4. Kostentabelle pro Kilometer 



Betriebskosten 

— Art des Kraftstoffs (Normal- oder Superbenzin, Diesel, 
bleifreier Kraftstoff) 

— Kraftstoffpreis pro Liter 

— Durchschnittlicher Verbrauch auf 100 km 

— Nachgefülltes Öl 

— Sonstiges (Garagenmiete, Pflegekosten ,..) 

Für die Berechnungen ist es weiterhin wichtig, ob der 
Wagen bar bezahlt oder finanziert werden soll, wofür das ent¬ 


sprechende Unterprogramm vorhanden ist, das nicht nur 
angibt, wieviel Geld Sie insgesamt zurückzahlen müssen, 
sondern auch die Höhe der monatlichen Rate. 

Aus den eingegebenen Daten kann der Computer folgende 
Übersichten erstellen: 

1. Anschaffungspreise 

2. Kosten pro Monat 

3. Kosten pro Kilometer 

(1 bis 3 jeweils als Tabelle oder als Balkendiagramm) 
(Bild 2 bis 4) 

4. Grafik: Vergleich der Leistung und des Hubraums 

5. Übersicht »Extras« (Einstufung: serienmäßig — gegen 

Aufpreis — nicht vorhanden) 

Um die erhaltenen Werte mit anderen Übersichten verglei¬ 
chen zu können, sollten Sie wissen, daß bei den monatlichen 
Kosten und den Kosten pro Kilometer keine Sparbeträge 
berücksichtigt wurden. Wer während der Laufzeit des Autos 
den nächsten Wagen komplett ansparen möchte, um Zinsen 
zu sparen, muß den Sparbetrag zu den angegebenen Sum¬ 
men hinzuzählen. Weil das von Fall zu Fall anders gehandhabt 
wird, können die angegebenen Kosten pro Monat bezie¬ 
hungsweise pro Kilometer zum Teil erheblich differieren. 

Alle Grafiken und Tabellen bleiben so lange auf dem Bild¬ 
schirm, bis Sie durch Drücken einer beliebigen Taste zur 
Übersicht zurückgehen. Wenn Ihnen das flüchtige Monitor¬ 
bild nicht ausreicht, können Sie, wenn Sie einen Drucker 
besitzen, eine Hardcopy ausdrucken lassen. Zu diesem 
Zweck drücken Sie die Funktionstaste Fl. Nach dem Aus¬ 
drucken der Hardcopy (MPS 801) kehrt der Computer zum 
0: -Haupi.v.nü zurück. 

Noch ein paar Hinweise für Leser, die noch nicht lange pro¬ 
grammieren: Beim Abspeichern auf Diskette werden alle 
Daten, nicht nur die zuletzt eingegebenen, gespeichert, 
genauso wie alle Daten auf einmal geladen werden. Es wird 
also nicht für jedes Fahrzeug eine eigene Datei benötigt. 

Vielleicht wundern Sie sich über Zeilen, die mehr als 80 
Zeichen enthalten: Ihre Eingabe bereitet keine Schwierigkei¬ 
ten, wenn Sie beim Eintippen die nur der besseren Übersicht 
dienenden Leerzeichen weglassen. 

Außerdem sollten Sie nicht »PRINT«, sondern »?« eingeben 
und nicht »PRINT#4«, sondern »p« — geSHIFTetes »R« und 
die »4«. Aber das machen Sie aus Gründen der Zeitersparnis 
wohl ohnehin so. 

Selbstverständlich hat jede Prognose dort ihre Grenzen, 
wo sich grundlegende Daten in unvorhergesehener Weise 
ändern können: Niemand kann heute zuverlässig angeben, 
wie hoch der Benzinpreis in acht Jahren sein wird, oder wie 
sich dann die Versicherungstarife geändert haben werden. 
Wenn Sie noch nicht in der höchsten Schadenfreiheitsklasse 
angekommen sein sollten, dann ist es sinnvoll, als Versiche¬ 
rungsbeitrag den mittleren Wert einzusetzen, den Sie in der 
Laufzeit des Wagens wahrscheinlich erreichen werden. 

Wenn Sie schließlich an die Kaufentscheidung für Ihren 
zukünftigen Wagen herangehen, dann wird Ihnen der Com¬ 
puter mit diesem Programm eine wertvolle Hilfe sein. Die Ent¬ 
scheidung für einen der Kandidaten kann er Ihnen aber nicht 
abnehmen, denn ob Ihnen der günstigere Preis pro Kilometer 
wichtiger ist als die besseren Beschleunigungswerte des 
Konkurrenten, das kann der Computer nicht wissen. Er kann 
nur übersichtlich die Entscheidungskriterien zusammenstel¬ 
len. Wenn am Ende doch die Freude an der gelungeneren 
Form, dem sportlichen Design, über die finanzielle Erwägung 
siegt, dann können Sie ja immer noch den Computer abschal¬ 
ten. 

(Dieter Berner/hm) 
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Finanzen 


C 64 


10 REM ********************************* 

20 REM »KOSTENVERGLEICH* 

30 REM * FUER AUTOS * 

40 REM * C 64 * 

50 REM * » 

60 REM » D. BERNER * 

70 REM * RINGSTR. 8 5431 GIROD « 

80 REM * TEL.06485/1351 * 

90 REM ********************************* 
100 U=20:DIM PG(U),PZ(U>,PR(U>,PT(U),PU(U) 
,PL(U),PD(U>,PF<U>,P1(U>,P2(U),P3(U) 
110 DIM UL*(U),UD*(U>,UF*(U),U1*(U),U2#(U) 

,U3*(U),U4S(U),U5*(U> 

120 DIM P4(U),P5(U),P1*(U),P2*(U),P3S(U>,P 
4*(U),P5*(U),PE < U),IZ(U>,HR(U),TY*(U) 
130 DIM TK*(U> ,P* CU) ,HU(U) ,VS<U) ,VH(U) ,VT( 
U) ,WCU) ,VI (U> ,VE(U) ,TP(U) ,WK(U) ,WJ (U) 
140 DIM TR*(U>,WV(U>,PR*(U>,PT*(U),PU*(U), 
PL*(LJ) ,PD*(U> ,PF*(U) ,LE(U) ,SO(U) ,P(U) 
150 DIM KB(U),ZM(U>,MO(U>,GE(U>,AZ(U),KS<U 
),KR(U),UR*(U),UT*(U),UU*<U),K(U> 

160 FOR 1=1 TO 20: TV* (I)="0": TK* (I> ="0“: P* 
<I)="0“ 

170 TR*(I>="0":P1*CI)="0":P2*<I>="0":P3*<I 
)=“0“:P4*(I)="0“:P5*(I>=“0“ 

180 PR*(I)=“0“s PT*(I> ="0":PU* (I> ="0":PL*(I 
> = "0":PD#(I> ="0":PF* <I)=“0 n :NEXT 
190 P1*="0":P2*="0":P3S=”0“:P4*="0-:P5*=“0 

200 PRINT CHR*(147):FOR Y=1 TO 6:PRINT:NEX 
T 

210 PRINT"£18SPACE>&SVYYSYY£RVS0N,SPACE>5" 
220 PRINT“<17SPACE>ä FC3SPACE>HC2SPACE,RVS 
ON,2SPACE>5F" 

230 PRINT“ € 16SPACE>Ü£2SPACE>R£3SHIFT—SPACE 
>H£2SHIFT—SPACE , RVSON , 3SPACUJS" 

240 PRINT"C9SPACE,RVSON,7SPACE}R(4SPACE)P 
R£6SPACE>¥" 

250 PRINT“£9SPACE,RVSON,7SPACE}RC6SPACE>R( 
7SPACEJ" 

260 PRINT"C9SPACE,RVSON>R HWfl E£6SPACE>B£ 
7SPACE >" 

270 PRI NT" CBSPA CE,RVSON>IT R£4SPACE>'gR£6SPA 
CEJMMYYYYG " 

280 PRINT"£11SPACE,RVSON,4SPACE,RVOFF,10SP 
ACE,RVSON,4SPACE>“ 

290 PRINT"<11SPACE >S£RVSON,2SPACE,RVOFF >£< 
10SPACE>¥<RVSON,2SPACE.RVOFF >£" 

300 FOR 1=1 TO 1000:NEXT 
310 PRINT CHR*(19):FOR Y=1 
:PRINT"£5SPACE>K OST 
I C H“ 

320 FOR 1=1 TO 2000:NEXT 

330 FOR Y=1 TO 12:PRINT:NEXT:PRINT“<8SPACE 
JPREISE UND HALTUNGSKOSTEN" 

340 FOR 1=1 TO 2000:NEXT 

350 PRINT:PRINT:PRINT CHR*(18)"1"CHR*<146) 
“ DATENEINGABE" 

360 PRINT:PRINT CHR*(18)“2"CHR*(146)* LADE 
N GESPEICHERTER DATEN VON DISKETTE"; 
370 GET M*:IF M*=“1"THEN 400 
380 IF M*="2“THEN 2740 
390 GOTO 370 

400 REM « ANGABEN ZU DEN EINZELNEN FAHRZEU 
BEN» 

410 N=N+1 

420 PRINT CHR*(147)CHR*(18)"FAHRZEUG NR."N 
;CHR*(157 >"C26SPACE >"sI=N 
430 PRINT-TYP: "TY*(I):PRINT CHR*(145)SPC( 
3):INPUT TY*(1) 

440 PRINT-KURZBEZEICHNUNG (MAX. 3 BUCHST.) 
£2SPACEJ"TK*(I> 

450 PRINT CHR*(145)SPC(32);:INPUT TK*(I> 
460 PRINT: PR II'JT" LEISTUNG (KW) "LE(I):PRINT 
CHR*(145)SPC(12):INPUT LE(I) 

470 PRINT CHR*(145)SPC(19)"HUBRAUMCSHIFT-S 
PACE}(CCM) “HU(I>:PRINT CHR*(145)SPC(3 
2);:INPUT HU(I> 

480 PRINT:PRINT"GRUNDPREIS "PG(I):PRINT CH 
R*(145)SPC(10):INPUT PG(I) 

490 PRINT:PRINT"UEBERFUEHRUNG + ZULASSUNG 
“PZ(I1 

500 PRINT CHR*(145)SPC(25):INPUT PZ(I) 

510 PRINT:PRINT CHR*(1B>"C14SPACEJE X T R 
A S :£13SPACE>“j 


TO 4:PRINT:NEXT 
ENVERGLE 


< 141 > 
<165> 

520 

<101> 
<211 > 

530 

<099> 
<061 > 

540 

<089> 

<127> 

550 

<221 > 

560 

<030> 

570 


580 

<165> 

590 

< 149> 

600 

<253> 

610 

< 112> 

620 

< 115> 

630 

<051 > 

640 

<077> 

650 


660 

<045> 

670 

<146> 

680 

<039> 

<139> 

690 

<046> 

700 


710 

<139> 

720 


730 

< 134> 

740 

< 102> 


<249 > 

’ 76kl 

<097> 

770 

< 153> 

780 

<014> 

<217> 

790 


800 


810 

<079> 

<110> 

820 

<078> 

<130> 

830 


840 

<027> 

850 

<075> 

<122> 

<138> 

860 

<192> 

870 


880 

<11B> 

8V0 

<239> 

900 

<095> 


< 194> 

910 

<225> 

920 

<071 > 

930 

< 14B> 

940 

<016> 

950 

<254 > 

960 

<246> 

970 

<074> 

980 

<017> 



EISES •*• EIN,<3SPACE>"; 
PRINT CHR*(18)"WENN DER f 
M GRUNDPREIS ENT—“; 

PRINT CHR*(18)"HALTEN IS' 
ENN DAS EXTRA£4SPACE>"; 
PRINT CHR*(18)"NICHT GEWI 
DER BEI DIESEM<3SPACE>"; 
PRINT CHR*(18)"FAHRZEUG f 
ICH IST!£9SPACE>" 


1320:PR(I)=EX:PR*(I> =EX* 

J RI NT : PR I NT " 4 TUEREN £10SPACE>"PT*(I) 
’RINT CHR* (145) SPC (16) : INPUT EX*:GOSl 
1320:PT(I)=EX:PT*(I> =EX* 


T Z £2SPACE >"PU*(I) 


1320:PU(I)=EX:PU*(I)=EX* 


1320:PL <I)=EX:PL* <I> =EX* 

PRINT:PRINT"SCHIEBEDACH £7SPACE >“PDS 
PRINT CHR*(145)SPC(16):INPUT EX*:GOSUB 
1320:PD(I)=EX:PD#(I)=EX* 

PRINT:PRINT“SONDERLACKIERUNG £2SPACE)"P 
F* (I > 


1320:PF(I)=EX:PF#(I> »EX* 

PRINT:PRINT:PRINT”WEITERE EXTR 
.5)":PRINT"YYYYYYYYYYYYYYYYYYYYYYY" 
PRINT"(HOECHSTENS 9 BUCHSTABEN)" 


(MAX 


(PI*.9) 

PRINT:PRINT PI*.,"£2SPACE>"P1*(I>:PRIN 
T CHR*(145)INPUT EX*:GOSUB 1320:P1 
(I)=EX:P1#(I)=EX* 

IF P2*< >"0"THEN 780 

wöSUB 1370:IF E*="N"THEN 910 


<138> 

<029> 

<088> 

< 131 > 

<077> 

< 181 > 

<008> 

<055> 

<052> 

<089> 

<104> 

<063> 

<252> 
<001 > 

< 176> 

<091 > 

< 220 > 

<249> 

<135> 

<033> 

< 176> 

<210> 


(P2*,9 > 

PRINT:PRINT P2*,,“£2SPACE}“P2*(I):PRIN 
T CHR*(145)INPUT EX*:GOSUB 1320:P2 
(I)=EX:P2#(I)=EX* 


< 200 > 

<218> 

<216> 

<025> 


(P3*,9) 

PRINT:PRINT P3*.,"£2SPACE>"P3*<I):PRIN 
T CHR*<145)(,;■INPUT EX*:GOSUB 1320:P3 
(I)=EX:P3*(I> =EX* 


<094 > 
<099> 
<237> 

<094> 


(P4*,9) 

PRINT:PRINT P4*,,“£2SPACE>"P4*(I):PRIN 
T CHR#(145)INPUT EX*:GOSUB 1320:P4 
<I)=EX:P4*(I)=EX* 

IF P5*< >"0"THEN 900 

GOSUB 1370:IF E#="N"THEN 910 


<242> 

<027> 

<042> 

< 163> 


(P5*,9) 


<135> 
<163> 
<082 > 

<232> 


T CHR*(145),,5:INPUT EX*:GOSUB 1320:P5 
(I)=EX:P5*(I)=EX# 

PRINT:PRINT:PRINT"INZAHLUNGNAHME DES A 
LTEN WAGENS FUER" 

PRINT"WIEVIEL DM “IZ(I):PRINT CHR*(145 
)SPC(10):INPUT IZ(I) 

PRINT:PRINT"HAENDLERRABATT IN X ”HR(I) 
:PRINT CHR*(145)SPC(19):INPUT HR(I) 

PE (I) =PG (I) +PZ (I) +PR (I) +PT (I > +PU (I > +PL 
(I)+PD(I)+PF(I) 

PE (I ) =PE (I) +P1 (I) +P2 (I) +P3 (I ) +P4 (I) »PS 
(I)-IZ(I) 

PE(I)“INT(PE(I)*(1—HR(I>/100)#100+.5)/ 
100 

FOR J=1 TO 40:PRINT"Y";:NEXT:PRINT"INS 
GESAMT",,PE(I)"DM":PRINT:PRINT 


<027> 

<228> 

< 191 > 
<080> 

< 143> 

<194> 

<096> 

<125> 

< 022 > 
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C 64 


Finanzen 


990 PRINT:PRINT:PRINT"SOLLEN DATEN FUER EI 
NEN WEITEREN WAGEN<2SPACEJEINGEGEBEN W 
ERDEN? (J/N)" <167> 

1000 GET E*:IF E*=“J"THEN 410 <249> 

1010 IF E*="N"THEN 1030 <134> 

1020 GOTO 1000 <198> 

1030 POKE 53280,14:POKE 53281,6 <226> 

1040 PRINT OHR*(147)CHR* < 18> CHR# (154> 11 {9SP 
ACEJZ U RC3SPACEJA U S W A H L<10SPAC 
E>- <108> 


1050 

1060 

1070 

1080 

1090 


1100 


1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 


1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 


1430 

1440 

1450 

1460 

1470 

1480 

1490 


PRINT OHR*(18)"1"CHR*(146)" DATENEING 
ABE FUER EIN WEITERES{10SPACEJFAHRZEU 
G" 

PRINT:PRINT CHR*t1B)"2"CHR*(146)" KOR 
REKTUR: PREISANGABEN 
PRINT:PRINT CHR*(1B); 

PRINT"3"CHR*<146)" STEUER UND VERSICH 
ERUNG":PRINT"<2SPACEJ(EINGABE BZW. KO 
RREKTUR)" 

PRINTsPRINT CHR*(18)"4"CHR*(146)" WER 
KST ATTKOSTEN":PRINT“(2SPACEJ(EINGABE 
BZW. KORREKTUR)“ 

PRINT:PRINT CHR#(18)"5"CHR*(146)" BET 
RIEBSKOSTEN“SPRINT"I2SPACE >(EINGABE B 
ZW. KORREKTUR)" 

PRINTsPRINT CHR»(18)"6"CHR»(146)" TAB 
ELLE' ANSCHAFFUNGSPRE IS“ 

PRINTsPRINT CHR»(18)"7"CHR*(146)" TAB 
ELLE KOSTEN PRO MONAT' 

PRINTsPRINT CHR»(18)”8"CHR»(146)" TAB 
ELLE 'KOSTEN PRO KILOMETER' 
PRINTsPRINT CHR»(18)"9"CHR»(146)" GRA 
FIK" 

PRINTsPRINT CHR*(18)"*"CHRS(146)“ SPE 
ICHERN DER DATEN AUF DISKETTE"; 

GET E*s IF E#=" ”THEN 1160 
IF E*="*"THEN 2550 

E=VAL(E*)tON E GOTO 400,1200,1400,157 
0,1740,2150,2280,2460,2960 
GOTO 1160 

PRINT CHR»(147)CHR*(18)"I3SPACE>K O R 
R E K T U RC2SPACE> < PREIS E<SHI 
FT-SPACE»I3SPACE >" 

GOSUB 1720 

PRINTsPRINT"KORREKTUR FUER NR.";:INPU 
T I 

PRINTsPRINTsPRINT"DIE KORREKTUR ERFOL 
GT DURCH UEBER-" 

PRINT"SCHREIBEN, EINFUEGEN ODER ANHAE 
NGEN." 

PRINT"NACH DER KORREKTUR ODER WENN NI 
CHTS VER-"; 

PRINT"AENDERT WERDEN SOLL, BITTE "CHR 
*(18)"RETURN"CHR*(146) 

PRINT“DRUECKEN!" 

PRINTsPRINT:PRINT"WEITER?" 

BET E*s IF E#=" "THEN 1290 

GOTO 430 

END 

REM PREISE FUER SONDERZUBEHOER 
IF EX*="0"THEN EX=0:RETURN 
IF EX*=“*"THEN EX=0:RETURN 
EX=VAL(EX») : IF EXO0 THEN RETURN 
PRINT"EINGABE NICHT KORREKT! BITTE NE 
UEINGABE!INPUT EX*:GOTO 1330 
PRINTsPRINT"WIRD DIE EINGABE WEITERER 
EXTRAS T8SPACEJGEWUENSCHT?" 

GET E*sIF E*="J"OR E*=“N“THEN RETURN 
GOTO 1380 

PRINT CHR#(147)sREM »STEUER U.VERSICH 


<049> 

< 111 > 

< 022 > 


< 010 > 


< 138> 


< 110 > 

<096> 

<234 > 

< 18 B> 

<106> 

<103> 
< 166> 
<09B> 

< 102 > 

<066> 


<203 > 
<070> 

<119> 

<017> 

<207> 

<015> 

<243> 

< 176> 
<190> 
<235> 
<030> 
<042> 
<176> 
<040> 
<044> 
<061 > 

<024> 

<245> 

< 180> 
< 109> 


ERUNG* <158> 

GOSUB 1720 <016> 

PRINTSPRINTSPRINT“STEUER- UND VERSICH 
ERUNGSANGABEN FUER"sINPUT"FAHRZEU6 NR 
- "; I <203> 

PRINT CHR*(147)CHR*(18)"C8SPACEJSTEUE 
R UND VERSICHERUNGI9SPACE >" <051> 

PRINT"FUER "TY#(I) <238> 

PRINTsPRINT CHR*(144)"KRAFTFAHRZEUBST 
EUER/JAHR"CHR*(154)SPRINT" "VS(I) <240> 

PRINT CHR*(145);sINPUT VS(I) <010> 

PRINTsPRINT CHR#(144)"HAFTPFLICHTVERS 
ICHERUNG/JAHR"CHR#(154)SPRINT" "VH(I> <035> 

PRINT CHR*(145);sINPUT VH(I> <189> 

PRINTsPRINT CHR*(144)"TEILKASKOVERSIC 


HERUNG/JAHR"CHR*(154)SPRINT" "VT(I) <111> 
1500 PRINT CHR#(145);sINPUT VT(I> <0B2> 

1510 PRINT CHR*(144) <140> 

1520 PRINT"VOLLKASKOVERSICHERUNG/JAHR"CHR* 

(154)SPRINT" "W(I> s PRINT CHR#(145);s 
INPUT W(I) <048> 

1530 PRINT CHR*(144) <160> 


1540 PRINT CHR*(144)"INSASSENUNFALLVERSICH 
ERUNB"CHR*(154)SPRINT" "VI(I)sPRINT C 
HR*(145); 

1550 INPUT VI(I) 

1560 GOTO 1030 

1570 GOSUB 1720sPRINTsPRINT“WERKSTATTKOSTE 
N FUER NR.";sINPUT I 

1580 PRINT CHR*(147)CHR*(18)"I5SPACEJW E R 
KSTATTKOSTE N C6SPACE >" 

1590 PRINT"ZU DEN WERKSTATTKOSTEN GEHOEREN 
U.A. s " 

1600 PRINT"OELWECHSEL, INSPEKTIONEN, REIFE 
N- UNDI3SPACEJAUSPUFFERNEUERUNG..." 

1610 PRINT-WEIL ES KAUM MOEBLICH IST, DIE 
WERKSTATT"; 

1620 PRINT"KOSTEN DER NAECHSTEN JAHRE EXAK 
T VORAUS-"; 

1630 PRINT"ZUBERECHNEN, WIRD HIER MIT EINE 
R"s PRINT"PAUSCHALE GERECHNET.“s PRINT 

1640 PRINT CHR#(144)“FUER ”TY*(I) 

1650 PRINTsPRINT CHR*(18)"1"CHR*(146); 

1660 PRINT" PAUSCHALE VON 100 DM/MONAT (DU 
RCH— <6SPAC£ JSCHNITTSWERT STAND 1984)" 
sPRINT 

1670 PRINT CHR*(18)"2"CHR*(146)" ANDERE PA 
USCHALE"CHR*(154) 

1680 GET E*sIF E*="1“THEN WK(I)=100sWJ(I)= 
WK(I)* 12s GOTO 1030 

1690 IF E*="2"THEN PRINT:PRINTsPRINT"WIEVI 
EL DM "WK(I>sPRINT CHR*(145)SPC(10)sI 
NPUT WK (I) 


1700 IF E#="2"THEN WJ(I)=WK(I)*12:GOTO 103 

0 


■; )n 


1710 GOTO 1680 

172^ePTNT CHR* (147) : PR INT" BISHER WURDEN D 
HlfcN EINGEGEBEN FUER" 

1730 FOR 1=1 TO N:PRINT:PRINT I;TY*(I):NEX 
Ts RETURN 
1740 GOSUB 1720 

1750 PRINT:PRINT"BETRIEBSKOSTEN FUER WELCH 
ES FAHRZEUG?":INPUT I 

1760 PRINT CHR*(147)CHR*(18)"<6SPACEJB E T 
RIEBSKOSTE NCBSPACEJ" 

1770 PRINT CHR*(144)"FUER “TY*(I>sPRINT CH 
R*(154) 


1780 PRINT"DER MOTOR BRAUCHT"sPRINT 
1790 PRINT"<4SPACEJ"CHR*(18)"N"CHR*(146)" 
NORMAL<4SPACEJ"CHR*(18)"S"; 

1800 PRINT CHR#(146)" SUPER<4SPACEJ“CHR*(1 
8)"D"CHR*(146)“ DIESEL" 


1810 PRINTsPRINTsPRINT"<2SPACEJ"CHR*(18)"A 
“CHR*(146)" BLEIFREI NORMAL<3SPACEJ"; 
1820 PRINT CHR#(18)"B"CHR*(146)“ BLEIFREI 
SUPER" 


1830 GET TR*(I) 

1840 IF TR*(I)=“N"THEN PRINT:PRINT"PREIS/1 
LITER NORMALBENZ IN “PN 


1850 IF TR*(I)=”N“THEN PRINT CHR*(145)SPC( 


26)sINPUT PNs GOTO 1950 
1860 IF TR# <I)="S"THEN PRINT:PRINT“PREIS/1 
LITER SUPERBENZIN “PS 
1870 IF TR*(I)="S"THEN PRINT CHR*(145)SPC( 
26)1 INPUT PSsGOTO 1950 
1880 IF TR*(I)="D"THEN PRINTsPRINT"PREIS/1 
LITER DIESEL “PD 

1890 IF TR*(I)="D"TH£N PRINT CHR*(145)SPC( 
20):INPUT PDS GOTO 1950 
1900 IF TR*(I)="A"THEN PRINTsPRINT"PREIS/l 
LITER NORMAL(BLEIFR.> "PA 
1910 IF TR#(I> ="A"THEN PRINT CHR*(145)SPC( 
29):INPUT PAsBOTO 1950 
1920 IF TR*(I)="B"THEN PRINTsPRINT"PREIS/l 
LITER SUPER (BLEIFR.) "PB 
1930 IF TR*(I)=“B"THEN PRINT CHR*(145)SPC( 


<089> 

<097> 

<072> 

<042> 

<193> 

< 155> 
<013> 
<001 > 
<240> 

<219> 

< 132> 
<092> 

<213> 

<0B9> 

<059> 

<081 > 

<221 > 

<223> 

<063> 

<070> 

<092> 

<031 > 

<063> 

<039> 

<214> 

<235> 

< 212 > 

<211 > 

< 131 > 
< 220 > 

<056> 

<035> 

<255> 

< 176> 
< 120 > 
<008 > 
<069 > 
<168> 
<103> 


Listing 1. Listing zum »Autokauf«. Bitte beachten Sie 
die Eingabehinweise auf Seite 6. 



ifcJi'aj* 





Finanzen 


C 64 



29):INPUT PB:GOTO 1950 

< 212 > 

2550 

REM * SPEICHERN AUF DISKETTE * 

<005> 

1940 

GOTO 1830 

<070> 

2560 

PRINT:OPEN 1,8,15,"S:AUTOVERGL.":CLOS 


1950 

PRINT:PRINT:PRINT CHRSI144)"VERBRAUCH 



E 1 

<001 > 


: “CHR*(154>"BERUECKSICHTIGEN SIE DAB 


2570 

OPEN 1, 8 , 8 ,“AUTOVERGL.,S,W" 

<031 > 


EI," 

< 144> 

2580 

PRINT41,N:PRINTttl,PN:PRINTttl,PS:PRINT 


1960 

PRINT"OB DER WAGEN UEBERWIEGEND AUF L 



#1,PD:PRINTttl,PA:PRINT#1,PB 

< 17S> 


ANGSTREK-“; 

<250> 

2590 

PRINTttl,P1*:PRINT#1,P2*:PRINTttl,P3*:P 


1970 

PRINT"KEN ODER IM STADTVERKEHR GEFAHR 



RINT#1,P4*:PRINTttl,P5* 

< 120 > 


EN WIRD! “ 

< 176> 

2600 

FOR 1=1 TO N 

<045> 

1900 

PRINT"WIEVIEL LITER AUF 100 KM "VE(I) 

<068> 

2610 

PRINTttl,TY*(I):PRINTttl,TK*(I):PRINTttl 


1990 

PRINT CHR*(145)9PC(24>:INPUT VE(I> 

<014> 


,LE(I>:PRINT#l,HU(I):PRINT#l,SO(I> 

<066> 

2000 

PRINT:PRINT:PRINT CHR*(144)“DIE KOSTE 


2620 

PRINTttl,PG(I>:PRINT#1,PZ(I>:PRINTttl,P 



N FUER NACHGEFUELLTES DEL" 

<194> 


R(I):PRINTttl,PT(I):PRINTttl,PU(I>:PRIN 


2010 

PR INT "WERDEN MIT 17. DER TREIBSTOFFKOS 



T#1,PL(I> 

< 212 > 


TEN BEI" 

<174> 

2630 

PRINT41,PD(I):PRINTttl,PF(I>:PRINTttl,P 


2020 

PRINT"OTTOMOTOREN UND MIT 2X BEI DIES 



KI): PRINT# 1 ,P2 (I) : PR1 NT#1, P3 (I) 

<043> 


ELMOTOREN"; 

< 118> 

2640 

PRINT#1 ,P4 (I ) : PRINT#1 ,P5 (I ) 

<039> 

2030 

PRINT"BERUECKSICHTIGT."CHR*(154):PRIN 


2650 

PRINT#1,P1#(I):PRINT#1,P2#(I):PRINT#1 



T:PRINT 

<244> 


,P3*(I>:PRINT#1,P4*(I):PRINT#1,P5*(I) 

< 012 > 

2040 

GOSUB 2120 

<050> 

2660 

PRINT#1,PE(I):PRINT#1,IZ(I):PRINTttl,H 


2050 

PRINT CHR*(147)CHR*(18)"<12SPACE>S 0 



R (I) 

<015> 


N S T I G E S < 11 SPACE >" 

<050> 

2670 

PRINT#1, VS (I >: PRINT# 1, VH (I): PRINT#1, V 


2060 

PRINT"FALLS GEWUENSCHT, KOENNEN SIE H 



T(I):PRINT#1,VV(I):PRINTttl,VI(I) 

<049> 


IER “ 

<233> 

2680 

PRINT#1,VE(I):PRINT#1,TP(I):PRINT#1,W 


2070 

PRINT"KOSTEN FUER WAGENPFLEGE, GARAGE 



K(I):PRINT#1,WJ(I):PRINT#1,TR#(I> 

<216> 


NMIETE.. . 

<004> 

2690 

PRINT#1,PD*(I):PRINT#1,PT*(I):PRINT#1 


2080 

PRINT"BERUECKSICHTIGENPRINT 

<026> 


,PU*(I):PRINT#1,PL*(I>:PRINT#1,PR*(I) 

< 10 B> 

2090 

PRINT"SUMME PRO JAHR "SO(I> 

<055> 

2700 

PRINT#1,KB(I):PRINT#1,ZM(I):PRINT#1,M 


2100 

PRINT CHR*(145)SPC(14):INPUT SO<I) 

< 002 > 


0(1):PRINT#1,GE(I>:PRINT#1,AZ(I):PRIN 


2110 

GOTO 1030 

< 114> 


T#1,KS(I):PRINT#1,KR(I) 

< 220 > 

2120 

PRINT"WEITER? (DRUECKEN SIE EINE BELI 


2710 

PRINTttl ,PF# (I ) : NEXT 

<091 > 


EBIGE C4SPACEITASTE!)"; 

< 022 > 

2720 

CLOBE 1 

< 191 > 

2130 

GET E*:IF E*=""THEN 2130 

< 022 > 

2730 

GOTO 1030 

<226> 

2140 

RETURN 

< 1 66 > 

2740 

REM * LADEN VON DISKETTE * 

< 143> 

2150 

REM »TABELLEN» 

<177> 

2750 

OPEN 1, 8 , 8 ,"AUTOVERGL.,S,R" 

<081 > 

2160 

PRINT CHR*(147)CHR*(18)“T2SPACEJA N S 


2760 

INPUT#1,N:INPUT#1,PN:INPUT#1,PS:INPUT 



CHAFFUNGSKOSTE N{3SPACE 



#1,PD:INPUTttl,PA:INPUT#1,PB 

< 1 B 0 > 


>“ 

<169> 

2770 

INPUT#1,P1*:INPUT#1,P2«:INPUT#1,P3*:I 


2170 

FOR 1=1 TO N:PRINT TY*(I); 

<107> 


NPUT#1,P4*:INPUT#1,P5* 

<145> 

2180 

FOR J=1 TO 25—LEN(TY* (I) ) : PRINT" . " J : N 


2780 

FOR 1=1 TO N 

<225> 


EXT:PX=PE(I>:IF KR(I)=1 THEN PX=KS(I> 

<186> 

2790 

INPUT#1,TY*<I):INPUTttl,TK* <I):INPUT#1 


2190 

PRINT INT(PX)"DM" 

<215> 


,LE(I):INPUT#1,HU(I>:INPUT#1,SO(I) 

<066> 

2200 

IF N<10 THEN PRINT <033> 

2 F ■ 

INPUT#1,PG(I):INPUT#1,PZ(I):INPUT#1,P 


2210 

NEXT I:GOSUB 2120 

<016> 


R(I>:INPUT#1,PT(I):INPUTttl,PU(I):INPU 


2220 

GOTO 1030 

<224> 


T#1,PL(I) 

< 197> 

2230 

PRINT CHR*(147):FOR Y=1 TO 6 :PRINT:NE 


2810 

INPUT#1,PD(I):INPUT#1,PF(I>:INPUT#1,P 



XT:PRINT"DURCHSCHNITTLICHE FAHRSTRECK 



KI): INPUT#1 ,P2 (I): INPUT#1, P3 (I) 

<038 > 


E PRO JAHR:“ 

<028> 

2820 

INPUT#1,P4(I):INPUT#1,P5(I) 

<237 > 

2240 

PRINT:INPUT S 

<201 > 

2830 

INPUT#1,P1*(I):INPUT#1,P2*(I):INPUT#1 


2250 

PRINT:PRINT:PRINT 

<087> 


,P3*(I):INPUT#1,P4*(I):INPUT#1,P5*(I) 

< 200 > 

2260 

PRINT"NACH WIEVIEL JAHREN WOLLEN SIE 


2840 

INPUT#1,PE(I):INPUT#1,IZ(I):INPUT#1,H 



DEN WAGENWIEDER VERKAUFEN" 5 :INPUT ZJ 

<080> 


R (I) 

<148> 

2270 

RETURN 

<040> 

2850 

INPUT#1,VS(I):INPUTttl,VH(I):INPUT#1,V 


2280 

GOSUB 2230:PRINT CHR*(147)CHR*(18)"<3 



T(I):INPUTttl,VV(I):INPUTttl,VI(I) 

<046> 


SPACEJKOSTEN PRO MONAT BEI"S; 

<143> 

2860 

INPUTttl,VE(I):INPUT#1,TP(I):INPUTttl,W 


2290 

PRINT CHR*(157)" KM/JAHR{3SPACE>“ 

< 127> 


K (I) : INPUTttl ,WJ (I) : INPUTttl , TR* (I ) 

<213> 

2300 

FOR 1=1 TO N:PRINT TY*(I); 

<237> 

2B70 

INPUTttl,PD*(I):INPUTttl,PT*(I>:INPUTttl 


2310 

FOR J=1 TO 28—LEN(TY*(I)):PRINT". " ; : N 



,PU*(I):INPUTttl,PL*(I>:INPUTttl,PR*(I> 

<040> 


EXT 

< 177> 

2880 

INPUTttl,KB(I):INPUTttl,ZM(I):INPUTttl.M 


2320 

GOSUB 2360:PRINT INT(P(I>/12)"DM" 

<I87> 


0(1):INPUTttl,GE(I>:INPUTttl,AZ(I):INPU 


2330 

IF N<10 THEN PRINT 

<165> 


T#1,KS(I>:INPUTttl,KR(I> 

<187> 

2340 

NEXT I:GOSUB 2120 

< 148> 

2890 

INPUTttl,PF#(I):NEXT 

< 193> 

2350 

GOTO 1030 

< 100 > 

2900 

IF PR*(I)<>"»"THEN PR*(I)=STR*(PR(I)) 

<021 > 

2360 

REM » KOSTEN PRO JAHR « 

<127> 

2910 

CLOSE 1 

<127> 

2370 

PX=PE(I):IF KR(I)=1 THEN PX=KS(I) 

<125> 

2920 

GOTO 1030 

< 162 > 

2380 

P (I ) =PX/ZJ+VS (I) +VH (I ) +VT ( I ) +W (I)*VI 


2930 

PRINT"BISHER WURDEN DATEN EINGEGEBEN 



(I)+WJ(I)+SO(I) 

< 022 > 


FUER" 

< 114> 

2390 

IF TR*(I> = "N"THEN TP=PN:DE=1.01 

<248> 

2940 

FOR 1=1 TO N:PRINT:PRINT I;TY*(I):NEX 


2400 

IF TR*(I> = "S"THEN TP=PS:OE=l.01 

<062> 


T 

<053 > 

2410 

IF TR*(I)="D"THEN TP=PD:OE=l.02 

<152> 

2950 

RETURN 

<214> 

2420 

IF TR*(I>="A"THEN TP=PA:OE=l.01 

< 122 > 

2960 

REM »GRAFIK* 

<237> 

2430 

IF TR»(I)="B"THEN TP=PB:OE=l.01 

<144> 

2970 

PRINT CHR*(147)CHR*(18)" D I A B R A 


2440 

P(I)=P(I)+S/100»VE(I> »TP*OE 

<117> 


M M E C2SPACEJZ U R C2SPACEIA U S W A H 


2450 

RETURN 

< 222 > 


L" 

<246> 

2460 

GOSUB 2230:PRINT CHR*(147)CHR*(18)“ K 


2980 

PRINT CHR*(18)"1"CHR#(146)" ANSCHAFFU 



OSTEN PRO KILOMETER BEI"S; 

<060> 


NGSPREISE” 

<025> 

2470 

PRINT CHR*(157)" KM/JAHR “ 

<053> 

2990 

PRINT:PRINT CHR*(18)"2"CHR#(146)“ MON 


2480 

FOR 1=1 TO N:PRINT TY*(I>; 

<163> 


ATLICHE KOSTEN" 

<070> 

2490 

FOR J=1 TO 30-LEN(TY#(I)):PRINT".“;:N 


3000 

PRINT:PRINT CHR*(18)"3"CHR*(146)“ KOS 



EXT:GOSUB 2360 

<227> 


TEN PRO KILOMETER" 

< 222 > 

2500 

KP=INT(P(I)/S«100+-5)7100 

<082> 

3010 

PRINT:PRINT CHR*(18)"4"CHR*(146)" HUB 


2510 

KP*=STR*(KP):IF KP<1 AND LEN(KP*)<4 T 



RAUM UND LEISTUNG" 

<022 > 


HEN KP*=KP*+"0" 

< 156> 

3020 

PRINT:PRINT CHR*(18)"5"CHR*(146)" EXT 


2520 

IF KP<1 THEN KP*="0"+RIGHT#(KP*,3) 

<016> 


RAS" 

<036> 

2530 

PRINT KP*" DM“:IF N<10 THEN PRINT 

<084> 

3030 

PRINT:PRINT CHR*(18)"6"CHR*(146)" DRU 


2540 

NEXT I:GOSUB 2120:GOTO 1030 

<141 > 


CKERAUSGABE FUER EIN FAHRZEUG" 

<063 > 




110 
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Finanzen 




3040 

PRINT:PRINT:PRINT:PRINT"Z UR PROGRAMMF 


3540 

IF LE=0 THEN Ll*="100":L2*=" 75“:L3*= 



ORTSETZUNG NACH DIAGRAMMEN" 

< 169> 


" 50“:L4*=" 25":DL=5 

<097> 

3050 

PRINT"ElNE BELIEBIGE TASTE DRUECKEN!" 

< 112 > 

3550 

PRINT CHR*(19)"C5SPACEJLEISTUNG <"CHR 


3060 

PRINTSPRINT"WIRD EINE HARDCOPY GEWUEN 



* < 28 > •• £" CHR* < 154) “ ) < 13SPACE J HUBRAUM < H 



SEHT," 

<227> 


) "; 

<240> 

3070 

PRINT CHR*(18)"Fl"CHR*<146)" DRUECKEN 


3560 

PRINT"C 8 SPACEJIN KWC20SPACEJIN CCM" 

< 119> 


! M 

< 152> 

3570 

PRINT TAB <9)Ll*"ß. 


3080 

GET E*:IF ES=""THEN 3080 

<055> 


i."Hl*:X=4: GOSUB 3610 

<059> 

3090 

E=VAL(E*):ON E GOTO 3110,3260,3340,34 


3580 

PRINT TAB(9)L2*"ß. 



20,3900,4700 

<073> 


A,"H2*: GOSUB 3610 

<055> 

3100 

GOTO 3080 

<009> 

3590 

PRINT TAB(9)L3*"ß. 


3110 

REM * GRAFIK ANSCHAFFUNGSKOSTEN * 

< 183> 


i"H3*:GOSUB 3610 

< 199> 

3120 

GR=l:MO=l:POKE 53280,0:POKE 53281,0:R 


3600 

PRINT TAB(9)L4*"ß. 



EM HINTERGR.FARBE 

<180> 


_L"H4*:X=5:GOSUB 3610:GOTO 3620 

< 163> 

3130 

PRINT CHR*(147)CHR*<158)" A N S C H A 


3610 

FOR 1=1 TO X:PRINT TAB<12)"H<4SPACE>. 



FFUNGSKOSTE N":PRINT:MS=0 

<235> 


C4SPACEJ.C4SPACEJ.<5SPACEJg":NEXT:RET 


3140 

FOR 1 = 1 TO N:IF KS(I)>60000 THEN MS-3 



URN 

< 118> 


:GOTO 3180 

<199> 

3620 

PR I NT TAB < 12) " TJ1ÜUD5UUU10WH15OTJÜ20U" 

<088> 

3150 

IF KS(I>>30000 THEN IF MS<2 THEN MS=2 

<241> 

3630 

FOR 1=1 TO N:LX=INT<LE(I)/DL+.5):HX=I 


3160 

IF KS(I)>15000 THEN IF MS<1 THEN MS=1 

< 002 > 


NT <HU <I>/DH+.5) 

<249> 

3170 

NEXT 

<132> 

3640 

POKE 1956+1—LX*40,81:POKE 5622B+I-LX* 


3180 

FOR 1=1 TD 20:PRINT TAB(5)CHR*(5)T<4 



40,2 

< 202 > 


SPACEJRC4SPACEJTT<4SPACEJH<4SPACEJH<4S 


3650 

POKE 1956+1—HX*40,87:POKE 56228+I-HX* 



PACEJHC4SPACEJH":NEXT 

< 112 > 


40,7 

< 164> 

3190 

FOR 1=1 TO 38:PRINT"U";=NEXT:PRINT 

<042> 

3660 

IF HX=LX THEN POKE 1956+I-HX«40,42 

<093 > 

3200 

IF MS=0 THEN PRINT TAB<14)"5000C5SPAC 


3670 

NEXT 

< 124> 


E J10000 C5SPACEJ15000":DI=500 

<237> 

3680 

GET E*:IF E*=""THEN 3680 

<020 > 

3210 

IF MS=1 THEN PRINT TAB<13)"10000<5SPA 


3690 

IF ASC(E*)=133 THEN GOSUB 4570 

< 147> 


CE J20000 C5SPACE J30000":DI = 1000 

<048> 

3700 

GOTO 1030 

< 180> 

3220 

IF MS=2 THEN PRINT TAB<13)"20000<5SPA 


3710 

REM » BALKENGRAFIK * 

< 1 B 6 > 


CE J40000 C5SPACE J60000“:DI=2000 

<209> 

3720 

PRINT CHR*<19)SPRINT:IF N <6 THEN FOR 


3230 

IF MS=3 THEN PRINT TAB<13)"30000<5SPA 



Y=1 TO 5:PRINT:NEXT 

<076> 


CE J60000C5SPACEJ90000"s DI=3000 

< 114> 

3730 

FOR 1=1 TO N:PRINT TK*(I):IF N<11 THE 


3240 

FOR 1=1 TO N:K(I)=KS(I):NEXT 

<037> 


N PRINT 

<249> 

3250 

GOTO 3710 

<046> 

3740 

NEXT I 

< 012 > 

3260 

REM * GRAFIK KOSTEN PRO MONAT * 

<077> 

3750 

PRINT CHR*(19):PRINT:IF N <6 THEN FOR 


3270 

GOSUB 2230:GR=1:MO=1:POKE 53280,7sP0K 



Y=1 TO 5:PRINT:NEXT 

<106> 


E 53281,7:REM HINTERGR.FARBE 

<014> 

3760 

FOR 1=1 TO N:PRINT SPC< 6 ) 

<007> 

3280 

PRINT CHR* <147)CHR*(31>“C3SPACEJK 0 S 


3770 

K1=INT <K<I)/DI):K2=INT< <K<I)-K1*DI>/D 



T E NC3SPACEJP R 0C3SPACEJM 0 N A T" 



1 * 6 ) 

<007> 


:PRINT:MS=0 

<149> 

3780 

IF Kl>=1 THEN FOR J=1 TO KlsPRINT CHR 


3290 

FOR 1=1 TO 20:PRINT TAB(5)CHR*<144)T 



*(28)CHR*(18)" ";:NEXT 

<024> 


<4SPACEJH<4SPACEJH<4SPACEJH<4SPACE JH< 

S46B 

3790 »* K2=0 THEN PRINT 

<099> 


4SPACE JHC4SPACE JH"s NEXT 

<1B5> 

3800 

IF K2=l THEN PRINT CHR*<146)CHR*<165) 

<056> 

3300 

FOR 1=1 TO 38:PRINT“!?"; :NEXT:PRINT 

<152> 

3810 

IF K2=2 THEN PRINT CHR*<146)CHR*<181) 

< 106 > 

3310 

FOR 1=1 TO N:GOSUB 2360:K<I>=INT<P(I> 


3820 

IF K2=3 THEN PRINT CHR*<146)CHR*<161) 

< 1 72 > 


/12>:NEXT 

< 181 > 

3830 

IF K2=4 THEN PRINT CHR*(182) 

<0B7> 

3320 

PRINT TAB<14)" 300C6SPACE>600C7SPACEJ 


3840 

IF K2=5 THEN PRINT CHR*<167) 

<035> 


900":DI=30 

<070> 

3850 

IF N<11 THEN PRINT 

<225> 

3330 

GOTO 3710 

<128> 

3860 

NEXT I 

< 134> 

3340 

REM * GRAFIK KOSTEN PRO KILOMETER # 

< 250> 

3870 

GET E*:IF E*=""THEN 3870 

< 212 > 

3350 

GOSUB 2230:GR=l:MO=l:POKE 53280,14:P0 


3880 

IF ASC(E*> = 133 THEN GOSUB 4570 

<083> 


KE 53281,14:REM HINTERGR.FARBE 

<208> 

3890 

MO=0:GOTO 1030 

<096> 

3360 

PRINT CHR*(147)CHR*<31)“ KOSTEN! 


3900 

REM »EXTRAS* 

<021 > 


3SPACEJP R OC3SPACEJK ILOMETER 


3910 

PRINT CHR* <147)CHR*(144)"*—SERIENM. A 



":MS=0 

< 020 > 


-AUFPREIS 0—NICHT VORHANDEN " 

< 107> 

3370 

FOR 1=1 TO 20:PRINT TAB<5)CHR*<144)T 


3920 

IF N<10 THEN AS*="C2SPACEJ":AS=3:GOTO 



C4SPACE JHC4SPACE >H<4SPACE JHC4SPACE >H< 



3950 

<089> 


4SPACEJ H C4SPACE JH“:NEXT 

<0U> 

3930 

IF N>15 THEN AS*="":AS=1:GOTO 3950 

<124> 

3380 

FOR 1 = 1 TO 38:PRINT"U"« SNEXT:PRINT 

<234> 

3940 

AS*=" “:AS=2 

<019> 

3390 

FOR 1=1 TO N:GOSUB 2360:K<I)=INT<P<I) 


3950 

FOR J=1 TO 3 

<247> 


/S*100):NEXT 

<1B8> 

3960 

TB=11:FÜR 1=1 TO N 

<044> 

3400 

PRINT TAB <14)"0.30C6SPACEJ0.60C6SPACE 


3970 

PRINT TAB(TB)MID*(TK*(I),J,1);:TB=TB+ 



>0.90";:DI=3 

<195> 


AS:NEXT I:PRINT:NEXT J 

< 209 > 

3410 

GOTO 3710 

<208> 

39B0 

FOR 1 = 1 TO 40:PRINT"TJ"; :NEXT 

<229> 

3420 

REM * GRAFIK HUBRAUM UND LEISTUNG * 

< 020 > 

3990 

FOR 1=1 TO N 

< 165> 

3430 

GR=1:POKE 53280,0:POKE 53281,0:REM HI 


4000 

UR* <I> =PR*(I>:IF UR*(I> < >"*"AND UR*<I 



NTERGRUNDFARBE 

<135> 


)< >"0"THEN UR*(I) = "A" 

< 177> 

3440 

PRINT CHR*(147)CHR*(5):PRINT:PRINT:FO 


4010 

UT* < I) =PT* < I) : IF UT* (IX >"*" AND UT* < I 



R 1=1 TO N:PRINT I;TK*<I>:NEXT:PRINT 



><>"0"THEN UT#(I> ="A" 

< 100 > 


CHR*(19):LE=0 

<201 > 

4020 

UUSS<I)=PU*<I): IF UU*(I)<>"*"AND UU*<I 


3450 

FOR 1=1 TO N: IF LEU) >100 THEN LE=1:G 



)<>"0"THEN UU* (I)="A" 

< 194> 


OTO 3470 

< 1 11 > 

4030 

UL*U)=PL#(I): IF UL#(I )<>"*"AND UL*(I 


3460 

NEXT:HU=0 

< 107> 


)<>"0"THEN UL*(I)="A" 

<214> 

3470 

FOR 1=1 TO N:IF HU(I)>4000 THEN HU=2: 


4040 

UD*(I)=PD*(I):IF UD*<I)<>"#"AND UD*(I 



GOTO 3500 

< 082> 


)<>“0"THEN UD*(I)="A" 

<062> 

3480 

IF HU <I)>2000 THEN HU=1 

< 127> 

4050 

UF*(I)=PF* <I):IF UF#(I)< >"*"AND UF*<I 


3490 

NEXT 

<198> 


>< >"0"THEN UF*(I)="A" 

<240> 

3500 

IF HU=2 THEN Hl*="6000":H2*="4500":H3 


4060 

Ul*(I)=P1* <I):IF Ul* <I)<>"*"AND U1*<I 



*=“3000":H4*="1500“:DH=300 

<251 > 


><>“0"THEN Ul#<I)=“A“ 

<013> 

3510 

IF HU=1 THEN Hl*="4000":H2*="3000"sH3 


4070 

U2*(I)=P2*(I):IF U2*(IX>"*"AND U2*(I 



*=“2000":H4*="1000":DH=200 

< 112 > 


)<>"0"THEN U2*(I)="A" 

<107> 

3520 

IF HU=0 THEN Hl*=“2000”:H2*="1500":H3 


4080 

U3#<I)=P3#(I):IF U3*<I><>"*"AND U3*<I 



*=“1000":H4*=" 500"sDH=100 

<092> 


)<>“0"THEN U3*(I)="A" 

<201 > 

3530 

IF LE=1 THEN Ll*="200":L2*="150":L3*= 






”100"sL4*=" 50“:DL=10 

<040> 
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4090 

U4*(I)=P4*(I) : IF U4*(IX>"*"AND U4* (I 


4630 

IF H4>95 OR H4<32 THEN H5=H4+64 

<023> 


)<>"0"THEN U4*(I>=”A“ 

<040> 

4640 

IF H4>31 AND H4<64 THEN H5=H4 

<179> 

4100 

U5*(I)=P5*(I > : IF U5*(I)<>"*"AND U5*(I 


4650 

IF H4>63 AND H4<96 THEN H5=H4+32 

<103> 


)<> M 0"THEN U5*(I)="A" 

<136> 

4660 

H2*=CHR*(H5) 

<253> 

4110 

NEXT 

<056> 

4670 

H1*=H1*+H2*SIF H 6 =l THEN H6=0:H1*=H1* 


4120 

PRINT“AUT0RADI0(2SPACE}“;:FOR 1=1 TO 



+CHR*(146) 

< 168> 


Ni PRINT UR*(I>;AS*;iNEXTiPRINT 

< 108> 

4680 

NEXT:PRINT#4,CHR*(15>CHR*(16)"20”H1*C 


4130 

PRINT"4 TUEREN (3SPACEJ"; :FOR 1 = 1 TO N 



HR*(Gl) 

<097> 


SPRINT UT*(I>;AS*;sNEXTsPRINT 

< 212 > 

4690 

NEXT:PRINT#4:CLOSE 4:GR=0sRETURN 

< 155> 

4140 

PR I NT " UNTERB - SCH . " ; s FOR 1 = 1 TO NsPRIN 


4700 

REM * DRUCKERAUSGABE FUER EIN FAHRZEU 



T UU*(I);AS*;sNEXTsPRINT 

<077> 


G * 

<052> 

4150 

PRINT“SERVOLENKG ";:FOR 1=1 TO NsPRIN 


4710 

PRINT CHR*(147)s FOR 1 = 1 TO N:PRINT I; 



T UL*(I);AS*;:NEXTsPRINT 

<170> 


TY*(I)s NEXT 

<155> 

4160 

PRINT"SCHIEBED.(2SPACE>";:FOR 1=1 TO 


4720 

PRINT:INPUT"DATEN FUER FAHRZEUG NR."; 



N:PRINT UD*(I);AS*;sNEXTsPRINT 

<016> 


I 

<154> 

4170 

PRINT"SONDERLACK.";:FOR 1=1 TO NsPRIN 


4730 

OPEN 4,4s PRINT#4 

<019> 


T UL*(I>;AS*;:NEXT:PRINT 

< 125> 

4740 

PRINT#4,CHR*(14)1"<2SPACE>"TY*(I)CHR* 


4180 

IF P1*O“0"THEN PRINT PI*; s FOR 1 = 1 TO 



(15) 

<252> 


11-LEN(PI*)SPRINT" ";s NEXT 

<024> 

4750 

PRINT#4,"LEISTUNG (KW):<10SPACE>"LE(I 


4190 

IF P1*O"0"THEN FOR 1 = 1 TO N: PRINT Ul 



> 

< 186> 


*(I);AS*;NEXT;PRINT 

< 103> 

4760 

PRINT44,"HUBRAUM < CCM)1<10SPACE>"HU(I 


4200 

IF P2*<>"0"THEN PRINT P2*;:F0R 1=1 TO 



) 

<253> 


11-LENCP2*)SPRINT” ";:NEXT 

<156> 

4770 

PRINT#4 , " GRUNDPRE18 s < 13SPACE > "PB (I) s P 


4210 

IF P2*<>"0"THEN FOR 1 = 1 TO Ns PRINT U2 



RINT44 

<032> 


*(I);AS»;:NEXT:PRINT 

< 1 B 2 > 

4780 

PRINT44,"UEBERFUEHRUNG+ZULASSUNB:"PZ < 


4220 

IF P3*O“0"THEN PRINT P3*;:F0R 1=1 TO 



I) 

<251 > 


11-LEN(P3*>SPRINT" ";:NEXT 

<032> 

4790 

PR I NT#4 , " AUTORAD 10 s < 15SPACE > " PR* (I ) 

<160> 

4230 

IF P3*O“0"THEN FOR 1 = 1 TO Ns PR INT U3 


4800 

PRINT#4,"4 TUEREN:<16SPACE)"PT*(I) 

< 105> 


*(I);AS*;sNEXTsPRINT 

<250> 

4810 

PRINT44,"UNTERBODEN- U.HOHLR.SCH.:"PU 


4240 

IF P4*<>“0"THEN PRINT P4*;:F0R 1=1 TO 



*(I) 

< 191 > 


11-LEN(P4*)SPRINT" ";sNEXT 

< 165> 

4» 

OJ 

M 

8 

PRINT#4,"SERVOLENKUNGs <12SPACE>“PL*(I 


4250 

IF P4*< >"0"THEN FOR 1 = 1 TO Ns PRINT U4 



> 

< 200 > 


*(I>;AS*;sNEXTsPRINT 

<062> 

4830 

PRINT#4,"SCHIEBEDACH:C13SPACE >"PD*(I) 

< 179> 

4260 

IF P5*O“0“THEN PRINT P5*;sF0R 1 = 1 TO 


4840 

PRINT#4,"SONDERLACKIERUNG:(BSPACE >“PF 



11-LEN(P5*>SPRINT” ";:NEXT 

<041 > 


*(I) 

<005> 

4270 

IF P5*< >"0"THEN FOR 1 = 1 TO Ns PRINT U5 


4850 

IF Pl*< >"0"THEN PRINT#4,P1*;CHR*(16)" 



*(I);AS*;:NEXT:PRINT 

< 130> 


25"P1*(I) 

< 100 > 

4280 

BET E*:IF E*=“"THEN 4280 

<143> 

4860 

IF P2*O"0"TTEN PRINT#4 , P2* , CHR* (16)“ 


4290 

IF ASC(E*> =133 THEN GOSUB 4570 

<239> 


25"P2*(I) 

<099> 

4300 

GOTO 1030 

<016> 

4870 

IF P3*<>"0"THEN PRINT#4,P3*,CHR*(16)“ 


4310 

REM * FINANZIERUNG » 

<197> 


25"P3*(I) 

< 160> 

4320 

PRINT"SOLL ZUMINDEST EIN TEIL DES NEU 


4880 

IF P4*< >"0"THEN PRINT44,P4*,CHR*(16)“ 



WAGENS<3SPACE>FINANZIERT WERDEN?" <004> 


25"P4*(I) 

<219> 

4330 

GET E*sIF E*="N"THEN KR(I>=0sKS(I)=PE 


4890 

IF P5*< >"0"THEN PRINT*4,P5*,CHR*(16>“ 



<I)s RETURN 

<056> 


25"P5*(I) 

< 022 > 

4340 

IF E*="J"THEN KR <I)=1:GOTO 4360 

< 160> 

4900 

PRINT#4,"INZAHLUNGNAHME:(9SPACE>"IZ(I 


4350 

GOTO 4330 

<138> 


) 

<053> 

4360 

PRINT:PRINT"WIRD ZUSAETZLICH ZU DEM I 


4910 

PRINT#4,"HAENDLERRABATT s (9SPACE>"HR(I 



N ZAHLUNG" 

< 141 > 


> 

< 108> 

4370 

PRINT"GENOMMENEN AUTO NOCH EINE ANZAH 


4920 

PRINT44,"(RVSONJBESAMTPREIS:<11SPACEJ 



LUNG" 

<208 > 


“PE(I) 

<217> 

4380 

PRINT"GELEISTET?“ 

< 164> 

4930 

IF KB(I)=0 THEN 4960 

< 181 > 

4390 

GET E*:IF E*»"J"THEN 4420 

<055 > 

4940 

PRINT#4s IF AZ(IX >0 THEN PRINT*4,"ANZ 


4400 

IF E*="N"THEN KB(I)=PE(I)lGOTO 4450 

< 102 > 


AHLUNG:<14SPACE>"AZ(I) 

<067> 

4410 

GOTO 4390 

< 137 > 

4950 

PRINT#4,MO(I)"MONATSRATEN ("ZM(I)"(LE 


4420 

PRINT-HOEHE DER ANZAHLUNG(2SPACE>";AZ 



FT>7.) ZU JE" INT (KS (I ) /MO (I ) *100+. 5) /1 



(I) 

<043> 


00“(LEFT J DM" 

<0B8> 

4430 

PRINT CHR*(145)SPC(20):INPUT AZ(I) 

< 020 > 

4960 

PRI NT#4 : PR INT#4 , “KRAFTFAHRZEUGSTEUER/ 


4440 

KB(I)=PE(I)-AZ(I) 

<173> 


JAHR:"VS(I> 

<171> 

4450 

PR INT: PR I NT " ZINSEN PRO MONAT (7.) ";ZM 


4970 

PRINT#4,“HAFTPFLICHTVERS./JAHR:(35PAC 



(I) 

<070> 


E>"VH(I> 

< 1 B 2 > 

4460 

PRINT CHR*(145)SPC(20):INPUT ZM(I) 

<17B> 

4980 

IF VT(IX >0 THEN PRINT#4,"TEILKASKOVE 


4470 

PRINT:PRINT"WIEVIELE MONATSRATEN ";MO 



RSICHERUNG s(3SPACE>“VT(I) 

< 198> 


(I) 

<081 > 

4990 

IF VV(I)<>0 THEN PRINT#4,"VOLLKASKOVE 


4480 

PRINT CHR*(145)SPC(20)sINPUT MO(I) 

<065> 


RSICHERUNGs<3SPACE>"VV(I) 

< 020 > 

4490 

PR INT SPRINT "BEARBEITUNGSGEB. (7.) “ ; GE 


5000 

IF VI (1)00 THEN PRINT#4 , " INSASSENUNF 



(I) 

<047> 


ALLVERSICH.s(2SPACE>"VI(I) 

<1B5> 

4500 

PRINT CHR*(145)SPC(20):INPUT GE(I) 

<072> 

5010 

PRINT#4:PRINT#4,“MITTLERER VERBRAUCH s 


4510 

KS(I) = ((ZM(I)*MO(I> +GE(I)>/100+1)*KB( 



"VE(I)"L/100 KM"; 

<145> 


I) 

<077> 

5020 

IF TR*(I)="N"THEN PRINT44,"(NORMALBEN 


4520 

PRINT.-PRINTsPRINT CHR*( 154) "BEI EINER 



ZIN) “ 

<232> 


KREDITSUMME VON"CHR*(144)KB(I)"DM" 

< 149> 

5030 

IF TR*(I> ="S"THEN PRINT#4,“(SUPERBENZ 


4530 

PRINT CHR*(154)"BETRAEGT DER TEILZAHL 



IN)" 

<Bii> 


UNGSPREIS“CHR*(144)sPRINT INT(KS(I>*1 


5040 

IF TR*(I)="D"THEN PRINT#4(DIESEL)" 

< 149> 


00 +.5)/ 100 ; 

<174> 

5050 

IF TR*(I)="A”THEN PRINT44,"(BLEIFREI 


4540 

PRINT"DM"CHR*(154) 

<062> 


NORMAL)" 

<074> 

4550 

PRINT"MONATSRATE s"CHR*(144)INT(KS(I)/ 


5060 

IF TR*(I)="B”THEN PRINT44,"(BLEIFREI 



MO(I)*100+.5>/100"DM"SPRINT CHR*(154) 

< 112 > 


SUPER)“ 

< 115> 

4560 

RETURN 

<044> 

5070 

PR INT "DRUCKER AUSGABE FUER EINEN WEITE 


4570 

REM * HARDCOPY * 

<123> 


REN WAGEN(J/N)" 

<107> 

4580 

IF GR=1 THEN Gl =8 

<060> 

5080 

GET E*:IF E*=""THEN 5080 

<085> 

4590 

IF GR-0 THEN Gl=15 

<033> 

5090 

CLOSE 4:IF E*="J"THEN 4700 

<231 > 

4600 

Hl=1024:OPEN 4,4:PRINT»4 

<087> 

5100 

GOTO 1030 

<054> 

4610 

FOR H2=0 TO 24:Hl*=”":FOR H3=0 TO 39 

<199> 




4620 

H4=0:H4=PEEK(H1+H2*40+H3):IF H4>128 T 


6 64'. 

?r 



HEN H4=H4—128:H6=1:H1*=H1*+CHR*(18) 

<056> 


Listing 1. Autokauf (Schluß) 


112 


^W£.de 

net 









' 






^itPVi^de 

6-ler-onHne.nel 
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Kassenwart 
im Wohn¬ 
zimmer 

Mit unserem Programm »Haushalts¬ 
kasse« haben Sie jederzeit den Über¬ 
blick über Ihre Konten, Ihre Ver¬ 
schwendungssucht oder Ihre Spar¬ 
samkeit. 

Das Programm »Haushaltskasse« (siehe Listing) verwaltet 
das verfügbare Einkommen und zeigt die Trendentwicklung 
auf. 

Es handelt sich um eine Jahresbuchführung mit monatli¬ 
chen Zwischenergebnissen. Insgesamt stehen 16 Konten 
zur Verfügung (Konto-Nummern Obis 15). Diese Konten kön¬ 
nen mit beliebigem Text (Kontoname) versehen werden. Die 
Kontonamen sind auf 15 alphanumerische Zeichen begrenzt; 
auf den Übersichten können aus Platzgründen jedoch nur 9 
Zeichen ausgegeben werden. Siebrauchen nicht alle Konten 
sofort anzulegen. Die Kontonummern werden vom Programm 
vergeben, und zwar in aufsteigender Folge von 0 bis 15. Die 
zunächst nicht benötigten Konten können im Laufe des Jah¬ 
res jederzeit nachträglich angelegt werden. Andererseits 
bleiben die Konten, die im Laufe des Jahres auslaufen, bis 
zum Jahresende erhalten. Eine Löschung ist nicht möglich, 
weil die Konten auf der Jahresübersicht gebraucht werden. 

Integriert ist eine Budgetrechnung. Das Programm fragt bei 
Buchungsbeginn und dann bei jedem Monatswechsel für 
jedes Konto nach der Sollvorgabe (Budget). Die Summe für 
alle Konten darf das verfügbare Einkommen nicht überschrei¬ 
ten. Auf der Übersicht stellt das Programm die Sollvorgabe 
und die tatsächlichen Ausgaben gegenüber und wirft die Dif¬ 
ferenz aus. Minusbeträge, das heißt die Sollvorgabe wurde 
überschritten, werden rot dargestellt. 

Das Programm ist vollständig menügesteuert. Sie erhalten 
jederzeit auf dem Bildschirm Hinweise, welche Eingaben 
erwartet werden. Ungültige Eingaben werden ignoriert. 

Das Programm ist auf eine Floppy mit der Geräteadresse 8 
eingestellt. Für den Drucker ist die Geräteadresse 4 vorgese¬ 
hen. Erzeugt wird eine Hardcopy des jeweiligen Bildschirmin¬ 
halts. Vor dem Ausdruck wird noch nach dem aktuellen Datum 
gefragt und dann ausgedruckt. Die Hardcopy-Routine wurde 
für einen Commodore-Drucker (GP-100 A) geschrieben. Es 
hat sich gezeigt, daß das Interface »Printstar - C 64« auf dem 
Epson RX-80 FT+ mit der unveränderten Routine ebenfalls 
eine Hardcopy erzeugt. Die Zeilen 38700 bis 38900 sind 
erst später hinzugekommen und nur für den Epson RX-80 
F/T+ bestimmt. Diese Routine setzt den linken Rand und 
schaltet den Papierende-Detektor aus. Für einen anderen 
Drucker müßten hier entsprechende Werte eingesetzt wer¬ 
den oder gegebenenfalls die gesamte Hardcopy-Routine von 
37500 bis 40100 neu geschrieben werden. 

Das Programm ist absturzsicher. Sowohl ein nicht vorhan¬ 
dener Drucker wie auch Fehler in der Floppy (zum Beispiel 
Ausschalten oder Herausnehmen der Diskette) beein¬ 
drucken das Programm nicht. Auf der untersten Bildschirm¬ 
zeile wird dann ein entsprechender Hinweis ausgegeben. 

Es werden pro Monat und Konto 200 Buchungen verwal¬ 
tet. Fallen mehr Buchungen an, muß die Variable x in Zeile 


1650 entsprechend erhöht werden. In der vorliegenden Ver¬ 
sion sind noch etwa 4000 Byte frei. Jede Vergrößerung um 
eine Buchung benötigt 32 Byte. 

Buchungsanfang 

Beim Buchungsanfang verwenden Sie am besten eine 
neue Diskette, da im Laufe des Jahres eine ganze Reihe von 
Dateien anfallen werden. Das Programm steigt allerdings 
auch nicht aus, wenn die Buchungen über mehrere Disketten 
verteilt sind. Erforderlich ist lediglich, daß ein Monat vollstän¬ 
dig auf einer Diskette vorhanden ist. 

Das Programm fragt zunächst nach dem Startmonat. Die 
Eingabe muß numerisch sein und im Bereich von 1 bis 12 lie¬ 
gen. Zur Korrektur — wenn Sie diese Routine irrtümlich auf¬ 
gerufen haben — drücken Sie einfach nur die »RETURN«- 
Taste. Es wird dann zum Hauptmenü zurückgesprungen. 
Anschließend fragt das Programm nach der Jahresangabe. 
Sie kann zwei- oder vierstellig sein. 

Danach werden die Konten angelegt. Die Kontonummer 
wird vom Programm vergeben, und zwar in aufsteigender Rei¬ 
henfolge von 0 bis 15. Wenn Sie nur die »RETURN«-Taste 
drücken, verzweigt das Programm zu einer Übersicht (siehe 
hierzu den übernächsten Absatz). 

Der Kontoname ist auf 15 Zeichen begrenzt. Danach müs¬ 
sen Sie die DM-Vorgabe eingeben. Die DM-Vorgabe kann nur 
volle Markbeträge enthalten und ist auf den theoretischen 
Wert von 32785 DM begrenzt. 

Wenn Sie keine weiteren Konten anlegen wollen, wird eine 
Übersicht ausgegeben. Die Übersicht enthält fünf Spalten: 

1. Spalte : Kontonummer 

2. Spalte : Kontoname 

3. Spalte : Vorgabe 

4. Spalte : Ausgaben 

5. Spalte : Differenz aus Vorgabe und Ausgabe 

Da>- ber hinaus wird ein Kurzmenü in der untersten Bild¬ 
schirmzeile eingeblendet. Es stehen Ihnen die Tasten »Fl« für 
»richtige Eingabe« und »F3« für »Korrektur« zur Verfügung. 
Bei »F3« werden alle Eingaben gelöscht und der Startmonat 
noch einmal abgefragt. 

Nach Drücken der Fl-Taste müssen Sie eingeben, wieviele 
Buchungen im Monat erwartet werden. Diese Frage bezieht 
sich nur auf den laufenden Monat. Wenn Sie eine zu große 
Zahl angeben, wird auf der Diskette unnötig Platz verschwen¬ 
det. Eine zu kleine Zahl führt später beim Buchen zu Unter¬ 
brechungen, die allerdings nur Sekunden in Anspruch neh¬ 
men. 

Das Programm richtet jetzt auf der Diskette die erforderli¬ 
chen Dateien ein. Da das einige Zeit in Anspruch nimmt, kön¬ 
nen Sie inzwischen eine Tasse Kaffee trinken gehen. 
Anschließend meldet es sich mit dem Hauptmenü zurück. 

Buchen 

Das Buchen stellt Ihre wichtigste Eingabe dar. Wenn Sie 
mehrere Disketten verwenden, vergewissern Sie sich, daß 
Sie die zuletzt gültige Diskette im Laufwerk haben. Das Pro¬ 
gramm überprüft zunächst, ob alle notwendigen Dateien im 
Computer vorhanden sind. Fällt diese Prüfung negativ aus, 
werden zuerst die fehlenden Dateien eingelesen. Eben dafür 
ist es wichtig, daß die letzte gültige Diskette im Laufwerk ist. 

Danach müssen Sie das Buchungsdatum eingeben. Die¬ 
ses muß im Bereich von 1 bis 31 liegen. Prüfungen auf den 
31. April und ähnliches werden allerdings nicht vorgenom¬ 
men. Es braucht nur der Tag und nicht auch noch der Monat 
eingegeben zu werden. Der laufende Monat ist dem Pro¬ 
gramm bereits bekannt. Danach geben Sie den Buchungs¬ 
text ein. Diese Eingabe ist auf 15 Zeichen begrenzt. 

Anschließend wird eine Übersicht aller vorhandenen Kon¬ 
ten ausgegeben. Die Übersicht enthält je Konto die Konto¬ 
nummer, den Kontennamen, die Vorgabe, die bisherigen 
Ausgaben und die Differenz zwischen Vorgabe und Ausgabe. 
Sie haben somit jederzeit Ihre Verschwendungssucht oder 
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Zeilen 

850- 1900 
1950- 2200 
2250- 2600 
2650- 3500 
3550- 5150 
5200- 6950 
7000 - 10750 
10800-11100 
11150-13450 
13500 - 15400 
15450 - 17350 
17400-20500 
20550 - 21350 
21400-23050 
23100 - 23750 
23800 - 25400 
25450 - 26700 

26750 - 28250 
28300 - 29300 
29400 - 30300 
30350 - 30850 

30900 - 32000 
32050 - 33500 
33550 - 34550 
34600 - 35400 
35450 - 37300 
37350 - 40100 
40150 - 42600 

42650 - 43000 
43050-43450 
43500-44100 


Inhalt 

Programminitialisierung 
GET-Abfrage der Tastatur 
Programmkopf 
Hauptmenü 
Neubeginn 

Datei auf Diskette einrichten 

Buchen 

Ende 

Joumalausgabe 

Monats/Jahresausgabe 

Kontoausgabe 

Monatswechsel 

prüft auf Zulässigkeit eines zusätzlichen Kontos 
legt die Konten an 

Summenzeile für Übersicht und Kontoausgabe 
Übersicht 

fragt für Journal und Kontoausgabe nach dem 
gewünschten Monat 

Kurzmenüs in der untersten Bildschirmzeile 
Texteingabe für Kontoname und Buchungstext 
Zahleneingabe für Monat und Vorgabe 
setzt die Variable »I« rechtsbündig in den String 
»a$« ein 

gibt die Datei »KONTEN« aus 
liest die Datei »KONTEN« ein 
liest die Datei »JOURNALINDEX« ein 
gibt die Datei »JOURNAUNDEX« aus 
gibt ein einzelnes Konto aus 
Hardcopy 

liest den Fehlerkanal der Floppy aus, mit ent¬ 
sprechender Reaktion 
setzt den Pointer für die Journaldatei 
öffnet die Journaldatei 

liest den Monat für die Journal- und die Joumal- 

indexdatei 

cmt 


Tabelle 1. So ist »Haushaltskasse« aufgebaut. 


ro$ 

_ 

rote Schriftfarbe 

bl$ 

= 

blaue Schriftfarbe 

pu$ 

= 

purpur Schriftfarbe 

ln$ 

“ 

inverse Schriftdarstellung (RVS ON) 

no$ 

= 

normale Schriftdarstellung (RVS OF) 

ho$ 

= 

Bildschirm löschen 

cz$ 

= 

Cursor eine Zeile hochsetzen 


al %(a,b) 

a-12: 

b=1 Verwaltung Journal 


a1%(0,0) 

= Startmonat 


a 1 %( 0 , 1 ) 

= laufender Monat 


für a=1—12 

= Monate 


für b=0 

= Länge der angelegten Joumaldatei 


für b=1 

= letzter Eintrag in Journaldatei 

a2%(a) 

a-12 

Kontenzähler pro Monat 


a2%(0) 

Buchungsjahr 


für a=1—12 

= Monate 

a3%(a,b) 

a=15: 

b=12 Konten Vorgabe 


für a=0—15 

= Kontonummern 


für b= 1-12 

= Monatsbeträge 


für b=0 

= Jahresbeträge je Monat 

a3 (a.b) 

a=15: 

b=12 Konten Buchungssummen 


Aufteilung siehe bei Konten Vorgabe 

a3$(a) 

a=15 

Kontonamen 

a4%(a,b) 

a=15: 

b=200 Journalindex 


für a=0—15 

= Kontonummern 


für b= 1—200 = enthält Satznummer in Journaldatei 


für b=0 

= letzter Eintrag in vorgenannter Tabelle 


(Es können maximal 200 Buchungen je Konto 


und Monat verarbeitet werden.) 


Tabelle 2. Diese Felder sind von »Haushaltskasse« 
definiert. 


mm 


u n^ " 

n 

fl, f$, f2, f3 
ze 



al$ 


= Statusvariable für die Datei Konten 
mm “ 0 Datei »KONTEN« muß noch eingelcscn 
werden 

mm = 1 Datei »KONTEN« ist eingelesen 
mm = 2 Datei »KONTEN« ist geändert und muß 
geschrieben werden 

= der im Computer befindliche Monat (Journalindex) 
= Fehlerkanal der Floppy 
= Zeilenzähler bei Konto- und Journalausgabe 
= maximale Anzahl der Konten 
= maximale Anzahl der Buchungen je Konto 
= Recordnummer (Zugriff) auf Journaldatei 
= Umrechnung von re in Low- und High-Byte 
= Übergabevariable für Unterprogramm »Übersicht«, 
enthält den aktuellen Monat 
= Ein- und Auslesevariable der Buchung in Journal¬ 
datei. 


Tabelle 3. Die Steuerzeichen wurden als Strings 
definiert. 


Tabelle 4. »Haushaltskasse« verwendet diese Variablen. 


Sparsamkeit bei der neuen Buchung vor Augen. Dann kön¬ 
nen Sie die Nummer des Kontos eingeben, auf das Sie 
buchen möchten. Die Kontonummer muß im Bereich der 
bereits angelegten Konten liegen. Mit »RETURN« verlassen 
Sie die Eingabe. 

Der danach einzugebende DM-Betrag wird nicht weiter 
überprüft und auf dem jeweiligen Konto verbucht. Der Betrag 
kann auch negativ sein. Der Minusbetrag ist einerseits als 
Storno, andererseits auch als Einnahme zu gebrauchen. 

Dann erfolgt die Abfrage nach der nächsten Buchung. Den 
Buchungsmodus verlassen Sie, indem Sie für Datum nichts 
oder Null eingeben. Es dauert etwas, bis das Menü erscheint, 
weil das Programm den aktuellen Stand der Dateien auf Dis¬ 
kette zurückschreibt. Sie brauchen sich daher um die Daten¬ 
sicherung keine Gedanken zu machen. Wenn Sie bei der 
ersten Buchung gleich die »RETURN«-Taste drücken, also 
nichts gebucht haben, wird auch nichts auf die Diskette über¬ 
tragen. 

Monats-/ Jahresübersicht 

Wenn Sie die Taste F3 für »Monatsübersicht« gedrückt 


haben, fragt das Programm, welchen Monat Sie sehen wol¬ 
len. Sie können die Hochpfeiltaste für den laufenden Monat, 
die Sterntaste für alle Monate oder eine Zahl für einen 
bestimmten Monat eingeben. Der Monat darf nicht vor 
Buchungsbeginn und nicht nach dem laufenden Monat lie¬ 
gen. Wenn Sie alle Monate sehen wollen, werden die Monate 
vom Buchungsbeginn bis zum laufenden Monat der Reihe 
nach angezeigt. Im Anschluß daran erfolgt die Jahresüber¬ 
sicht. In der untersten Bildschirmzeile wird ein Kurzmenü 
angezeigt. Sie können wählen, ob Sie weiterblättern (Fl), 
zum Hauptmenü (F3) oder eine Druckerausgabe (F5) wün¬ 
schen. Bei der Druckerausgabe wird zunächst geprüft, ob 
der Drucker eingeschaltet ist. Wenn nicht, gibt das Programm 
einen entsprechenden Hinweis. 

Die Monats- und die Jahresübersicht unterscheiden sich 
im Aufbau nicht. Sie haben folgendes Format: 

Monat XX/ ZZZZ 

A BBBBBBBBB CCCCC DDDDDD.DD EEEEEE.EE 
A BBBBBBBBB CCCCC DDDDDD.DD EEEEEE.EE 
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X = Monat 
Z = Jahr 
A = Kontonummer 
B = Kontoname 
C = Vorgabe 
D = Ausgabe 

E = Differenz zwischen Vorgabe und Ausgabe 

Einzelnes Konto 

Zuerst müssen Sie den Monat eingeben, den Sie sehen 
wollen. Drücken Sie die Hochpfeiltaste für den laufenden 
Monat. Wollen Sie einen der Vormonate sehen, geben Sie 
den Monat als Zahl ein. 

Danach fragt das Programm nach der Kontonummer. Wol¬ 
len Sie alle Konten sehen, geben Sie den Stern ein, sonst die 
Kontonummer. Hier gilt auch, daß nicht angelegte Konten 
ignoriert werden. Die Ausgabe hat folgendes Format: 

A BBBBBBBBBBBBBB CCCCC DD/EEEE 

FF. GGGGCGGGGGGGGGG HHHHHHH.HH 

FF. GGGGGGGGGGGGGGG HHHHHHH.HH 


DM eingeben. Im Folgemonat steht das Konto dann uneinge¬ 
schränkt zur Verfügung. 

Monatswechsel 

Aus Sicherheitsgründen fragt das Programm zunächst, ob 
Sie den Monatswechsel wirklich wollen. Falls Sie diese Funk¬ 
tion irrtümlich aufgerufen haben, geben Sie »n« ein. Das Pro¬ 
gramm springt dann zum Hauptmenü zurück. Das ist deshalb 
wichtig, weil eine Rückkehr in den Vormonat nicht mehr mög¬ 
lich ist. 

Soll der Monatswechsel durchgeführt werden, prüft das 
Programm, ob der Dezember bereits erreicht ist. Dann startet 
es mit »RUN« neu. Sie müssen dann zwar alle Konten wie bei 
Neubeginn neu eingeben, können dafür aber auch die nicht 
mehr benötigten Konten weglassen. 

Ist der Dezember nicht erreicht, werden die Konten der 
Reihe nach aufgerufen, um die Sollvorgaben für den neuen 
Monat einzugeben. 

Monat AA BBBBB CCCCCCC DDDDDDD 


Vorgabe? 


Summe IIIII JJJJJJ.JJ KKKKKKK.KK 

A = Kontonummer G = Buchungstext 

B = Kontoname H = Betrag 

C = Monatsvorgabe I = Vorgabe 
D = Monat J = Summe der Monatsausgaben 

E = Jahr K = Differenz zwischen Vorgabe 

F = Buchungsdatum und Ausgabe 

Es werden maximal 15 Zeilen ausgegeben. Die Summen¬ 
zeile (»J«) wird erst nach der letzten Buchung ausgegeben. 
In der untersten Bildschirmzeile wird ein Kurzmenü einge¬ 
blendet. Sie haben die Wahl zwischen Weiterblättern (Fl) 
zum Hauptmenü (F3) oder einer Druckerausgabe (F5). 
Journal 

Das Journal listet alle Buchungstexte in der Reihenfolge 
auf, wie sie erfaßt wurden. Das Programm fragt zunächst 
nach dem Monat, den Sie sehen wollen. Danach wird das 
Journal ausgegeben. Das Journal hat folgendes Format: 

Journal AA/BBBB 

CC DD. EEEEEEEEEEEEEEE FFFFFF.FF 
CC DD. R RRRRF.RRF.EERRRE FFFFFF.FF 


Die Anzeige zeigt die Monate vom Buchungsbeginn bis 
zum Vormonat an. 

A = Monat 

B = Vorgabe für den jeweiligen Monat 
C = Ausgabe für den jeweiligen Monat 
D = Differenz zwischen Vorgabe und Ausgabe 
Sind die tatsächlichen Ausgaben insgesamt höher als die 
Vorgaben, kann die Vorgabe entsprechend erhöht werden, 
um die Jahresausgaben angleichen zu können. 

Ns*") dem letzten Konto erscheint eine Übersicht, auf der 
Sie Ihre Vorgaben überprüfen können. Insbesondere ist es 
wichtig, daß die Summe der Vorgaben nicht die Einnahmen 
überschreitet. In der untersten Bildschirmzeile wird noch ein 
Kurzmenü eingeblendet. Sie haben die Wahl zwischen Fl für 
ok und F3 für Korrektur. Fl springt zum Hauptmenü. Der 
Monatswechsel ist damit vollzogen. F3 löscht die Vorgaben 
und setzt auch den Monatszähler wieder zurück. Das Pro¬ 
gramm springt wieder zur Abfrage, ob der Monatswechsel 
wirklich ausgeführt werden soll. 

Dateien auf Diskette 

Im Laufe des Jahres fallen eine Vielzahl von Dateien an. Sie 
gliedern sich in drei Gruppen. 

1. KONTEN 

2. JOURNAL 

3. JOURNALINDEX 


A = Monat 

D = Datum 

B = Jahr 

E = Buchungstext 

C = Kontonummer 

F = Betrag 


Es werden maximal 15 Buchungen auf einer Bildschirm¬ 
seite ausgegeben. In der untersten Bildschirmzeile sehen 
Sie ein Kurzmenü. Sie können wählen, ob Sie weiterblättern 
(Fl), zum Hauptmenü (F3) oder eine Druckerausgabe (F5) 
haben wollen. 

Zusatzkonto 

Das Programm prüft zunächst, ob das letzte Konto (Konto¬ 
nummer 15) bereits angelegt ist. Wenn das der Fall ist, wird 
ein entsprechender Hinweis ausgegeben. Nach Drücken 
einer beliebigen Taste kommen Sie ins Hauptmenü zurück. Im 
anderen Fall gibt das Programm einen Text aus, wie unter 
Buchungsanfang beschrieben. Achten Sie jedoch darauf, 
daß das Monatsbudget möglicherweise überschritten wer¬ 
den könnte. Sie können hier einfach als Monatsvorgabe Null 


Die Datei »KONTEN« ist eine sequentielle Datei und enthält 
die Konten selbst sowie die erforderlichen Verwaltungsda¬ 
teien. Die Konten werden nur in dem notwendigen Umfang 
gespeichert, das heißt von Buchungsanfang bis zum laufen¬ 
den Monat und jeweils nur die angelegten Konten. Aus die¬ 
sem Grunde wird diese Datei im Laufe des Jahres immer län¬ 
ger. 

Die Datei »JOURNAL« ist eine relative Datei. Sie wird jeden 
Monat neu angelegt und enthält im Dateinamen noch den 
jeweiligen Monat. Der Datensatz ist 28 Byte lang und hat fol¬ 
gendes Format: 

Byte 1 und 2= Kontonummer 

Byte 3 und 4= Datum 

Byte 5 bis 19= Buchungstext 

Byte 20 bis 27= DM-Betrag in Pfennigen 

Byte 28 = Carriage Return 

Die Länge der Datei »JOURNAL« wird bei Buchungsanfang 
einmal abgefragt. Für die Folgemonate wird der Durchschnitt 
der Buchungen der Vormonate herangezogen und aufgerun¬ 
det. Bei Bedarf wird um jeweils zehn Datensätze verlängert. 
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Die Datei »JOURNALINDEX« ist sequentiell und wird eben- 

Um das Programm weitgehend absturzsicher zu machen, 

falls monatlich neu angelegt. Sie enthält Zeiger, die angeben, 

wurde auf »INPUT« verzichtet und die Eingabe über »GET« 

welcher Datensatz zu welchem Konto gehört. Ihre Aufgabe 

abgewickelt. Zugelassen sind grundsätzlich nur die Buchsta- 

besteht darin, bei der Ausgabe der einzelnen Konten einen 

bentasten (Groß- und Kleinschrift), die Ziffern, die Space- 

unmittelbaren Zugriff auf die entsprechende Buchung zu 

Taste, die allgemein üblichen Sonderzeichen (nicht jedoch 

gewährleisten, damit die Datei »JOURNAL«, die ja diegesam- 

der Doppelpunkt und das Komma) und die DEL-Taste zum 

ten Buchungstexte enthält, nicht von Anfang an durchsucht 

Löschen des letzten Zeichens. 


werden muß. 


(Wolfgang Klimecki/tr) 

1050 

OPEN 15,8,15,"M—W"+CHR* <7> +CHR*< 28 > +C 


5100 GOTO 3800 

< 102 > 


HR*(1)+CHR*<15> 

<052> 

5350 GOSUB 2400 

<042> 

1100 

CLOSE 15 

< 178> 

5400 PRINT BL* 

< 002 > 

1200 

POKE 53280,15!POKE 53281,15 

<1B7> 

5450 PRINT:PRINT"HIEVIELE BUCHUNGEN ERWART 


1300 

ROS=CHRS(2B> 

<196> 

EN flIE IM" 

<150> 

1350 

BL*=CHR*(31> 

<145> 

5500 PRINT 

< 012 > 

1400 

PU*=CHR*(156) 

< 198> 

5550 A*="flDNAT = “ 

< 179> 

1450 

IN*=CHR*<18) 

<045> 

5600 L=3 

<003> 

1500 

N0*=CHR*<146> 

<240> 

5650 GOSUB 29550 

< 163 > 

1550 

H0*=CHR*<147> 

<016> 

5700 RE=VAL(B*> 

<103> 

1600 

CZ*=CHR*<145> 

< 126> 

5750 IF REM THEN 6050 

<246> 

1650 

Y=15:X=200 

<066> 

5800 PR I NT : PR INT" UNGUELTI GER HERT” 

< 222 > 

1700 

Dili A1X(12,1) , A2X(12) ,A3X<Y,12> ,A3*<Y 


5850 FOR A=1 TO 4 

<170> 


),A3(Y,12),A4X(Y,X) 

<159> 

5900 PRINT CZ*; 

<177> 

1 B 00 

PRINT CHR*(14)} 

<062> 

5950 NEXT A 

<128> 

1B50 

GOTO 2800 

< 14B> 

6000 GOTO 5550 

<114> 

2100 

BET C*:IF C*=““THEN 2100 

< 102 > 

6050 PRINT:PRINT“SEHEN SIE EINE IASSE flAFF 


2150 

RETURN 

<176> 

EE TRINKEN" 

<014> 

2400 

PRINT HO*PU*; 

<234> 

6100 N=A1X<0,1> 

< 2 S 2 > 

2450 

GOSUB 2550 

< 112 > 

6150 GOSUB 43850 

< 172> 

2500 

PRINT IN*"<7SPACE>fl flUflHflflJfl.S. 


6200 GOSUB 40300 

<204> 


fl fl fl fl< 6 SPACE>" ; 

<0B7 > 

6250 IF Fl< >0 THEN GOSUB 28150:GOSUB 2400: 


2550 

PRINT IN*“I40SPACE>“NO*;:RETURN 

< 130> 

GOTO 6050 

< 151 > 

2B00 

GOSUB 2400 

<032> 

6300 GOSUB 42250 

<113> 

2850 

PRINT BL* 

<248> 

6350 A*=A*+“,L,"+CHR*(2B) 

< 163> 

2900 

PRINTsPRINT“C2SPACE>"IN*“ Fl "NO*“ - 


6400 GOSUB 43200 

<166> 


JUCHEN{4SPACE>“IN*" i “NO*" = JOURNAL 

< 107> 

6450 IF Fl< >0 THEN GOSUB 28150:GOSUB 2400: 


2950 

PRINT:PRINT"<2SPACE>"IN*" F3 “NO* u - 


GOTO 6300 

<090> 


ÜONATSUEBERS." 

<173> 

6500 GOSUB 42800 

< 1B7> 

3000 

PRINT:PRINT"<2SPACE>"IN*" F5 “NO*“ “ 
flAHRESUEBERS." 

PRINTiPRINT“<2SPACE>“IN*“ F7 "NO*“ = 

<003> 

6S5C . •INT#2.CHR*(255) 

6600 uüSUB 42400 

SZ 1 T/ 

<158> 

3050 

6650 N=A1X(0,1> 

<03B> 


EINZELNE S<3SPACE>£ 0 N T 0 " 

<044> 

6700 GOSUB 34750 

< 1B9> 

3100 

PRINT:PRINT“f2SPACE>"IN*" F2 "NO*“ = 


6750 A1X(A1X(0,1>,0>=C 

<235> 


HEUBEGINN“ 

<013> 

6800 GOSUB 31050 

<017> 

3150 

PRINTs PRINT“<2SPACE>"IN*" F4 "NO*“ = 


6850 MM=1 

<230> 


ZUSATZKONTO" 

< 119> 

6900 GOTO 2800 

<116> 

3200 

PRINT:PRINT“<2SPACE>“IN*“ F 6 "NO*" = 


7150 IF MMO0 THEN 7300 

<239> 


flONATSWECHSEL" 

< 193> 

7200 GOSUB 32200 

<201 > 

3250 

PRINTi PRINT" C2SPACE>" IN*" FB "NO*" *= 


7250 IF F1O0 THEN 3300 

<0B4> 


fl N D E“ 

<179> 

7300 N=A1X(0,1) 

< 182> 

3300 

GOSUB 2100 

<232> 

7350 GOSUB 43850 

< 100 > 

3350 

IF ASC(C*)-74 THEN 11300 

< 149> 

7400 GOSUB 42250 

< 197> 

3400 

C=ASC<C*>-132:IF C<1 OR OB THEN 3300 

<009> 

7450 IF MN=A1X(0,1)THEN 7600 

< 182> 

3450 

ON C GOTO 7150,13650,13650,15600,3700 


7500 GOSUB 33700 

<146> 


,20700,17550,10950 

< 178> 

7550 IF F1O0 THEN GOSUB 42400: GOTO 3300 

<249> 

3700 

GOSUB 40300 

<244> 

7600 GOSUB 43200 

<094> 

3750 

IF F1O0 THEN 3300 

<140> 

7650 IF F1O0 THEN 3300 

<230> 

3B00 

GOSUB 2400 

<016> 

7700 GOSUB 2400 

< 108> 

3850 

PRINT BL*:PRINT 

<066> 

7750 PRINT BL* 

<066> 

3900 

A*=“flTARTMONAT ALS ZAHL = " 

<208> 

7800 PRINT"<2SPACE>£UER ÄJCHUNGSENDE DRUEC 


3950 

L-2 

<117> 

KEN ÄIE FUER "iPRINT 

<24B> 

4000 

GOSUB 29500 

<226> 

7850 PRINT"<2SPACE>2ATUM NUR DIE XASTE >££ 


4050 

PRINT CZ»; 

< 103> 

mKK< “: PRINT 

<103> 

4100 

IF VAL <B*> <1 OR VAL <B*> >12 THEN 2800 

<185> 

7900 A*»“ JWTUM = “ 

< 1 B 8 > 

4150 

A1X<0,0>=VAL<B*> 

<062> 

7950 L=2 

<053> 

4200 

PRINT:PRINT 

<088> 

8000 GDSUB 29550 

<227> 

4250 

A*="flAHR = “ 

<146> 

8050 A7.-VAL(B*> 

<09B> 

4300 

L=4 

<245> 

8100 IF AX< >0 THEN 8350 

<245> 

4350 

GOSUB 29550 

<131> 

8150 GOSUB 42400 

< 1B4> 

4400 

A2X<0)=VAL(B*> 

<053> 

8200 GOSUB 34750 

<181 > 

4450 

Z=0 

< 133> 

8250 GOSUB 31050 

<095> 

4500 

A1X(0,1)=A1XC0,0> 

<029> 

8300 GOTO 2800 

<0177 

4550 

GOSUB 21550 

<205> 

8350 IF AX>0 AND AX<32 THEN 8500 

<142> 

4600 

GOSUB 23950 

<160> 

8400 PRINT CZ*CZ*; 

< 111 > 

4650 

GOSUB 23250 

<243> 

8450 GOTO 7900 

< 200 > 

4700 

GOSUB 27250 

< 101 > 

8500 PRINT 

<2207 

4750 

IF ASCCC*)=133 THEN 5350 

<204> 

8550 A*=" TEXT <2SPACE>= ” 

<025> 

4800 

IF ASC<C*> =13 THEN 4100 

< 121 > 

8600 GOSUB 28450 

<015> 

4850 

FOR A=0 TO A2X(A1X <0,1)1 

<154> 

8650 D*=B* 

< 1 86 > 

4900 

A3X(A,A1X(0,1> >=0 

<211 > 

8700 G=A1X(0,1) 

< 02 B> 

4950 

5000 

A37.(A,0>=0 

A3*(A)=““ 

< 164> 
<245> 

Listing »Haushaltskasse«. Bitte mit dem Checksummer 

5050 

NEXT A 

<244> 

eingeben. 
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8750 GOSUB 24400 

<038> 

12950 

GOSUB 2400 

< 022 > 

8800 A*=" KONTO HR. = “ 

< 197> 

13000 

PRINT BL* 

<236> 

8850 L=2 

< 191 > 

13050 

PRINT“I3SPACE1AQURNAL<2SPACE}"RIGHT* 


8900 GOSUB 29550 

< 109> 


("<2SPACE>"+STR*(N),2)“/"; 

<145> 

8950 A=VAL(B») 

< 000 > 

13100 

C*=STR*(A2X(0)> 

<129> 

9000 IF A<=A2X(A1X(0,1))THEN 9150 

<15B> 

13150 

PRINT RIGHT*(C*,LEN<C*)-1> 

<169> 

9050 PRINT CZ*CZ*; 

<224> 

13200 

PRINT 

<092> 

9100 GOTO 8800 

<078> 

13250 

PRINT" K.TO<2SPACE>j3ATUMC3SPACE>JEXT< 


9150 Al*=BS+RIGHT*("00“+STR*(AX),2)+D* 

<219> 


12SPACE >aa-*TR AG " 

<189> 

9200 PRINT 

< 156> 

13300 

PRINT 

<192> 

9250 B*="< 8 SPACE}" 

< 139> 

13350 

RETURN 

< 200 > 

9300 PRINT" an-BETRAG = “B* 

<236> 

13650 

IF MM=0 THEN GOSUB 32200: IF F1O0 TH 


9350 GOSUB 2100 

< 186> 


EN 3300 

<244> 

9400 IF ASC CCS)=13 THEN 9900 

<230> 

13700 

IF C=3 THEN 15050 

<050> 

9450 IF ASC (C*) 020 THEN 9700 

< 050> 

13750 

GOSUB 2400 

<060> 

9500 IF LEN(B*>=0 THEN 9600 

<007> 

13800 

PRINT BL* 

< 01 B> 

9550 B*=" "+RIGHT» <B*,LEN <B*>-1) 

<245> 

13850 

PRINT"<2SPACE>t - LFD. flDNAT“;PRINT 

<175> 

9600 PRINT CZ*; 

<065> 

13900 

PRINT"<2SPACE>* = ALLE flDNATE":PRINT 

<0S2> 

9650 GOTO 9300 

<048> 

13950 

PRINT”<2SPACE>SONST flPNAT ALS ZAHL": 


9700 IF ASC(C*>=46 OR ASC(C*>=45 THEN 9800 

<225> 


PRINTsPRINT 

<139> 

9750 IF ASC(C*X4B OR ASC(C*>>57 THEN 9350 

< 112 > 

14000 

B*="<2SPACE>" 

<061 > 

9B00 B*=RIBHT*(B*,7)+C* 

<009> 

14050 

PRINT"C7SPACE > > "B* 

< 142> 

9850 GOTO 9600 

<042> 

14100 

GOSUB 2100 

< 110 > 

9900 B=INT((VAL(B*)*100>+.51/100 

<053> 

14150 

A=ASC(C*> 

< 202 > 

9950 A1*=A1*+RIGHT*(“<BSPACE>"+STR*(INT <B* 


14200 

IF A=13 THEN 14500 

<255> 

100 )>, 8 ) 

<098> 

14250 

IF A=32 OR A=42 OR A=94 THEN 14350 

< 020 > 

10000 A3(A,A1X(0,1> >=A3(A,A1X(0,1))+B 

<036> 

14300 

IF A<48 OR A>57 THEN 14100 

<175> 

10050 A3(A,0)=A3(A,0)+B 

< 123> 

14350 

B*=RISHT*(B* f 1)+C* 

<219> 

10100 IF A1X(A1X(0,1) ,1XA1X(A1X(0,1),0)TH 


14400 

PRINT CZ*; 

<039> 

EN 10350 

<086> 

14450 

GOTO 14050 

<063> 

10150 A1X(A1X(0,1> ,0>=A1X(A1X(0,1) ,01+10 

<193> 

14500 

A=ASC(RIGHT*(B*,1)) 

<031 > 

10200 RE=A1X(A1X(0,1>,0) 

< 022 > 

14550 

IF A=94 THEN 8-A1X(0,1):GOTO 15100 

<103> 

10250 GOSUB 42800 

<127> 

14600 

IF A=42 THEN 14800 

< 191 > 

10300 PRINT WZ ,CHR* < 255) 

< 159> 

14650 

A=VAL(B*> 

<114> 

10350 A1X(A1X(0,1),1>=A1X(A1X(0,1),11+1 

< 010 > 

14700 

IF A<A1X(0,0)OR A>A1X(0,1)THEN PRINT 


10400 RE=A1X(A1X<0,1>,1) 

<228> 


CHR*(145)isGOTO 14000 

<063> 

10450 GOSUB 42800 

<071> 

14750 

G=A: GOTO 15100 

<239> 

10500 PRINT#2,A1* 

<145> 

14800 

FOR G=A1X(0,0)TO A1X(0,1) 

<072> 

10550 A4X(A,0)=A4X(A,0>+1 

<106> 

14850 

GOSUB 15200 

<242> 

10600 A4X<A,A4X(A,0))=A1X(A1X(0,1),1) 

<201 > 

14900 

IF ASC(C*)=I34 THEN B=A1X(0,1) 

< 144> 

10650 MM=2 

<252> 

14950 

NEXT G 

<030> 

10700 GOTO 7700 

< 130> 

15000 

IF ASC (C*)-=134 THEN 2800 

<142> 

10950 GOSUB 2400 <054 öfH 


6=0 

<243> 

11000 GOSUB 42400 

<240> 

15100 

GOSUB 15200 

<236> 

11050 END 

<130> 

15150 

GOTO 2800 

<240> 

11300 GOSUB 25600 

< 128> 

15200 

GOSUB 23950 

<092> 

11350 F1=0:NN=N:IF N<>G THEN N=B:GOSUB 337 


15250 

GOSUB 23250 

< 173> 

00 

<053> 

15300 

GOSUB 27500 

<062> 

11400 IF F1O0 THEN N=NN:GOSUB 42400:GOSUB 


13350 

RETURN 

< 166> 

28150!GOTO 2800 

11450 GOSUB 43850 

11500 GOSUB 42250 

11550 GOSUB 40300 

< 171 > 
<136> 

<233> 

< 220 > 

15600 

15650 

15700 

GOSUB 25600 

<108> 

PRINT <3SPACE > 

PRINT 

<025> 

<052> 

11600 IF Fl<>0 THEN GOSUB 42400:BOSUB 2815 


15750 

PRINT" C3SPACE JJSONTONUMMER" : PRINT 

<017> 

0S GOTO 2800 

<148> 

15800 

PRINT” <3SPACE>* = ALLE ZJONTEN“:PRINT 

<201 > 

11650 GOSUB 43200 

<080> 

15850 

B*="I2SPACE >" 

< 133> 

11700 IF Fl<>0 THEN 2800 

<234 > 

15900 

PRINT"< 8 SPACE>> M B* 

<216> 

11750 GOSUB 12950 

<174> 

15950 

GOSUB 2100 

<182> 

11800 ZE=0 

<056> 

16000 

A=ASC(C*> 

< 01 B> 

11850 FOR RE=1 TO A1X(N,1) 

<071 > 

16050 

IF A=13 THEN 16350 

< 107> 

11900 GOSUB 42800 

<253> 

16100 

IF A=32 OR A=42 THEN 16200 

<234> 

11950 INPUT#2,A1* 

<245> 

16150 

IF A<48 OR A>57 THEN 15950 

<066> 

12000 IF LEN(Al*)<27 THEN Al*=" "+Al*rGOTO 


16200 

B*=RIGHT*(B*,1)+C* 

<035> 

12000 

<017> 

16250 

PRINT CZ*; 

< 111 > 

12050 B=VAL(LEFT*(Al*,2)) 

<219> 

16300 

GOTO 15900 

<119> 

12100 C*=RIGHT*("<3SPACE>"+STR*(B>,3) 

<048> 

16350 

A=ASC(RIGHT*(B*,l)) 

<103> 

12150 IF B=0 THEN C*="<2SPACE>0" 

< 131 > 

16400 

IF A=42 THEN 16550 

<245> 

12200 PRINT C*"(5SPACEl"MID*(Al*,3,2)".t3S 


16450 

D=VAL(B*> 

< 148> 

PACE > " ; 

< 189> 

16500 

IF D<0 OR D>A2X(G)THEN PRINT CZ*;:GO 


12250 PRINT MID*(Al*.5,15); 

<017> 


TO 15850 

<021 > 

12300 IF V/AL (MID* (Al*, 20,8) )<0 THEN PRINT 
RO*; 

<193> 

16550 

Fl=0sNN=N:IF N <>6 THEN N=G:GOSUB 337 

00 

< 173> 

12350 PRINT MID*(Al*,20, 6 )".“RIGHT*(Al*,2) 
BL* 

<083> 

16600 

IF FlOB THEN N=NNsGOSUB 42400:GOSUB 
28150:GOTO 2800 

<035> 

12400 ZE=ZE+1 

< 176> 

16650 

GOSUB 43850 

< 002 > 

12450 IF ZE<15 THEN 12700 

<069> 

16700 

GOSUB 42250 

<099> 

12500 GOSUB 27500 

<056> 

16750 

GOSUB 40300 

<084> 

12550 IF ASC(C*)=134 THEN RE=A1X(N,1):GOTO 
12700 

<042> 

16800 

IF FlOB THEN GOSUB 42400: GOSUB 2815 
0:GOTO 2800 

< 012 > 

12600 GOSUB 12950 

<008> 

16850 

OPEN 2,8,2,"ÜOURNAL ”+A* 

< 189> 

12650 ZE=0 

<144> 

16900 

GOSUB 40850 

<206> 

12700 NEX1 RE 

<238> 

16950 

IF FlOB THEN GOSUB 42400:GOSUB 2813 


12750 GOSUB 42400 

< 212 > 


0:GOTO 2800 

<164> 

12800 IF ASC<C*)=134 THEN 2800 

<230> 

17000 

IF RIGHT*(B*,1)<> B *"THEN GOSUB 35600 


12850 GOSUB 27500 

< 154> 


:GOTO 17250 

<215> 

12900 GOTO 2800 

< 020 > 

17050 

FOR D=0 TO A2X(G) 

<040> 
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17100 BOSUB 35600 <092> 
17150 IF ASC«C*>=134 THEN D=A2X(G) <036> 
17200 NEXT D <226> 
17250 BOSUB 42400 <140> 
17300 GOTO 2800 <102> 
17550 GOSUB 2400:PRINT <232> 
17600 PRINT BL* <008> 
17650 PRINT"<5SPACE>nDNATSWECHEL? <£/H> " <234> 
17700 BOSUB 2100 <154> 
17750 IF C*“"N”THEN 2800 <114> 
17B00 IF CSO-J-THEN 17700 <193> 
17850 IF MM=0 THEN BOSUB 32200 <058> 
17900 IF A1X<0,1) = 12 THEN RUN <213> 
17950 A1X <0,1)“A1X <0,1)+1 <123> 
18000 FOR B=0 TO A2X(AlX<0 f 1)—1) <1B0> 
18050 GOSUB 2400 <042> 
18100 PRINT BL* <000> 
18150 PRINT"tBSPACEJÜ ONATSWECHS 

E L“:PRINT <0B9> 
18200 PRINT B,LEFT*(A3*(B),20) <180> 
18250 PRINT <062> 
18300 FOR D=A1X(0,0)TO A1X(0,1>-1 <122> 
18350 PR I NT " J10NAT ” RIGHT* < ■ C3SPACE 3 “ +STR* ( D 

) ,3); <248> 
18400 PRINT RIGHT*("<11SPACE>"+STR*(A3X <B, 

D> > , 10) ; <015> 
18450 L=A3(B,D) <101> 
18500 GOSUB 30500 <112> 
18550 PRINT A*j <031> 
18600 L“A3X<B,D)-A3«B,D> <127> 
18650 GOSUB 30500 <006> 
18700 IF L<0 THEN PRINT RO*; <125> 
18750 PRINT A*BL* <239> 
18800 NEXT D <046> 
18850 PRINT <154> 


18900 A3X(B,A1X(0,1))=0 
18950 A*“" VORGABE = •• 

19000 L=5 

19050 GOSUB 29550 

19100 A3X(B,A1X(0,1))“VAL <B*) 

19150 NEXT B 
19200 G=A1X(0,1) 

19250 A2X(A1X<0,1>)=A2X(A1X(0,1> —1> 

19300 GOSUB 23950 

19350 GOSUB 23250 

19400 GOSUB 27250 

19450 IF ASC(C*)=134 THEN 20250 

19500 FOR A=0 TO A2X(A1X(0,1)) 

19550 A3X(A,0)=A3X(A,0)+A3X(A,A1X(0,1)) 
19600 NEXT A 

19650 IF A1X(0,0)=A1X<0,1)THEN C=«INT(A1X< 
A1X<0,0),1>/10)+1)*10:GOTO 6050 
19700 C=0 

19750 FOR A=A1X(0,0)TO A1X(0,1> 

19800 C=C+A1X(A,1) 

19850 NEXT A 

19900 C“(INT(C/(A1X<0,1)—A1X(0,0))/10)+1)* 
10 

19950 FOR A=0 TO Y 
20000 A4X<A,0)=0 
20050 NEXT A 
20100 N=A1X<0,1) 

20150 BOSUB 34750 

20200 GOTO 6050 

20250 FOR A=0 TO A2X(A1X(0,1)) 

20300 A3X(A,A1X(0,1))*0 
20350 NEXT A 

20400 A1X(0,1)=A1X(0,1> —1 

20450 GOTO 17550 

20700 IF MM=0 THEN GOSUB 32200 

20750 GOSUB 2400 

20800 PRINT:PRINT BL* 

20850 PRINT"{9SPACEJM E U E<3SPACE>£ 0 N T 

E N" 

20900 PR INT-.PRINT 

20950 IF A2X(AlX(0,1))=Y THEN 21200 
21000 Z=A2X(A1X(0,1))+1 
21050 GOSUB 21600 
21100 GOSUB 31050 
21150 GOTO 2800 

21200 PRINT"£S SIND KEINE iONTEN MEHR FREI 


<047> 

<005> 

<229> 

<099> 

< 131 > 

< 126> 
< 116> 
< 222 > 
< 128> 
<209> 
<067> 
< 118 > 
<072> 
<075> 
<060> 

< 148> 
<049> 

< 150> 
<024> 
<056> 

<058> 

<15B> 

<22B> 

< 002 > 

<026> 

< 175> 
<016> 
<060> 

< 115> 
<048> 
<039> 
<173> 

< 114> 
<204 > 
<031 > 

<255> 

< 022 > 

<147> 

< 131 > 

< 162> 
<093> 
<142> 

< 122 > 


21250 GOSUB 27050 <077> 
21300 GOTO 2800 <038> 
21550 PRINT <060> 
21600 FOR B=Z TO Y <107> 


21650 A3*(B>“ M " 

21700 A3X(B,A1X(0,1))=0 
21750 GOSUB 2400 
21800 PRINTsPRINT BL* 

21B50 PRINT"GEBEN SIE JEZT DEN KONTENNAMEN 
UND":PRINT 

21900 PR1NT-DIE SOLLVORGABE (“flDNATSBUDGET 
IN“:PRINT 

21950 PRINT-VOLLEN fifl) EIN":PRINT 
22000 PRINT"HENN SIE KEINE WEITEREN SONTEN 
ANLEGEN"SPRINT 

22050 PRINT"MOLLEN, DRUECKEN SIE NUR DIE X 
ASTE "SPRINT 

22100 PRINT" >i£XU&h<"SPRINTSPRINT 
22150 PRINT RIGHT*<“<4SPACE>“+STR*(B),4); 
22200 PRINT“C2SPACEJSONTONAME- 
22250 PRINT 
22300 A*=" > “ 

22350 GOSUB 28450 

22400 IF ASC(B*)-32 THEN B=Y:GOTO 22B50 
22450 A3*CB)=B* 

22500 PRINT 

22550 A2X(A1X(0,1))=B 

22600 A*=" VORGABE =<2SPACE>" 

22650 L=5 

22700 GOSUB 29550 

22750 A3X <B,A1X(0,1))“VAL(B*> 

22800 A3X(B,0)=A3X<B,0)+A3X(B,A1X(0,1)> 
22850 NEXT B 
22900 G=A1X(0,1) 

22950 MM=2 
23000 RETURN 

23250 PRINT“<3SPACE>SUMME"| 

23300 PRINT RIGHT*«"<9SPACE>“+STR*(C),10); 

23350 L=F 

23400 GOSUB 30500 

23450 PRINT RIGHT*<A*,10)s 

23500 L=C-F 

23550 GOSUB 30500 

23600 IF C-F<0 THEN PRINT RO*; 

23650 PRINT RIGHT*(A*,10)BL* 

23700 RETURN 
2395? e JSUB 2400 
24000 PRINT BL* 

24050 IF G< >0 THEN 24300 

24100 PRINT"<3SPACE>fl O N A T E<3SPACE>"; 
24150 PRINT A1X(B,0>"-“A1X(0,1); 

24200 PRINT"/"A2X(0) 

24250 GOTO 24400 

24300 PRINT"<3SPACE>fl O N A TC2SPACE>“6; 
24350 PRINT” / ”A2X<0) 

24400 PRINT 
24450 C=0 
24500 F=0 

24550 FOR A=0 TO A2X<A1X<0,1)> 

24600 PRINT RIGHT*<"<2SPACE>”+STR*«A>,2); 
24650 PRINT" 

24700 PRINT LEFT*(A3*(A) +"<9SPACE>",9)" 
24750 A*=RIGHT*«"{4SPACE>"+STR*<A3X(A,G)), 
5) 

24600 PRINT TAB«13)A*; 

24B50 L=A3«A,G) 

24900 BOSUB 30500 

24950 PRINT RIGHT*«A*,10); 

25000 L=A3X(A,G)-A3«A,G) 

25050 GOSUB 30500 

25100 IF L<0 THEN PRINT RO*; 

25150 PRINT RIGHT*«A»,10)BL* 

25200 C=C+A3X«A,B) 

25250 F=F+A3«A,G) 

25300 NEXT A 
25350 RETURN 

25600 IF MM=0 THEN GOSUB 32200!IF F1<>0 TH 
EN 3300 

25650 GOSUB 2400 
25700 PRINT BL* 

25750 PRINT"I3SPACE>T = LFD. BONAT"!PRINT 
25800 PRINT“<3SPACE>S0NST flDNAT ALS ZAHL“ 
25850 PRINT 
25900 B*="<2SPACE>“ 

25950 PRINT" CBSPACE» ”B* 

26000 GOSUB 2100 
26050 A=A3C(C*) 


<193> 

<053> 

<1B6> 

<015> 

<040> 

<069> 

< 119> 

<171 > 

<07B> 
<170> 
<030> 
<047> 
<252> 
<255> 
<049> 
< 210 > 
<047> 
<248> 
<078> 
<099> 
<067 > 

< 193> 
<225> 
<217> 
<016> 
<004> 
<104> 
<196> 
<082> 
<062> 
< 022 > 
<1G6> 
<219> 
<130> 
<0B0> 
<252> 
<038> 

< 134> 
< 100 > 
<058> 
<07B> 
<142> 
<054> 
<216> 
<026> 

< 165> 
< 112 > 
<116> 
<229> 
<035> 
<040> 
<128> 
< 010 > 
<238> 


<172> 

<032> 

<02B> 

<162> 

<195> 

< 199> 
<056> 
<175> 
<014> 

< 1B8> 
< 220 > 

< 172> 
<006> 


< 000 > 

< 022 > 
<236 > 
<135> 
<106> 
<040> 
<023> 
< 104> 
<070> 
<162> 


Das Listing zur Haushaltskasse. Beachten Sie auch 
bitte die Eingabehinweise auf Seite 6. 
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26100 

26150 

26200 

26250 

26300 

26350 

26400 

26450 

26500 

26550 

26600 

26650 

26900 

26950 

27000 

27050 

27100 

27150 

27200 

27250 

27300 

27350 

27400 

27450 

27500 

27550 


27600 

27650 

27700 

27750 

27800 

27850 

27900 

27950 

28000 

28050 

28100 

28150 

28450 

28500 

28550 

28600 

28650 

28700 

2B750 

28800 

28850 

28900 

2B950 

29000 

29050 

29100 

29150 

29200 

29250 

29300 

29500 

29550 

29600 

29650 

29700 

29750 

29800 

29850 

29900 

29950 

30000 

30050 

30100 

30150 

30200 


IF fl-13 THEN 26400 
1F A=32 OR A=94 THEN 26250 
IF A<48 DR A>57 THEN 26000 
B*=R1GHT*(B*,1>+C* 

PRINT CZ*J 
GOTO 25950 
A=ASC<RIGHT*(B*,1)> 

IF A=94 THEN G=A1X(0,1):GOTO 26650 
A=VAL(B*) 

IF A<A1X(0,0)OR A>A1X(0,1)THEN PRINT 
CZ* S sGOTO 2S900 
G=A 

RETURN 
GOSUB 28100 

PRINT" "IN*”<38PACE>SRUCKER IST NICH 
T EINGESCHALTET<4SPACE>“; 

RETURN 
GOSUB 28100 

PRINT“C 6 SPACEJ“IN* - C 6 SPACE > TU 5TE {SHI 


FT-S 


GOSUB 2100 
RETURN 
GOSUB 28100 


I 


<216> 

< 197> 

< 169> 

< 179> 
<255> 
<0B0> 
<234> 
<052> 
<024> 


<030> 

< 124> 
<036> 

< 122 > 

< 197> 

< 132> 
< 016 > 

<057> 

<206> 

<078> 

<218> 


PRINT”<4SPACE>"IN*"{3SPACEJF1 - OK<3 


SPACE >F3 = 5J3REKKTUR <4SPACE > “ ; <119> 

GOSUB 2100 <150> 

IF ASC(C*><133 OR ASC«C*)>134 THEN 2 
7350 <067> 

RETURN <074> 

GOSUB 28100 <214> 


PRINT“T3SPACE >“IN*“I2SPACE >F1=WEITER 


«3SPACE >F3—J3ENUE {2SPACE }F5=äRUCKER (2 


SPACE>“ ; <193> 

GOSUB 2100 <146> 

IF ASC(C*><133 OR ASC(C*>>135 THEN 2 
7600 <081> 

IF ASC(C*> —133 THEN RETURN <187> 

IF ASC(C*)=134 THEN RETURN <245> 

IF ASC (C*) =135 THEN GOSUB 37500 <203> 

IF DR=0 THEN 27600 <072> 

GOTO 27500 <200> 

GOSUB 28100 < 156> 


PRINT“< 6 SPACE>"IN* M { 6 SPACEITASTE DRU 
ECKEN< 8 BPACE>"; <185> 

GOTO 27150 <033> 

POKE 214,24:POKE 211,0:SYS 58732:RET 
URN <089> 


POKE 214,20sPOKE 211,0«SYS 58732s GOT 


0 27100 <084> 

B*="“ <033> 

PRINT A*;B*“ “ <083> 

GOSUB 2100 <080> 

IF ASC(C*)=13 THEN 29250 <062> 

IF ASC(C*>< >20 THEN 28900 <012> 

IF LEN«B*)=0 THEN 28800 <158> 

B*=LEFT*(B*,LEN(B*> —1) <221> 

PRINT CZ*J <215> 

GOTO 28500 <150> 

A=ASC(C*> <218> 

IF ASC(C*)=5B OR ASC«C*)=44 THEN 285 
50 <179> 

IF ASC«C*)=32 THEN 29100 <016> 

IF((A>34 AND A<96)OR<A>192 AND A<219 
)>=0 THEN 28550 <019> 

B*=B*+C* <020> 

B*=LEFT*(B*,15) <212> 

GOTO 28800 <089> 

B*=LEFT* tB*+“<15SPACE>“,15) <154> 

RETURN < 146> 

: < 010 > 

PRINT <186> 

B*="<15SPACE>” <167> 

B*=LEFT*(B*,L> <071> 

PRINT A*B*" “ <034> 

GOSUB 2100 <010> 

IF ASC(C*> = 13 THEN 30250 <231> 

IF ASC(C*> < >20 THEN 30050 <101> 

B*=“ “+LEFT*«B*,L-1> <09B> 

PRINT CZ*j <093> 

GOTO 29700 <U0> 

IF ASC(C*)<48 OR ASC«C*)>57 THEN 297 
50 <097> 


30250 

30500 

30550 

30600 

30650 

30700 

30750 

30800 

31050 

31100 


31150 

31200 

31250 

31300 

31350 

31400 

31450 

31500 

31550 

31600 

31650 

31700 

31750 

31800 

31850 

31900 

31950 

32200 

32250 

32300 

32350 

32400 

32450 

32500 

32550 

32600 

32650 

32700 

32750 

32800 

mi 

32950 

33000 

33050 

33100 

33150 

33200 

33250 

33300 

33350 

33400 

33450 

33700 

33750 

33800 

33850 

33900 

33950 

34000 

34050 

34100 

34150 

34200 

34250 

34300 

34350 

34400 

34450 

34500 

34750 

34800 

34850 

34900 

34950 

35000 

35050 

35100 

35150 

35200 


RETURN 

L=INT(L«100+.5> 

A*=STR*«L) 

M=LEN(A*> 

IF L=0 THEN A*=”0.00“:BOTQ 30750 
A*=LEFT*(A*,M—2) +”. “+RIGHT*(A*,2) 
A*=RI GHT* ( “ < 10SP ACE > “+A*,10) 

RETURN 

IF MM=1 THEN RETURN 

OPEN 2,8,2,” 8 :HONT<3SPACE>HAUSHALT,S 
,W“ 

PRINT#2,A2X<0) 

PRINT#2,A1X(0,0) 

PRINT#2,A1X(0,1) 

FOR A=A1X(0,0)TO A1X(0,1) 

PRINT#2,A1X(A,0> 

PRINT*2,A1X(A,1) 

PR1NT*2,A2X(A> 

FOR B=0 TO A2X(A) 

PRINT#2,A3X(B,A> 

PRINT#2,A3(B,A) 

NEXT B 
NEXT A 

FOR B=0 TO A2X(A1X(0,1)) 

PRINT82,A3*(B) 

NEXT B 
CLOSE 2 
RETURN 
GOSUB 40300 

IF F1O0 THEN GOSUB 42400: RETURN 
GOSUB 42250 

OPEN 2,8,2,"HONT<3SPACE>ÜAUSHALT" 
GOSUB 40850 

IF Fl< >0 THEN GOSUB 42400:RETURN 
INPUT#2,A2X(0),A1X(0,0>,A1X(0,1) 

FDR A—AIX(0,0)TO A1X(0,1> 

INPUT02,A1X(A,0>,A1X(A,1),A2X(A) 

FOR B=0 TO A2X(A) 

INPUT#2,A3X«B,A),A3(B,A) 

NEXT B 
NEXT A 

FOR B=0 TO A2X(A1X(0,1)) 
INPUT#2,A3S(B> 

NEXT B 

FOR A=0 TO A2X(A1X(0,1>) 
A3X(A,0)=0:A3(A,0)=0 
FOR B=A1X(0,0)TO A1X(0,1) 
A3X(A,0)=A3X(A,0)+A3X(A,B) 

A3 (A,0) =A3(A,0) +A3(A,B) 

NEXT B 
NEXT A 
CLOSE 2 
MM =1 
RETURN 
GOSUB 43850 
GOSUB 42400 
GOSUB 40300 

IF F1O0 THEN GOSUB 28150s GOTO 2800 
OPEN 3,B,3,"30URN.2NDEX “+A* 

GOSUB 40S50 
IF F1O0 THEN RETURN 
FOR A=0 TO Y 
INPUT*3,A4X(A,0> 

IF A4X(A,0)=0 THEN 34350 
FOR B=1 TO A4X(A,0> 

INPUT#3,A4X(A,B) 

NEXT B 
NEXT A 
CLOSE 3 
MN=N 
RETURN 

IF MM=1 THEN RETURN 
GOSUB 43850 

OPEN 3,8,3,"0:iDURN.INDEX “+A*+“,S,W 

FOR A=0 TO Y 
PRINT*3,A4X(A,0) 

IF A4X(A,0)=0 THEN 35200 
FOR B=1 TO A4X(A,0) 

PRINT#3,A4X(A,B> 

NEXT B 
NEXT A 


B*=RIGHT*(B*,L-1)+C* <232> 

GOTO 29950 <134> 

IF UAL(B*)<1 OR VAL(B*>>32768 THEN 2 
9750 <017> 


35250 CLOSE 3 
35300 MN=N 
35350 RETURN 
35600 GOSUB 36850 


<080> 

<025> 
<134> 
< 012 > 
<072> 
< 182> 
<216> 
< 122 > 

< 171 > 

<142> 

< 199> 
<216> 
< 020 > 
<014> 
<146> 
<204> 
<023> 
<204> 

< 103> 
<0il> 

< 1 B0> 

< 222 > 

< 138 > 

<059> 

< I26> 

< 167> 
<000> 
<03B> 

< 132> 
<205> 
<171> 
<210> 
<07B> 

< 107> 
<250> 
<017> 
<082> 
<003> 
<008> 

< 13B> 
<223> 
<064> 
<211> 
<109> 
<195> 
<045> 
<250> 
<050> 
<001 > 
<045> 
<094> 

< 109> 
<233> 
<033> 

< 129> 

< 117> 
<046> 
<046> 
<237> 
<010> 
<035> 
<224> 
<057> 
<015> 
<007> 
<035> 
<079> 
<136> 
<05B> 
<011> 
<060> 
<117> 


<159> 

< 123> 

< 136> 
<006> 
<103> 

< 177> 

< 125> 

< 167> 
<224> 
<146> 
< 101 > 
<197> 


120 



et 
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35650 

ZE=0 

<029> 

39750 

NEXT H 

<201 > 

35700 

IF A4X<D,0>=0 THEN 36550 

<216> 

39800 

FOR H=1 TO 5 

<011> 

35750 

FÜR B=1 TO A4X(D,0) 

<065> 

39850 

PRINTH4 

<22B> 

35800 

RE=A47.<D,B> 

<0B8> 

39900 

NEXT H 

<095> 

35850 

GOSUB 42800 

<072> 

39950 

CLOSE 4 

< 106 > 

35900 

INPUT#2,A1* 

<064> 

40000 

DR=1 

<109> 

35950 

IF LEN < Al*) <27 THEN Al*=" "+A1*:GOTO 


40050 

RETURN 

<229> 


35950 

<004 > 

40300 

POKE 768,61 

<127> 

36000 

PRINT MID*(A1*,3,2)".<2SPACE>“MID*(A 


40350 

OPEN 1,8,0,“TEST" 

<254 > 


IS,5,15); 

<172> 

40400 

CLOSE 1 

<022> 

36050 

IF VAL(MID*(AIS,20,8))<0 THEN PRINT 


40450 

POKE 768,139 

<008> 


ROS; 

<064> 

40500 

IF STO-128 AND STO-125 THEN GOSUB 


36100 

PRINT TAB(28)MIDS(AIS,20,6)“.“RIBHTS 



42250:GOSUB 40B50:RETURN 

‘<029> 


(AIS,2)BLS 

< 115> 

40550 

F1=0 

< 118> 

36150 

ZE=ZE+1 

<049> 

40600 

GOSUB 28100 

<105> 

36200 

IF ZE<15 THEN 36450 

<018> 

40650 

PRINT" "INS"<3SPACE>aiTTE ELOPPY GER 


36250 

GOSUB 27500 

< 185> 


.HR. 0 EINSCHALTEN C3SPACE} " ; 

<019> 

36300 

IF ASC(C*)=134 THEN B=A4X(D,0)sGOTO 


40700 

Fl = l 

<044> 


36450 

<145> 

40750 

CLOSE 15 

<203> 

36350 

GOSUB 36850 

< 1B3> 

40800 

RETURN 

<217> 

36400 

ZE=0 

<017> 

40850 

INPUT#15,F1,FS,F2,F3 

<033> 

36450 

NEXT B 

<155> 

40900 

IF F1=0 THEN RETURN 

<057> 

36500 

IF ASC(CS)=134 THEN RETURN 

<104> 

40950 

GOSUB 28100 

<201 > 

36550 

F=A3(D,B> 

< 149> 

41000 

IF Fl<>74 THEN 41100 

<090> 

36600 

C=A37.(D,G) 

<144> 

41050 

PRINT"<5SPACE>“IN*"<4SPACE>21TTE 21S 


36650 

PRINT 

<175> 


KETTE EINLEGENC3SPACE>"NOS"f4SPACE>" 


36700 

GOSUB 23250 

<032> 


; s RETURN 

<130> 

36750 

GOSUB 27500 

<177> 

41100 

IF(F1=62 OR Fl=26)=0 THEN 41750 

<003> 

36808 

RETURN 

<025> 

41150 

PRINT CZS"<3SPACE>"INS"<3SPACE>£ALSC 


36850 

GOSUB 2400 

<045> 


HE 21SKETTE IM iAUFWERK<2SPACE>"NOS“ 


36900 

PRINT BL* 

<005> 


<2SPACE>" 

<022> 

36950 

PRINT D LEFTS(A3*(D),18)TAB(23)A3X(D 


41200 

CLOSE 3 

<076> 


,G>; 

<121> 

41250 

OPEN 3,8,3,"#" 

<246> 

37000 

B*=STR*(A2X (0)) 

<14B> 

41300 

PRINT#15,"Ul 3 0 1B 0“ 

<125> 

37050 

PRINT TAB(30)RIGHTSCSTRS(N),2>"/“RIG 


41350 

PRINT#15,"B-P 3 144" 

<168> 


HT*(BS.LEN(BS)—1) 

<034> 

41400 

B*="" 

<028> 

37100 

PRINT 

< 115> 

41450 

FOR A=*l TO 16 

< 133> 

37150 

PRINT"JAGC2SPACE >JEXT(20SPACE> IW-JET 


41500 

GET#3,D* 

<219> 


RAG" 

<000> 

41550 

IF DS=““THEN D*=CHR*(0) 

<137> 

37200 

PRINT 

<217> 

41600 

BS-BS+D* 

<076> 

37250 

RETURN 

<223> 

41650 

NEXT A 

<011> 

37500 

OPEN 1,4 

<240> 

41700 

PRINT"{3SPACE>"INS"C2SPACE >21SKETTE 


37550 

DR=0 

<167> 

1 ■ 2SPACE>"BS"(3SPACE)"NO*"C3SPACE >": 


37600 

POKE 768,61 

<221 > 


:RETURN 

<240> 

37650 

PRINTS1 

<036> 

41750 

PRINT CZS"<2SPACE>"INS"<3SPACE>2 I S 


37700 

CLOSE 1 

<I18> 


KETTENFEHLE R<5SPACE>" 

<204> 

37750 

POKE 768,139 

<102> 

41800 

PRINT“<2SPACE >"IN*; 

<049> 

37800 

IF ST< >—128 AND STO-125 THEN 37950 

<100> 

41850 

PRINT RIGHT* <" (3SPACE>"+STRS(F1) ,3) ; 

<128> 

37850 

GOTO 26900 

<102> 

41900 

PRINT"<2SPACE>" ; 

<243> 

37950 

GOSUB 28100 

<251 > 

41950 

PR I NT LEFTS (FS* “ ( 18SPACE > " , 18) ; 

< 142> 

38000 

PRINT NOS"T39SPACE>“; 

<189> 

42000 

PRINT"I2SPACE >“IN*; 

<251 > 

38050 

BS="{17SPACE>" 

<236> 

42050 

PRINT RIGHTS("<5SPACE>"+STRS <F2> ,5); 

<211 > 

38100 

GOSUB 28100 

< 145> 

42100 

PRINT RIBHTS("<5SPACE>"+STR*(F3),5); 

<013> 

38150 

PRINT" {2SPACE7JJATUM: <2SPACE>"BS; 

<223> 

42150 

PRINT"<2SPACE >"NOS; 

<113> 

38200 

GOSUB 2100 

<079> 

42200 

RETURN 

<091 > 

38250 

A=ASC(CS) 

< 171 > 

42250 

CLOSE 15 

<179> 

38300 

IF A=13 THEN 38700 

<242> 

42300 

OPEN 15,8,15,”1" 

<190> 

38350 

IF AO20 THEN 38450 

<045> 

42350 

RETURN 

<243> 

38400 

B*=" "+LEFT*(B*,16):GOTO 38100 

<237> 

42400 

CLOSE 2 

<254> 

38450 

IF A=32 THEN 38550 

<170> 

42450 

CLOSE 3 

<056 > 

38500 

IF((A>34 AND A<96)OR(A>192 AND A<219 


42500 

CLOSE 15 

<175> 


))=0 THEN 38200 

<226> 

42550 

RETURN 

<189> 

38550 

B*=RIBHT*(B*,16)+C* 

<054> 

42800 

HB=INT(RE/256) 

<095> 

38600 

GOTO 38100 

<129> 

42850 

LB=RE-(HB«256) 

< 159> 

38700 

OPEN 4,4,0 

<229> 

4 2900 

PRINT#15,"P H +CHR*(2)+CHR*(LB)+CHR*<H 


38750 

PRINTD4,CHR*(27)OHRS(64)CHR*(27)CHR* 



B)+CHRS(1) 

<082> 


(108)CHRS(15); 

<140> 

42950 

RETURN 

<079> 

38800 

PRINT#4,CHR*(27)CHRS(56) 

<235> 

43200 

AS="JOURNAL "+AS 

< 177> 

38850 

CLOSE 4 

<020> 

43250 

OPEN 2,8,2,AS 

< 125> 

39000 

OPEN 4,4,7 

<150> 

43300 

GOSUB 40850 

<189> 

39050 

FOR H=1024 TO 2023 STEP 40 

< 124> 

43350 

IF F1O0 THEN GOSUB 42400 

<142> 

39100 

1=0 

<170> 

43400 

RETURN 

<021 > 

39150 

DRS=““ 

<243> 

43650 

DATA"JAN","£EB","flRZ" 

< 146> 

39200 

FOR J=0 TO 39 

<089> 

43700 

DATA"ßPR","ßAI”,"JUN" 

<086> 

39250 

C=PEEK(H+J) 

<091> 

43750 

DATA" JJJL" , "flUG" , "2PT" 

<15B> 

39300 

IF C=96 OR C=224 THEN C=C-64 

< 170> 

43800 

DATA"flKT","20V","2EZ" 

<203> 

39350 

IF 0127 AND 1=0 THEN DRS=DR*+CHR*(1 


43850 

RESTORE 

<211 > 


8 ):1=1 

< 194> 

43900 

FOR W=1 TO N 

<052> 

39400 

IF 0127 AND 1=1 THEN C=C-128:B0T0 3 


43950 

READ AS 

< 111 > 


9500 

< 181 > 

44000 

NEXT M 

<251 > 

39450 

IF 1=1 THEN I=0:DRS=DR*+CHR*<146> 

<179> 

44050 

RETURN 

< 165 > 

39500 

IF C<32 THEN C=C-*-64: BOTO 39600 

<015> 




39550 

IF 064 THEN C=C+32 

<063> 

© 84'«- 


39600 

DR*=DRS+CHRS(C) 

< 140> 




39650 

NEXT J 

<115> 




39700 

PRINT#4,DR* 

<062> 

Haushaltskasse (Schluß). 



ÜJQj* 


121 TZ 
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Fruchtwein - 

garantiert 

ohne 

Frostschutz 

Wenn Sie heute garantiert glykol¬ 
freien Wein trinken wollen, bleibt 
Ihnen fast nichts weiter übrig als ihn 
selbst herzustellen. Dieses Programm 
nimmt Ihnen die Berechnungen atx 

Die Selbstbereitung von Weinen, besonders die von Obst¬ 
und Fruchtweinen, findet immer mehr Anhänger. Ich selbst 
stelle seit drei Jahren Fruchtweine zum Hausgebrauch her. 
Das vorliegende Programm hilft dem Hobbykellermeister, die 
Zutaten für sechs verschiedene Fruchtweine zu errechnen. 

Mit dem Programm können Zutaten für Fruchtweine berech¬ 
net, diese Daten auf Diskette gespeichert, Daten von Diskette 
eingelesen oder gelöscht werden. Auch ein Ausdruck der 
berechneten alten oder neuen Werte ist möglich. Gesteuert 
wird das Programm über die Funktionstasten Fl - F8 und die 
Taste »P« (Ausdruck). Wird eine andere Taste als RETURN 
nach Anwahl des Druckmenüs gedrückt, kann im Programm 
weiter gearbeitet werden. 

Die Formeln zur Errechnung der Zutaten sind aus den Bei¬ 
spielen entstanden, die im Kitzinger Weinbuch, Ausgabe 
1982, nachzulesen sind. 

Zu Beginn muß mit Fl das Untermenü »Weinsorten« ange¬ 
wählt werden (das Programm läßt auch nur diese Wahl zu, Bild 
1). Sollen mit F3 die Zutaten berechnet werden, wird der 
Anwender aufgefordert, falls er es noch nicht getan haben 
sollte, sich mit F5 oder F7 für einen herben (Tisch-) oder 
einen süßen (Dessert-) Wein zu entscheiden. Danach erfragt 
das Programm alle notwendigen Angaben, die zur Berech¬ 
nung der jeweiligen Zutaten nötig sind, durch INPUT-Befehle. 
Deshalb kein Kommaals Dezimalzeichen eingeben, sondern 


immer nur einen Punkt. Die Zutaten werden auf dem Bild¬ 
schirm ausgegeben und können dann auf Diskette gespei¬ 
chert und/oder mit »P« ausgedruckt werden (Bildschirm- 
Hardcopy, Bild 2). 

Beim Speichern wird zur Unterscheidung der einzelnen 
Files nach Jahrgang und Zusatz gefragt. Bei der Eingabe von 
Jahrgang und Zusatz werden immer nur die letzten beiden 
Zeichen berücksichtigt. Um die Files später wieder einiesen 
zu können, sollte man sich Jahrgang und Zusatz entweder 
notieren oder sich immer einen Ausdruck anfertigen lassen, 
oder man druckt vor oder nach Anwendung des Programms 
das Directory aus. 

Die Hardcopy-Routine für den MPS 801 stammt aus dem 
64'er, Ausgabe 4/85, das Maschinenprogramm zur Cursor¬ 
positionierung aus dem 64'er, Ausgabe 1/85. 

Die REM-Zeilen brauchen nicht mit eingegeben werden. Zur 
Eingabe des Programms (Listing 1) beachten Sie bitte die Ein¬ 
gabehinweise auf Seite 6. Wollen Sie eigene Verbesserun¬ 
gen am Programm anbringen, hilft Ihnen Tabelle 1 und 2. 

(Siegfried Dahlmann/hm) 


160- 200 

Daten einiesen 

210 

Fehlerkanal öffnen 

220 

Cursor positionieren 

230- 420 

Titelbild 

460- 540 

Umrandung 

610- 710 

Weinsortenwahl 

750- 800 

Verzweigung zu den verschiedenen 

Rechenprogrammen 

810- 850 

Verzweigung zu den Unterprogrammen des Menüs 

890-1130 

Menü 

1170-1220 

Süßebestimmung 

1280-1710 

Rechenprogramme und Bildschirmausgabe 

3 ;r'0-1800 

Erzeugung Filename 

1810 

Verzweigung zu den Floppyroutinen 

1850-1890 

Bildschirmausgabe beim Einlesen von Files 

Sprung zu den entsprechenden Rechenprogrammen 

1930-2010 

Schreiben von Files 

2020-2080 

Überschreiben von Files 

2110-2210 

Flies einiesen 

2250-2290 

Flies löschen 

2330-2390 

Fehlerkanal lesen und Fehler anzeigen 

2430 - 2490 

Sprite-Daten 

2550 - 2580 

Daten Wein- und Hefesorten 

2620-2630 

Daten Maschinenprogramm Cursorpositionierung 

2670-2730 

Hardcopy-Routine 


Tabelle 1. Programmaufbau nach Zeilennummern 


V/.V.VAV.VV.VVAV.V.V.V.V.V.V.V.V.V 
\ Weinsorten 

*■ Brombeere ... . i 

*. Erdbeere . 2 

"* Hagebutte . 3 

*■ Johannisbeere . 4 

Sauerkirsch . 5 

Stachelbeere . 6 

Zahl eingeben 



Bild 1. Hardcopy des Auswahlmenüs 

122 


Stachelbeere 

Saft < 1 ):? 108 
Saeure :? 10 
Oechsle :? 90 

Wasser 
Zucker 
Gesaut)iter 
Naehrsalz 
Hefen 


Dessertwein 


25 1 

16.562 kg 
125 1 
186.9 g 
Steinber« 


Sherru/Portwein 


fl=Weinsorte f2=Speichern 

f3=Berechnung f4=Einiesen 

f5=Tischwein f6=Loeschen 

f7=Dessertwein f8=PrograHMende 
P=Ausdruck 


Bild 2. Das Programm berechnet die Zusätze 
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\ 


c Basisadresse Maschinenprogramm zur Cursor¬ 

positionierung 

v VIC-Basisadresse 

x aktueller Menüpunkt 

y aktuelle Weinsorte 

o Süßebestimmung 

oe Oechsle gemessen 

sl Saft gemessen 

sg Säure gemessen (g/l; mit Acidometer bestimmt) 

f Fruchtmenge gemessen 

zw Zuckerwasserzugabe 

w gerundeter Wert von zw 

zz Zuckerzugabe 

ms Milchsäure 

ns Hefenährsalz 

og, bo, a drei Hilfsvariablen zur Errechnung von zz 

a$, aa$ dienen der Menüsteuerung 

jj$ Filename, zusammengesetzt aus 

j$ Jahrgang und 

z$ Zusatz 

clS und senden ASCII-Code vom Bildschirm 
c2$ an Drucker 

en Fehlernummer, Fehlerkanal 

em$ Fehlermeldung 

fe Merker bei Fehlermeldung 

me Merker bei nichtgewählter Süße 

xx Merker Menüausdruck Bildschirm 

i, j Laufvariable 

q ' Hilfsvariable 

b$(y) Weinsorten 

h$(z) Hefesorten 


6*€F 


Tabelle 2. Variablenliste 


10 REM ******************************* <148> 
20 REM ** *» <020> 
30 REM ** FRÜCHTWEINBEREITUNG ** <079> 
40 REM ** VUN »* <155> 
50 REM ** SIEGFRIED DAHLMANN ** <031> 
80 REM ** ** <080> 
90 REM »x«************««*»»*»»»***»*** <228> 
100 PRINT CHR*(147>CHRS(14>CHRS(B> <048> 
110 C=B28: V=53248 <227> 
120 REM <1B2> 
130 REM *** DATEN EINLESEN *** <074> 
140 REM <202> 
150 POKE V+32,10:POKE V+33,13 <006> 
160 FOR 1=0 TO 62:READ U:POKE B96+1,Q:NEXT 

I <163> 
170 FOR 1=0 TO 62:READ Q:POKE 704+1,Q:NEXT 

I <230> 
1B0 FOR 1=1 TO 6 :READ B*<I),HS<I):NEXT I <174> 
190 FOR 1=828 TO 850 <081> 
200 READ Q:POKE I,Q:NEXT I <134> 
210 OPEN 15,B,15,"IO" <054> 
220 SYS C,0,0 <091> 
230 FOR 1=1 TO B:PRINT CHR*(17)CHRS(151 >"L 

RUCHT", < 155> 
240 FOR J=1 TO 50:NEXT J,I <071> 
250 FOR 1=1 TO 8 :PRINT CHRS(17)CHRS(30)"W 

E I N", <173> 
260 FOR J=1 TO 50:NEXT J,I <093> 
270 FOR J=1 TO 200:NEXT J <043> 
280 SYS C,20,0:PRINT CHR*(5) “SIEGFRIED J3AH 

LMANN" <131> 
290 PRINT"SCHLOSS STR.9“ <044> 
300 PRINT"4044 KRäRST CSHIFT-FPACFl?" <05B> 
310 SYS C,0,0:FOR J=1 TD 500:NEXT J <190> 
320 FOR 1 = 1 TO 8 s PRINT CHR*<17)"{9SPACE>“, <195> 
330 FOR J=1 TO 50:NEXT J,I <163> 
340 FOR 1=1 TO 8:PRINT CHR*(17)"<9SPACE>", <215> 


350 FOR J=1 TO 50:NEXT J,I 
360 POKE V+32,5:POKE V+33,2 
370 SYS C,7,15:PRINT CHR*<153)"£<SHIFT-SPA 
CE>R U C H T W E I N" 

380 SYS C,10,19:PRINT"BEREITUNG" 

390 POKE 2041,14:POKE 2042,11:POKE V+40,10 
:POKE V+41,13 

400 POKE V+21, 6 :POKE V+23,6:P0KE V+2V,6 
410 POKE V+2,75:POKE V+4,75:P0KE V+3,100:P 
OKE V+5,100 

420 SYS C,24,11:PRINT"SITTE IASTE DRÜECKEN 
1 "CHR*(146)FOR 1=1 TO 50:NFXT I 
430 POKE 198,0: WAIT 198,1 

440 FOR 1=75 TO 190:POKE V+2,I:POKE V+4,I: 
NEXT I 

450 PRINT CHR*(147):POKE V+32,6:POKE V+33, 
6 

460 FOR 1=39 TO 0 STEP-1 
470 POKE 1024+1,127:POKE 55296+1,5 
480 POKE 1784+1,127:POKE 56056+1,5 
490 POKE 19B4+I,127:POKE 56256+1,5 
500 NEXT I 

510 FOR 1= 0 TO 880 STEP 40 
520 POKE 1064+1,127:POKE 55336+1,5 
530 POKE 1103+1,127:POKE 55375+1,5 
540 NEXT I 

550 SYS C,12,ll:PRINT CHR*(154)"ZUERST Fl 
WAEHLEN," 

560 PRINT:PRINT TAB(7)“ DANN <<SHIFT-SPACE 
> B.ETLI.B MT SHIFT-SPACE > > DRÜECKEN “ ; 

570 GOTO 890 
580 REM 

590 REM *** WEINSORTENWAHL »»* 

600 REM 

610 POKE V+32,9:POKE V+33,9:0=0 
620 SYS C,1,15:PRINT CHRS(158)"HEINSORTEN" 
:PRINT 

630 FOR 1 = 1 TO 3: PRINT:PRINT TAB(2)B*(I)TA 

B (12) “.“ 5 I : NEXT I 

640 FOR 1=4 TO 6 :PRINT:PRINT TAB(2)B*(I>TA 

B(16) ".I:NEXT I 

650 SYS C,17,1B:PRINT CHR*(18)CHR*(153)"XA 
HL EINGEBEN“CHRS(146):FOR 1=1 TO 50:NE 
T iLina*» i 

660 SYS C,17,1B:PRINT“ZAHL EINGEBEN":FOR I 
=1 TO 50:NEXT I 
670 GET AS:IF AS=""THEN 650 
680 IF ASC(AS)<49 OR A5C(A*)>54 THEN 670 
690 POKE V+21,0:POKE V+32,2:P0KE V+33,2:Y= 
VAL(AS) 

700 PRINT CHRS(147) 

710 SYS C,0,1:PRINT BS(Y):RETURN 
720 REM 

730 REM *** BEFEHLSAUSFUEHRUNG **# 

740 REM 

750 IF Y=2 OR Y=3 THEN 0=125 
760 IF 0=0 THEN SYS C,1,0:PRINT“ÜAEHLE XIS 
CH- ODER DESSERTWEIN":ME=1:RETURN 
770 IF 0=85 THEN SYS C,0,18:PRINT"XISCHWEI 
N (3SPACEV 

780 IF 0=125 THEN SYS C,0,18:PR1NT"*SSERT 
WEIN” 

790 ON Y GOSUB 1280,1520,1590,1280,1280,12 
80 

800 RETURN 

810 IF X=B THEN POKE V+21,0:PRINT CHR*(147 
)CHRS(9):CLOSE 15:END 

820 IF Y=0 AND X<>1 THEN SYS C,4,7:PRINT C 
HR*(150>"£RST UEINSORTE <F1> WAEHLEN!" 

: GOTO 890 

830 IF X=2 OR X=9 OR ME=I THEN 850 
840 IF Y<>0 THEN PRINT CHRS(147):IF X<>1 T 
HEN SYS C,0,0:PRINT B*(Y> 

850 DN X BOSUB 610,1750,750,1750,1170,1750 
,1200,810,2670 
860 REM 

870 REM *** MENÜE *** 

880 REM 

890 X=0:AS="“:IF XX=0 THEN 920 
900 IF XX=1 THEN A*=AA*:GOTO 920 
910 POKE 198,0:WAIT 198,1:GET A*:XX=1 
920 SYS C,20,2:IF AS=CHRS(133)THEN PRINT C 
HR*(18)"F1=HEINSORTE"CHR*(146):X=1:G0T 
O 940 

930 PRINT CHRS(158)"F1=HEINSORTE“ 

940 SYS C,21,2:IF AS=CHR*(134)THEN PRINT C 


<183> 

<009> 

<007> 

<125> 

< 102 > 

< 196> 

<223> 

<234> 

< 148> 

<068> 

<249> 

<009> 

<063> 

< 103> 
<149> 
<074> 
<16B> 
<221 > 
<254> 

< 116> 

< 008 > 

< 104> 

< 190> 
<134> 
<223> 
<154> 

< 089 > 

< 011 > 

<138> 

< 107> 


<072> 

<043> 

<004> 

< 212 > 

<178> 
<221 > 
< 002 > 
<018> 
< 166> 
<038> 
<218> 

< 101 > 

<095> 

<040> 

< 11B> 

<032> 

<060> 


<073> 

< 120 > 

< 015 > 

< 002 > 
< 160> 
<02S> 
<1B0> 
< 154> 
<024 > 
<237> 


< 110 > 

< 102 > 


Listing zur Fruchtweinbereitung. Beachten Sie die Eingabehinweise auf Seite 6. 


'ifcfcü 1 


123 * 1 ' 

net 
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HR*(18> "F3=^RECHNUNG"CHR* (146) : X=3: GD 


1600 

SYS C,1,0:PRINT CHR*(144):INPUT"£RUCH 


TG 960 

< 157> 


T (KG) :“:F 

<007> 

950 PRINT"F3=JERECHNUNG" 

<025> 

1610 

W=INT(F*3.2*10+.5>/10 

<238> 

960 SYS C,22,2:IF A*=CHR*(135)THEN PRINT C 


1620 

ZZ=INT(F*1.2*1000+.5)/1000 

<053> 

HRS(IS) “F5=IISCHWEIN"CHR*<146):X=5:60T 


1630 

MS=INT(F*16+.5> 

<084> 

0 980 

<099> 

1640 

NS=INT(MS+.3)/10 

< 140> 

970 PRINT"F5=HSCHWEIN" 

< 000 > 

1650 

PRINT CHR*(17)CHR*(5)"HASSER<5SPACE): 


980 SYS C,23,2:IF A*=CHR*(136)THEN PRINT C 



... w . .. L ,. 

<168> 

HR*(18>"F7=SESSERTWE1N"CHR*(146>:X=7:G 


1660 

PRINT"ZUCKER<5SPACE>:ZZ;"KG ZUM HAS 


OTO 1000 

<040> 


SER DAZU!!" 

<079> 

990 PRINT"F7=£ESSERTWEIN” 

<075> 

1670 

PRINT"AILCHSAEURE:"jMS;"B" 

<044> 

1000 

SYS C,20,20:IF A*=CHRS(137)THEN PRINT 


1680 

PRINT"HAEHRSALZ <2SPACL>s";NS;"G” 

< 181 > 


CHR*(18)"F2=§PEICHERN"CHR*(146):X=2: 


1690 

PRINT"HEFEN < 6 SPACE>: ”;H*(Y) 

<142> 


GOTO 1020 

<146> 

1700 

IF X=4 THEN GOSUB 2000 

<211 > 

1010 

PRINT”F2=SPEICHERN" 

<115> 

1710 

RETURN 

<244> 

1020 

SYS C,21,20:IF A*=CHR*(13B)THEN PRINT 


1720 

REM 

< 002 > 


CHR*(18)"F4=£INL£SEN"CHR*(146):X=4:G 


1730 

REM *** DISK *** 

< 125 > 


OTO 1040 

<015> 

1740 

REM 

< 022 > 

1030 

PRINT"F4=£INLESEN" 

<097> 

1750 

SYS C,1,0:PRINT CHR*(144) 

< 136> 

1040 

SYS C,22,20:IF A*=CHR*(139>THEN PRINT 


1760 

IF X=2 THEN SYS C,13,0:IF F=0 AND SL= 



CHR*(18)"F6=IOESCHEN"CHR*(146):X=6:G 



0 THEN PRINT"HELCHE SÄTEN DENN?":RETU 



OTO 1060 

<156> 


RN 

< 163> 

1050 

PRINT"F6=i0ESCHEN" 

< 136> 

1770 

Z*=""|J*= H " 

<035> 

1060 

SYS C. 23,20:IF A*=CHR*(140)THEN PRINT 


1780 

INPUT”JAHRGANG";J* 

<159> 


CHR*(18)"F8=fiROGRAMMENDE"CHR*(146):X 


1790 

INPUT"ZUSATZ <2SPACE >"5 Z* 

< 142> 


= 8 :GOTO 1080 

<045> 

1800 

JJ*=LEFT*(B*(Y),7)+RIGHT*(J*,2)+RIGHT 


1070 

PRINT”F8=£R0GRAMMENDE” 

<028> 


*(Z*,2) 

<135> 

1080 

SYS C,24,12:IF A*="P"THEN PRINT CHR*( 


1810 

ON X/2 GOSUB 1930,2120,2250 

<244> 


18)CHR*(29)”£=AUSDRUCK”CHR*(146);:X =9 


1820 

IF X< >4 THEN RETURN 

<249> 


:GOTO 1100 

<075> 

1830 

SYS C,3,0:PRINT CHR*(144> 

<026> 

1090 

PRINT" £=AUSDRUCK 

<031 > 

1840 

IF FE=1 THEN FE=0:RETURN 

<246> 

1100 

IF X<1 OR X>9 THEN 910 

< 160> 

1850 

IF Y=2 THEN PRINT"£RUCHTBREI<2SPACE>< 


1110 

POKE 198,0:WAIT 198,1:GET AA* 

< 168> 


L) :”j F:GOTO 1540 

<030> 

1120 

IF AA*< >CHR*(13)THEN 890 

< 20 B> 

1860 

IF Y=3 THEN PRINT"£RUCHT (KG) :";F:GO 


1130 

GOTO S10 

< 114> 


TO 1610 

< 108 > 

1140 

REM 

< 186> 

1870 

PRINT“SAFT (L >:";SL 

< 171 > 

1150 

REM *** BESTIMMUNG DER SUESSE *** 

<041 > 

1880 

PRINT"AAEURE{2SPACE > : ";SG 

< 000 > 

1160 

REM 

<206> 

1890 

PRINT"ßECHSLE :";OE:GOTO 1320 

<033> 

1170 

0=85:IF ME=1 THEN ME=0:GOTO 770 

<219> 

1900 

REM 

< 184 > 

1180 

SYS C,0,18:PRINT”IISCHWEIN <2SPACE}" 

<046> 

1910 

REM *** FILES SCHREIBEN *** 

<036> 

1190 

RETURN 

<232> 

1920 

REM 

<204> 

1200 

0=125:IF ME=1 THEN ME=0:GOTO 780 

<228> 

1930 

OPEN 2,8,2,JJ*+",S,W":GOSUB 2330 

<038> 

1210 

1220 

SYS C, 0,18: PR I NT ” SESSERTWE IN” r <106 - 

RETURN <006>°' 

i..- 

IF EN=63 THEN PRINT"£1LENAME BESTEHT 
SCHON":GOTO 2020 

<037> 

1230 

REM 

< 020 > 

1950 

IF EN>63 THEN RETURN 

<008> 

1240 

REM *** RECHENPROGRAMME FUER *** 

< 20 B> 

1960 

IF EN=0 THEN PRINT"OKAY" 

<098> 

1250 

REM **« BROMBEERE,JOHANNISBEERE *** 

<160> 

1970 

IF Y=2 OR Y=3 THEN PRINT#2,F:GOTO 199 


1260 

REM *** SAUERKIRSCH,STACHELBEERE ** 

<237> 


0 

<108> 

1270 

REM 

<060> 

1980 

PR INT#2, SL: PR I NT#2, SG: PR I NT#2, OE: PR IN 


1280 

GOSUB 2000 

<230> 


T#2,0 

< 138> 

1290 

SYS C,1,0:PRINT CHR*(144):INPUT"SAFT 


1990 

CLDSE 2 

<231 > 


(L):“;SL 

<241 > 

2000 

OE=0:SL=0:SG=0:F=0 

<225> 

1300 

INPUT"ßAEURE(2SPACE}:";SG 

< 104> 

2010 

RETURN 

<034> 

1310 

INPUT"ßECHSLE :";OE 

< 182> 

2020 

PRINT TAB(15)CHR*(150)"0A<3SPACE>—>< 


1320 

IF OE=0 OR SL=0 OR SG=0 THEN RETURN 

< 118> 


4SPACE>@ " 

<005> 

1330 

ZW=(SL*SG)/B-SL:W=INT(ZW*10+.5>/10 

< 100 > 

2030 

PRINT"UgBERSCHREIBEN? <16SPACE > DRUECKE 


1340 

IF W<-1 THEN PRINT CHR*(5)-ßNGUELTIGE 



N" 

<016> 


EINGABEN":RETURN 

<231 > 

2040 

PRINT TAB (15) "HEIN —> K-E.TU.R.K" 

<134> 

1350 

OG=(SL*OE>/(ZW+SL) 

<131 > 

2050 

POKE 198,0:WAIT 198,1s BET A*:IF A*=CH 


1360 

B0=0—OB 

<201 > 


R*(13)THEN CLDSE 2:RETURN 

< 107> 

1370 

A=BO*(ZW+SL):ZZ=INT(A*2.5>/1000 

<055 > 

2060 

IF A*OCHR*(64) THEN 2050 

<15B> 

1380 

NS=INT(SL»I0.7)710 

<056> 

2070 

CLOSE 2 

<057> 

1390 

PRINT CHR*(17)CHR*(5)"HASSER{6SPACE >: 


2080 

OPEN 2,8,2,"@:"+JJS+",S,W":GOTO 1970 

<096> 


";W;"L" 

< 162> 

2090 

REM 

< 120 > 

1400 

PRINT"ZUCKER C 6 SPACE}:":Z Z;"KG" 

< 1 90 > 

2100 

REM *** FILES LESEN *** 

< 20 B> 

1410 

PRINT"AESAMTLITER ="iW+SL;"L“ 

<032> 

2110 

REM 

< 140> 

1420 

PRINT"HAEHRSALZ{3SPACE >:";NS;“G" 

< 175> 

2120 

GOSUB 2000 

<052> 

1430 

PRINT“HEFENI7SPACE >: "sH*<Y> 

< 136> 

2130 

□PEN 2,B,2,JJ*+“,S,R":G05UB 2330 

<230> 

1440 

IF X=4 THEN GOSUB 2000:RETURN 

<065> 

2140 

IF EN=62 THEN PRINT"£ILE GIBT ES NICH 


1450 

PRINT CHR*(155)CHR*(18)"ZUCKER UND HA 



T":CLOSE 2:FE=1:RETURN 

<247> 


SSER DUERFEN ZUSAMMEN“ 

< 111 > 

2150 

IF EN>63 THEN RETURN 

< 210 > 

1460 

PRINT CHR*(18)“NICHT MEHR ALS"sW;CHR* 


2160 

IF Y=2 OR Y=3 THEN INPUT#2,F:0=125:80 



(157)" L BETRAGEN !!! “CHR*(146) 

<220 > 


TO 2190 

<114> 

1470 

RETURN 

< 002 > 

2170 

INPUT#2,SL,SG,OE,0 

<057> 

1480 

REM 

<016> 

2180 

IF 0=85 THEN GOSUB 11B0 

<005> 

1490 

REM *** RECHENPROGRAMM FUER *** 

< 200 > 

2190 

IF 0=125 THEN GOSUB 1210 

<237> 

1500 

REM *** ERDBEERE, HAGEBUTTE *** 

<139> 

2200 

CLOSE 2 

<187> 

1510 

REM 

<046> 

2210 

RETURN 

<236> 

1520 

GOSUB 2000 

<214> 

2220 

REM 

< 250> 

1530 

SYS C,1,0:PRINT CHR*(I44):INPUT"fPUCH 


2230 

REM *** FILES LOESCHEN *** 

<074> 


TBREIC2SPACE >(L) :";F 

<151 > 

2240 

REM 

<014> 

1540 

W=INT(F*.5*10+.5)/I0 

<098> 

2250 

OPEN 2,8,2,JJ*+",S,R":GOSUB 2330 

<094 > 

1550 

ZZ=INT(F*.5*1000+.5)/1000 

< 0 B 8 > 

2260 

IF ENO0 THEN PRINT“£ILE GIBT ES NICH 


1560 

MS=W*10 

<251 > 


T“:CLOSE 2:RETURN 

< 106 > 

1570 

NB=INT(F*.53*10+.5)/10 

<151 > 

2270 

CLOSE 2 

<001 > 

1580 

GOTO 1650 

<252> 

2280 

PRINT415,"S:"+JJ*:GOSUB 2330:IF EN=1 


1590 

GOSUB 2000 

<030> 
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THEN PRINT"£ILE BELOESCHT" 

< 022 > 

2520 

REM 

<I240> 

2290 

RETURN 

<060> 

2530 

REM *** WEIN- UND HEFESORTEN *** 

<*340> 

2300 

REM 

<074> 

2540 

REM 

<060> 

2310 

REM *** FEHLERKANAL LESEN *** 

<208> 

2550 

DATA"ARQMBEERE",“3JR6UNDER/BORDEAUX", 


2320 

REM 

<096> 


"ARDBEERE","IOKAIER/SUEDWEIN" 

<241 > 

2330 

INPUT#15,EN,EM* 

<035> 

2560 

DATA"AAEEBUTTE“£ORIWEIN/AALAGA/XOKA 


2340 

IF EN=21 OR EN>64 THEN SYS C,17,0 

<237> 


IER","ADHANNISEFERE",-ATEINBERG,£DRTW 


2350 

IF EN=21 THEN PRINT EMS;"51 SK NICHT F 



EIN" 

<094> 


ORMATIERT? ANDERE EINLESEN" 

<146> 

2570 

DATA“AAÜ2RKIRSCH(3SPACE>",“BURGUND,£D 


2360 

IF EN=72 THEN PRINT"AISK IST VOLL- AI 



R.MEIN","ATACHELBEERE <2SPACE>" 

<093> 


TTE NEUE EINLEGEN" 

<195> 

2580 

DATA"ATEINBERG,SHERRY/PORTWEIN" 

<026> 

2370 

IF EN=74 THEN PRINT"!SEINE 2ISK IN DER 


2590 

REM 

< 112 > 


FLOPPY! AISK EINLEGEN" 

< 122 > 

2600 

REM »** CURSORPOSITIONIERUNG »** 

<223> 

2380 

IF EN=21 OR EN>71 THEN PRINT"UND LETZ 


2610 

REM 

< 132> 


TEN AROGRAMMPUNKT WIEDERHOLEN 1 CLOSE 


2620 

DATA 32,253,174,32,158,183,138,72,32, 



2 

<193> 


253, 174,32 

<208> 

2390 

RETURN 

<162> 

2630 

DATA 158,183,138,16B,104,170,24,32,24 


2400 

REM 

< 176> 


0,255,96 

< 120 > 

2410 

REM *** SPRITE *** 

<190> 

2640 

REM 

< 162> 

2420 

REM 

<196> 

2650 

REM *** HARDCOPYROUTINE *** 

<046> 

2430 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 


2660 

REM 

<1B2> 


0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 


2670 

SYS C,24,1:PRINT"DRUCKER FERTIGMACHEN 




<214> 


, DANN-> RETURN"; 

<064> 

2440 

DATA 0,170,0,1,255,0,3,255,128,3,255, 


2680 

POKE 198,0: WAIT 198,1: SET A*: IF A*OC 



128,1,255,0,1,255,0,0,254,0,0,124,0 

< 149> 


HR*(13)THEN GOSUB 2700:RETURN 

<152> 

2450 

DATA 0,0,0 

<030> 

2690 

PRINT CHR*(191OPEN 1,4,7:OPEN 2,3:G 


2460 

REM 

<236> 


OSUB 2710:CLOSE 2:CLOSE 1 

<137> 

2470 

REM *»» SPRITE *** 

<250> 

2700 

SYS C,24,1:PRINT"£3BSPACE>RETURN 

<217> 

2480 

REM 

<000> 

2710 

FOR 1=1 TO 20:FOR J=1 TO 20:GET#2,C1* 


2490 

DATA 0,0,0,0,56,0,0,56,0,0,56,0,0,16, 



:PRINT CHR*(20);:GET#2,C2* 

< 022 > 


0,0,124,0,0,56,0,0,56,0,0,56,0,0,124, 

<211 > 

2720 

PRINT CHR*(157)CHR* <14B> C1*C2*; 

< 190> 


0 

2730 

PRINT#1,C1*C2*;:NEXT:PRINT#!:NEXT:PRI 


2500 

DATA 1,255,0,3,255,128,3,255,128,7,25 



NT CHR*(19)5:RETURN 

<241 > 


5,192,7,255,192,7,255,192,7,255,192 

< 115> 




2510 

DATA 3,255,128,3,255,128,1,255,0,0,25 






4,0 

<067> 

e et'er- 





Listing zu »Fruchtwein« (Ende) 



a*«R anun^< 



Top-Themen 


TOP-THEMEN AUS 64'er: 
AUSGEWSHLTE SUPER-USTIN6S 
Anwendungen: Schach, Kegel- 
statistik, Siemenkarte und »Happy' 
synth«-Sound. Graiik: Provic 64, 
Turtle-Grafik, Trickfilm und HI-EDDI 
Hilfsprogramme: Bitmap- 
Compander, Excorf, Strubs, Tinv- 
Forln-Compiler, Hyprn-load und 
Hypra-Sawe. Spiele: Grab des 
Pharao, Castle of Doem und 
Apecalypse Naw. 


SONDERHEFT: 
FIOPPY/DATASETTE 
Alles zum Thema Massen¬ 
speicher: So stellt man die 
Datasette ein. FMON 1541: 
Das Werkzeug für werdende 
Floppy-Spezialisten. Disk 
Basic 64: Fast 50 neue Be¬ 
fehle für komfartcdilen 
Floppy-Betrieb. Turbo Tape 
de Luxe: Datasette lOmal 
schneller als Floppy 1541. 


Diese neue 64er Sonderheft¬ 
reihe bringt jetzt hochaktuelle 
Zusammenstellungen ver- 

und 


besserten überal 
erweiterter Super-Listings, aus- 
gewählt aus den besten 64er^ 
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Naturwissenschaft 


C 64 


Der C 64 als 
Meßboy 

Ein kleiner Hardware-Zusatz, der für 
unter 10 Mark zu haben ist, macht aus 
Ihrem C64 ein Kapazitäts- und Wider¬ 
standsmeßgerät, das einen Vergleich 
mit professionellen Geräten nicht zu 
scheuen braucht. Der Meßbereich 
reicht von einigen pF bis hin zu eini¬ 
gen mR 


Kontrollregister 14 (TlmerA) Adresse 56590 Inhalt 193: 

Bit 0: 1 

Timer A Start 

Bit 1:0 

Keine Signalisierung an PB6 

Bit 2: 0 

(Beliebig) 

Bit 3: 0 

Timer A zählt fortlaufend vom Ausgangswert auf 0 

Bit 4:0 

Unbedingtes Laden ausgeschaltet 

Bit 5: 0 

Timer A zählt Systemtakte 

Bit 6: 1 

(Serieller Port auf Eingang) 

Bit 7: 1 

(Echtzeituhrtrigger 50Hz) 

Kontrollregister 15 (TlmerB) Adresse 56591 Inhalt 121: 

Bit 0:1 

Timer B Start 

Bit 1:0 

Keine Signalisierung des Unterlaufs an PB7 

Bit 2: 0 

(Beliebig) 

Bit 3: 1 

Timer zählt nur einmal auf 0 

Bit 4: 1 

Unbedingtes Laden eingeschaltet 

Bit 5:1 

(Timer B zählt Unterlaufe von Timer A 

Bit 6: 1 

(falls CNT2 = 1 Ist 

Bit 7:0 

(Uhrzeit) 


Bild 2. Werte der Kontrollregister zur Zeitmessung mit 
den Timern des C 64 


Jeder Elektronikbastler kennt das Problem: in der Bauteile¬ 
kiste liegen etliche undefinierbare Kondensatoren mit exoti¬ 
schen Aufschriften, wie zum Beispiel 22000 F oder 20j. 
Woher soll man mit Sicherheit sagen können, ob das heraus¬ 
gefischte Exemplar auch die richtige Zehnerpotenz besitzt? 
Zwar gibt schon die Bauteilgröße einen Anhaltspunkt, ob 
Pikofarad, Nanofarad oder gar Mikrofarad gemeint sind, doch 
man verschätzt sich leicht, weil oft auch die zulässige Span¬ 
nung nicht klar angegeben ist. So entsteht der Wunsch, die 
Bauteile nachmessen zu können, doch Kapazitätsmeßgeräte 
sind nicht billig, und so lohnt sich eine Anschaffung in den 
meisten Fällen nicht. 

Der hier vorgestellte Meßzusatz ermöglicht aber, den C 64 
zu einem Kapazitäts- und Widerstandsmeßgerät aufzuwer¬ 
ten. Mit wenig Aufwand erhält man ein System mit automati¬ 
scher Meßbereichsumschaltung über mehr als neun Zehner¬ 
potenzen und zehn ständig anzeigenden Meßwertspeichern, 
einer Ausstattung also, die auch bei den teuren Profigeräten 
ihresgleichen sucht. 

Funktion durch Händeschütteln 

Das Funktionsprinzip ist genial einfach. Ein ganz normales 
TTL-Monoflop aus der 74XX-Reihe dient als Zeitgeber. Es 
antwortet auf einen Low-High-Sprung am Eingang mit einem 
Ausgangsimpuls, dessen Länge weitgehend unabhängig von 
Betriebsspannung und Temperatur ist, also nur noch von den 
Werten des Widerstands und des Kondensators bestimmt 
wird. Mit einem Umschalter kann man wahlweise den Wider- 
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Bild 1. Zeitdiagramm der Handshake-Leitungen am 
User-Port 


Bild 3. Berechnung der Impulsdauer 

stand oder den Kondensator fest einstellen und das jeweils 
ancfc:'3 Bauelement über die Abgreif klemmen messen. 

Die gesamte übrige Hardware ist bereits im C64 eingebaut. 
Dank der Schnittstellenbausteine VIA 6526 hat man nämlich 
die Möglichkeit, über den User-Port die Impulsdauer zu mes¬ 
sen, um sie dann auf den gesuchten Wert umzurechnen. Die 
Aktionen werden dabei über die sogenannten Hand¬ 
shake-Leitungen am User-Port koordiniert, wie im Zeitabiauf- 
diagramm (Bild 1) deutlich zu sehen ist. 

Durch einen Schreib- oder Lesebefehl auf die Port-Adresse 
56577 wird der Meßimpuls ausgelöst. Das geschieht in dem 
abgedruckten Programm (Listing 1) in Zeile 3300. Der C 64 
signalisiert das am User-Port selbständig dadurch, daßPC2 
für die Dauer eines Taktes Low wird. Wenn diese Leitung wie¬ 
der auf High geht, löst das den Impuls am Monoflop-Ausgang 
Qaus, der gleichzeitig mit den Anschlüssen CNT2 und Flag2 
verbunden ist. Wie die Tabelle »Kontrollregister« (Bild 2) zeigt, 
wurde der VIA-Baustein so programmiert, daß er mit dem 
Systemtakt abwärts zählt, solange der Eingang CNT2 High- 
Pegel führt. Dabei zählt Timer B Unterläufe von Timer A. Das 
bedeutet, Timer A wird mit einem bestimmten Wert geladen 
(Zeilen 3200 und 3210) und zählt von dort aus abwärts. 
Erreicht er die Stellung 0, dann wird der Inhalt des Timers B 
um eins erniedrigt, Timer A wird wieder mit dem vorgegebe¬ 
nen Startwert geladen, und der Vorgang wiederholt sich. 

Errechnung des Meßwertes und 
Bereichsumschaltung 

Die fallende Flanke am User-Port-Eingang setzt das Bit 4 im 
Register 56589 (Flag-Interrupt-Bit), das vom Programm 
abgefragt werden kann (Zeile 4040). Es signalisiert somit das 
Ende des Monoflop-Taktes und die Gültigkeit des Timerin¬ 
halts. Beim Auslesen wird dieses Bit selbständig wieder 
gelöscht. 


128 




























C 64 


Naturwissenschaft 


Das Programm liest nun den Timer aus (2 Byte!), multipli¬ 
ziert ihn mit der Taktzeit und berechnet mit der Formel aus Bild 
3 den gesuchten Wert. Für den Meßbereich Pikofarad und 
Nanofarad (B=0) erfolgt diese Rechnung in Zeile 5020. 
Sollte die zu messende Zeit die Timerkapazität überschrei¬ 
ten, so steht nach der Messung eine 0 in der Variablen und es 
wird in Zeile 5030 automatisch auf den Meßbereich Mikro¬ 
farad (B=1) umgeschaltet. 

Hierbei wird das Highbyte des Timers A in Zeile 3210 nun 
mit 5 geladen, so daß längere Zeiten gemessen werden kön¬ 
nen. Die Umrechnung erfolgt jetzt in Zeile 6000. Falls die 
gemessene Zeit einen bestimmten Grenzwert unterschreitet, 
schaltet das Programm in Zeile 5035 wieder zurück in den 
Bereich 0. 

Um genaue Ergebnisse zu gewährleisten, muß sichergestellt 
werden, daß nach einer Messung immer eine Erholzeit ver¬ 
streicht, die mindestens 75% der Impulsdauer betragen soll. 
Diese Forderung ist normalerweise bereits durch die Pro¬ 
grammlaufzeit erfüllt. Lediglich im Bereich Mikrofarad können 
längere Meßzeiten auftreten, die bei großen Kapazitäten 
nicht zu unterschätzen sind. Bei 1000 Mikrofarad beträgt die 
Impulsdauer bereits 27,3 Sekunden. Daher wird in Zeile 
6020 eine angepaßte Warteschleife durchlaufen, die auch 
die Menüfunktionen zugänglich macht. 



Aufbau und Inbetriebnahme 


Die kleine Zusatzschaltung (Bild 4) kann auch von weniger 
Geübten leicht auf einer Lochrasterplatte aufgebaut werden. 
AlleTeile (Bild 5) sind handelsüblich und der gesamte Kosten¬ 
aufwand liegt weit unter 10 Mark. S^eR 

Um den Anzeigefehler möglichst klein zu halten, sollte für 
den 39 Kiloohm-Meßwiderstand eine Ausführung mit kleiner 
Toleranz gewählt werden (±1% oder kleiner). 

Den Festkondensator für die Widerstandsmessung kann 
man messen, indem man in Stellung »C« und »Kondensator¬ 
meßgerät« die mit»-« bezeichnete Klemme mit dem Anschluß 
des Kondensators verbindet, der am Umschalter liegt. Der 
angezeigte Wert wird in Zeile 7050 eingetragen. War die 
Anzeige beispielsweise 211 Nanofarad, dann muß die Zeile 
lauten: 

7050 W=(65535-(PEEK(56582)+PEEK(56583)*256)) 
*1.02e-6/(.7*211e-9) 

Das Meßgerät ist nun geeicht und betriebsfertig. 

Es sollte selbstverständlich sein, daß der Zusatz bei einge¬ 
schaltetem Computer weder aufgesteckt noch abgezogen 
wird. 

Beim Starten des Programms wird zuerst das Kapazitäts¬ 
meßgerät aktiviert. Dazu muß man den Schalter auf der 
Zusatzplatine in Stellung »C« bringen. Auf der linken Bild¬ 
schirmhälfte erscheinen die numerierten Speicherplätze, 
rechts leuchtet der Meßwert. Um die Benutzung zu erleich¬ 
tern, erscheinen am unteren Bildrand alle verfügbaren Funk¬ 
tionen. Man kann sie durch Drücken des Anfangsbuchsta¬ 
bens anwählen. 

Mit »S« gefolgt von einer Ziffer, wird der angezeigte Wert in 
den entsprechenden Speicher übernommen. 

»L« löscht alle gespeicherten Einträge, 

»W« oder »R« schalten um auf Widerstandsmessung, 

»K« oder »C« wieder zurück zur Kapazitätsmessung. Gele¬ 
gentlich kann es beim Wechsel von Meßobjekten Vorkom¬ 
men, daß das Gerät nicht mehr reagiert. Hier hilft es, mit »I« 
einen Impuls von Hand auszulösen. Mit »Q« kann man das 
Programm verlassen. 


Of 


1 Monoflop SN 74121 
1 Widerstand 3,3 k$2 
1 Meßwiderstand 39 kll ±1% 

1 Kondensator 0,22 Mikrofarad 

1 Stecker zum Anschluß an den User-Port des C 64, zum Beispiel 
Cardcon-Stecker Nummer 251-12-50-170 von TRW 
I.JufchT-sterplatte 
T SeiKuiar 2x um 


Bild 5. Stückliste zum »Meßboy« 


User I/O 


Pin 

Type 

Note 

1 

GND 


2 

+ 5V 

MAX. 100mA 

3 

RESET 


4 

CNTI 


5 

SP1 


6 

CNT2 


7 

SP2 


8 

PC2 


9 

SER. ATN IN 


10 

9 VAC 

MAX. 100mA 

11 

9 VAC 

MAX. 100mA 

12 

GN0 



Pin 

Type 

Note 

A 

GNO 


B 

FLAG2 


C 

PBO 


D 

PB1 


E 

PB2 


F 

PB3 


H 

PB4 


J 

PB5 


K 

PB6 


L 

PB7 


M 

PA2 


N 

GND 



i S 3 4 » * 7 $ 9 10 11 IS 


ABCDEFHJKLUN 

Bild 6. Anschlußbezeichnungen des User-Ports 
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C 64 


100 REM ************************** 

<140> 

4999 


<230> 

110 REM * * 

< 159> 

5000 

REM KAPAZITAETSMESSUNG 

<217> 

120 REM * C/R-MESSGERAET * 

<237> 

5001 

REM********************** 

<232> 

130 REM * * 

<179> 

5020 

W= <65535-<PEEK(56582)+PEEK <56583)*256 


140 REM * * 

<1B9> 


>)*1.02E—6/<.7*39000) 

<177> 

150 REM * VON UWE GERLACH * 

<019> 

5030 

IF W=0 AND B=0 THEN B=l: GOTO 3000 

<042> 

160 REM * BRUEHLSTR. 23 * 

<156> 

5035 

IF W<3E—10 AND B=1 THEN B=0: GOTO 300 


170 REM * * 

<219> 


0 

<223> 

180 REM * 6440 BEBRA 1 * 

< 124> 

5050 

IF B=1 THEN 6000: REM MESSBEREICH 

<032> 

190 REM * * 

200 REM * * 

<239> 

<249> 

5070 

IF W<IE—9 THEN W*=LEFT*(STR*(W*1E12>+ 
" {6SPACE >“,6)♦" ÜIKOFARAD "l GOTO 200 


210 REM * APRIL 1985 * 

<162> 


0 

<176> 

220 REM * * 

<013> 

50B0 

IF W<IE—6 THEN W*=LEFT*(STR*(W*1E9)+" 


230 REM ************************** 

<014> 


{7SPACE}“,6)+" HANOFARAD GOTO 2000 

<102> 

250 : 

<226> 

6000 

W=(65535-(PEEK <56582)+PEEK(56583)*256 


1000 POKE 53280,0: POKE 53281,0: REM FARBE 
1010 PRINT "{CLR,WHITE}MIDERSTANDS-C2SPACE 
>UND{2SPACE>£APAZITAETSMESSGERAET <BRE 

<068> 

6010 

))*5*256*1.02E—6/(.7*39000) 

W*=LEFT*(STR* < W*1E6)+”{6SPACE} ” , 6 > + " 
fllKROFARAD" 

<035> 

<166> 

Y 2>";CHR$(14):PRINT:PRINT 

<094> 

6020 

FOR 1=0 TO W*1E6:GOSUB 9030: NEXT I 

<1B4> 

1400 PRINT"{HOME}":PRINT:PRINT:PRINT:PRINT 


6050 

GOTO 2000 

< 156> 

,,- JWPAZITAETSMESSUNG“ 

<201 > 

6998 

: 

<116> 

1420 B=0 

<055> 

6999 

REM********************** 

<19B> 

1430 PRINT:PRINT: F>RINT, , " .SITTE DEN SCHALT 


7000 

REM WIDERSTANDSMESSUNG 

<101> 

ER" 

<222> 

7001 


<200> 

1440 PRINT,,"{2BPACEJAM flESSZUSATZ IN" 

<047> 

7050 

W=(65535-(PEEK(56582)+PEEK(56583>*256 


1450 PRINT,," C4SPACE1S.TELLUNG '£• " 

<056> 


> ) *1.02E—6/ < . 7*220E—9) 

<076> 

1460 PRINT,,“<6SPACE>BRINGEN !“ 

<000> 

7070 

W*="{2SPACE}"+LEFT*(STR*(INT < W))+"<6S 


1490 GOTO 8110 

<00B> 


PACE}",7)+" flHM{4SPACE}" 

< 159> 

1500 PRINT"{HOME}":PRINT:PRINT:PRINT:PRINT 


7100 

GOTO 2000 

< 190> 

,," HIDERSTANDSMESSUNG“ 

<152> 

7998 

t 

<100> 

1520 B=2 

<187> 

7999 


<119> 

1530 PRINT:PRINT:PRINT, ,“ SITTE DEN SCHALT 


B000 

REM MESSWERTSPEICHER 

<242> 

ER" 

<066> 

8001 

REM******************** 

< 121 > 

1540 PRINT,,"{2SPACE>AM flESSZUSATZ IN" 

<149> 

8050 

GET A*: IF A*="" THEN 8050 

< 196> 

1550 PRINT,,"{4SPACEISTELLUNG 'S - " 

<03B> 

8060 

IF VAL(A*)<0 OR VAL <A*> >9 THEN 8110 

<110> 

1590 GOTO 1460 

<006> 

8070 

W*(VAL < A*))=W* 

<206> 

1592 : 

<044> 

8110 

POKE 211,0: POKE 214,2: SYS 58732: RE 



<236> 


M KURSORPOSITIONIERUNG 

<066> 

2000 REM ANZEIGE UND MENUE 

<038> 

8120 

FOR 1=0 TO 9 

<060> 

2001 REM********************* 

<238> 

8130 

: PRINT I; W*(I): PRINT 

<094> 

2010 POKE 211,21: POKE 214,17: SYS 58732: 


8140 

NEXT I 

<094> 

REM KURSORPOSITIONIERUNG 

<090> 

8210 

PRINT “ 3PEICHERN{2SPACE TiOESCHEN{2SPA 


2020 PRINT"{WHITE }"; W* :" {GREY 2}": REM AKT 

in»«» 

CE}HI DERSTANDSMESSUNG" 

<105> 

UELLER WERT 

<077> 

8220 

PRINT " iAPAZITAETSMESSUNG IHPULSAUSLO 


2030 GOSUB 9030 

< 112> 


ESEN auIT" 

<016> 

2998 : 

<180> 

8490 

GOTO 2000 

<056> 

2999 REM******************************* 

<0B7> 

8498 

: 

<092> 

3000 REM I/O-BAUSTEIN INITIALISIEREN 

<104> 

8499 

REM************************** 

< 157> 

3001 REM******************************* 

<089> 

8500 

REM LOESCHEN DER SPEICHER: 

<064> 

3010 H=0 

< 145> 

B501 


<159> 

3060 IF B=1 THEN H=5: REM FUER > 500NF 

<069> 

8510 

FOR 1=0 TO 9: W*(I) =“ {17SPACE}": NEXT 


3100 POKE 56590,193: REM KONTROLLREG. A 

<166> 


1 

<223> 

3110 POKE 56591,121: REM KONTROLLREG. B 

<008> 

8S20 

GOTO BI10 

<182> 

3200 POKE 56580,0: REM TIMER A LOW 

<021 > 

8998 

s 

<084 > 

3210 POKE 56581,H: REM TIMER A HIGH 

< 151 > 

9000 

REM**************** 

< 166> 

3220 POKE 56582,255: REM TIMER B LOW 

<241 > 

9010 

REM HAUPTMENUE 

<002> 

3230 POKE 56583,255: REM TIMER B HIGH 

<155> 

9020 


<186> 

3240 : 

<168> 

9030 

GET A* 

<094> 

3300 POKE 56577,0: REM IMPULS AUSLOESEN 

<073> 

9040 

IF A*=”S" THEN 8000 

< 114> 

3998 : 

< 164> 

9050 

IF A*="L" THEN 8500 

<033> 

3999 REM******************************* 

<071 > 

9060 

IF A*="Q" THEN PRINT"{CLR} “ : END 

<221 > 

4000 REM WARTEN AUF FLAG-INTERRUPT-BIT 

<084> 

9070 

IF A*="K" OR A*="C" THEN 1400 

<007> 


<073> 

9080 

IF A*="W" OR A»="R" THEN 1500 

<223> 

4040 IF <PEEK<56589) AND 16)>0 THEN 4090 

< 135> 

9090 

IF A*="I“ THEN 2000 

< 135> 

4050 GOSUB 9030: GOTO 4040: REM MENUE 

4090 IF B=2 THEN 7000: REM WIDERSTDMSG. 

<006> 

<046> 

9095 

RETURN 

<007> 

4998 : 

<148> 

© &4'er 


Listing 1. Softwareteil zum »Meßboy«. Bitte beachten Sie die Eingabehinweise auf Seite 6. 



Der Meßbereich des Systems reicht bei der angegebenen 
Dimensionierung von der Größenordnung der Kabelkapazität 
bis zu einigen tausend Mikrofarad. 

Im Ohm-Meßbereich überdeckt es jedoch nur die Werte von 
etwa 100 Ohm bis ungefähr 150 kQ . 


Die Belegung des User-Ports und eine Variablenliste finden 
Sie in Bild 6 und 7. 

(Uwe Gerlach/ah) 


A$ Eingabestring von der Tastatur (ein Zeichen) 

W$ Anzuzeigender oder zu speichernder Werl (mit Einheit) 

B Bereich: 0 = Kondensatormessung kleiner 500 Nanofarad 

1 = Kondensatormessung größer 500 Nanofarad 

2 = Widerstandsmessung 

H High-Byte Timer A (0 im Bereich 0, 5 im Bereich 1) 

I Indexvariable in Schleifen 

W Errechneter Meßwert 

Feld W$(1. .10) gespeicherte Meßwerte 


Bild 7. Variablenliste zum Programm »Meßboy« 


|de 

.net 


130 















Warum unterscheidet sich das 


Dezemberheft von Lb43 


-dem Masaz.in für 15/k] 


Computer-Fans - doch ein 


bißchen von allen anderen A 



w* 



Vielleicht ganz einfach, weil die 64'er-Redaktion schon jetzt an alle diejenigen gedadit hat, die gerade damit an¬ 
fangen, sich erste Gedanken über Computer-Geschenke und -Wunschzettel zu machen: 



Die Messeneuheiten von der Commodore-Messe in 
Frankfurt 


Große Marktübersidit: Monochrome Monitore. 
Was sie kosten - wie sie funktionieren — 
wie man sie anschließt. 



Top-Ten 85: 

Die Spiele-Veikaufshils des Jahres. 



Programm kontra Programm: Die besten Sdiadiprogramme 
ermitteln sich im Kampf gegeneinander. 


Außerdem lesen Sie: 

Sensation für den CI 28: 640x200 Punkte jetzt 
mit Bask-Befehlen ansprechbar/Schritt für Schritt mit 
lageplan: Komplette Lösungen für die beliebtesten 
Abenteuerspiele./Basic-Programme aus dem EPROM: 
Selbstbau-EPROM-Brenner mit Listing - natürlich auch im 
Hardware-Service erhältlich./Software-Hilfen: Tips zu 
Visawrite und Assembler-Starthilfe./64'er Extra: Die 
Zeropage./Software-Test: Die neue audio-visuelle Lern¬ 
methode mit dem C 64... und Tips und Tricks für C 64 
und C128. 





I 
I 
I 
I 

...und wenn Sie nodi kein per¬ 
sönliches 64'er-Abonnement 
besitzen, schenken Sie sich mit 
dem nebenstehenden Gutschein 
doch ganz einfach selbst eines | 
zu Weihnachten! 

k. I 


---->£- 

Gutschein 

FÜR EIN KOSTENLOSES PROBEEXEMPLAR DES 64’er-MAGAZINS 


JA. ich möchte das »64'er-Magazin. kennenlemen. 

Senden Sie mir bine die aktuellste Ausgabe kostenlos als Probeexemplar. Wenn mir »64’er« gefallt 
und ich os regelmäßig weiterbeziehen möchte, brauche ich nichts zu tun: Ich erhalte »64‘er« dann 
regelmäßig frei Haus per Post und bezahle pro Jahr DM 78,— (Ausland auf Anfrage) 


Vorname, Name 


Saaße 

PIZ, Ort 


Datum 1. Unterschrift 

Mir ist bekannt, daß ich diese Bestellung innerhalb von 8 Tagen bei der Bestelladresse widerru¬ 
fen kann und bestätige dies durch meine zweite Unteischrift. Zur Wahrung der Frist genügt die 
rechtzeitige Absendung des Widerrufe. 


Datum 2. Unteischrift 

Gutschein ausfüllen, ausschneiden, in ein Kuvert stecken und absenden an: Markt&lbchnik 
Verlag Aktiengesellschaft. Vertrieb. Postfach 1304,8013 Haar k -iMi i'K Je 

64, 6430785,,,e 





















Naturwissenschaft 


VC 20/C 64 


Numerische Lösungen 
mathematischer Probleme 

Wir stellen Ihnen eine kleine Sammlung von mathematischen 
Unterprogrammen vor, die in eigenen Programmen benötigt werden, 
aber schwer zu programmieren sind. 


ln dem ersten Programm (Listing 1) wird näherungsweise 
die erste Ableitung einer Funktion an einer bestimmten Stelle 
mit Hilfe des Differenzenquotienten bestimmt- Der Differen¬ 
zenquotient ist wie folgt definiert: 

f(z) - f( r x (xo) mitx o szsx 

Dieser Differenzenquotient (im Programm Zeile 200) wird 
etwas abgewandelt, so daß man den Abstand zwischen x und 
x 0 immer kleiner werden läßt. Dies geschieht, indem man 
statt x den Wert x 0 +h nimmt. Der Wert h wird dann immer 
weiter halbiert (Zeile 230), bis eine vorgegebene Genauigkeit 
erreicht ist (Zeile 220). Als erste Ableitung der bestimmten 
Stelle ist dann der letzte ausgedruckte Wert zu nehmen. Die 
erste Ableitung gibt übrigens die Steigung der Tangenten an, 
die an der bestimmten Stelle an den Graphen der Funktion 
angelegt wird. 

Diese Tangente, beziehungsweise auch weitere Tangenten 
werden bei dem zweiten und dritten Programm (Listing 2 und 
3) benötigt. Bei dem zweiten Programm wird mit Hilfe von Tan¬ 
genten die Nullstelle(n) (die Stelle, wo der Graph der Funktion 
die x-Achse schneidet) einer Funktion bestimmt. e , 

Die Iterationsvorschrift (Zeile 160) lautet 

>t, +1 =x l -y/y , =x,-f(x l )/f'(x 1 ) 

Dieses Verfahren stammt von Newton. Im dritten Programm 
(Listing 3) ist die Vorschrift ähnlich, nur braucht man die erste 
Ableitung nicht wissen, was oft von Vorteil ist. Die erste Ablei¬ 
tung wird hier in etwa so bestimmt, wie es in Programm 1 
beschrieben ist. Da nicht nur Ableitungen und Nullstellen von 
Interesse sind, sondern auch die oben erwähnten Integrale, 
behandeln Programm 4 und 5 (Listing 4 und 5) diese Pro¬ 
bleme. 

Im vierten Programm (Listing 4) ist die Kepler'sche Faßre¬ 
gel umgesetzt. Möchte man das Integral einer Funktion (Zeile 
240) wissen, so kann man es mit der Kepler'schen Faßregel 
annähern. Die Faßregel lautet: 

b 

Jf(x)dx = (b-a) • (f(a)/6+f((a+b)/2) • 2/3+f(b)/6) 

a 

Mit dieser noch recht einfachen Formel läßt sich das Integral 
schnell näherungsweise bestimmen. 

Die Formel im Programm 5 (Listing 5) stammt von Simpson, 
sie ist ein wenig komplizierter: 

If(x)dx* h/3 - (f(a)+f(b)+4 f(a+(2k+1)h)+2-£ f(a+2kh)) 

a k=0 k=1 

mit h = (b-a)/(2n) 

Die beiden Summen sind in den Zeilen 210 bis 240 und 250 
bis 280 umgesetzt. 

Ein Problem aus einem etwas anderen Bereich bezieht sich 
auf gewöhnliche Differentialgleichungen. Bei dem Euler- 
schen Polygonzugverfahren in Programm 6 (Listing 6) wird 
der Graph, der die Lösung der gewöhnlichen Differentialglei¬ 
chung beschreibt, in Form von kleinen Geradenstückchen 
genähert. Diese kleinen Geradenstückchen bilden dann den 
Polygonzug. Die einzelnen Punkte zu dieser Näherung wer¬ 


den auf einem vorgegebenen Bereich bezüglich eines 
bestimmten Anfangswertes vorgegeben. 

Das Verfahren von Runge-Kutta in Programm 7 (Listing 7) 
ist weitaus genauer, aber dafür ist die Formel auch komplizier¬ 
ter (Zeile 200, Zeilen 250 bis 280): 

Anfangswert y 0 =y(x 0 ) 

Schrittfunktion (Schrittweite h): 
y k+1 =y,+h/6-(L M + 2L K2 +2L K3 +L k4 ) 
mitL x1 =f(x k ,y k ) (mit y’=f(x,y)) 

L %2 =f(x K +h/2,y k +h/2-L K1 ) 

L K3 =f(x k +h/2,y k +h/2-L 1(2 ) 

L k4 =f(x k +h,y k +h-L >3 ) (Dietmar Rabich/ah) 


100 
ne 

120 
130 

£ 
160 
170 
180 
190 
200 
210 

220 

230 
240 
250 
260 
270 
280 
290 


REM DIFFERENZENQUOTIENT <009> 

PRINT-DIFFERENZENQUOTIENT" <207> 

INPUT"DIFFERENTIATIONSSTELLE";X0 <202> 

INPUT"STARTSTELLE 111SPACE >“;X1 <180 > 

IF X0=X1 THEN 120 <213> 

REM BERECHNUNG UND AUSGABE <019> 

PRINT“ X"," F'“ <024> 

H=X1-X0 <081> 

X=X0+Hs GOSUB 270:F0=F <010> 

X=X0:GOSUB 270sF1=F <029> 

DF-IF0-F11/H <011> 

PRINT INT<(X0+H)«1E5+.5)/1E5,INT(DF»1E 
5+.51/1E5 <050> 

IF H<>(XI—X0)AND ABS CDF-D 6 )<1E-6 THEN 
250 <232> 

DG=DFsH=H/2 <240> 

GOTO 180 <040> 

PRINT”F'C;X0 ;">="5 DF <219> 

END <008> 

REM FUNKTION <1B6> 

F«X*X*X-2*X»X-2 <097> 

RETURN < 094 > 


6 64 '«- 


DIFFERENZENQUOTIENT 
DIFFERENTIATIQNSSTELLE 


STARTSTELLE 

2 

X 

F’ 

2 

1 

1.5 

-.25 

1.25 

-.6875 

1. 125 

-.85937 

1.0625 

-.93359 

1.03125 

-.96777 

1.01563 

-.98413 

1.00781 

-.99213 

1.00391 

-.99608 

1.00195 

-.99804 

1.00098 

-.99902 

1.00049 

-.99951 

1.00024 

-.99976 

1.00012 

-.99988 

1.00006 

-.99994 

1.00003 

-.99997 

1.00002 

-1 

1.00001 

-1 

F'< 1 1—1 



Listing 1. Differential¬ 
quotient mit 
einem Beispiel. Bitte 
verwenden Sie 

zum Eingeben den 
Checksummer auf 
Seite 6. 
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Naturwissenschaft 


100 

REM NULLSTELLENSUCHE NACH NEWTON 

< 107> 

110 

PRINT"ITERATION NACH NEWTON" 

<040> 

120 

PRINT" X"," F" 

<094> 

130 

READ X0:REM STARTWERT 

< 212 > 

140 

X=X0:GOSUB 220:F0=F:REM FUNKTIONSWERT 

<136> 

150 

X=X0s0OSUB 250:F1»FS:REM 1. ABLEITUNG 

<221 > 

160 

X1=X0—F0/F1 

<066> 

170 

PRINT XI,F0 

<019> 

180 

IF ABS(XI—X0><IE —6 THEN END 

< 166> 

190 

X0=X1 

<034> 

200 

GOTO 140 

<192> 

210 

REM FUNKTION 

<124> 

220 

F=Xt2-4 

< 121 > 

230 

RETURN 

<032> 

240 

REM 1. ABLEITUNG 

<021 > 

250 

FS=2*X 

< 117> 

260 

RETURN 

<064> 

270 

REM STARTWERT 

<223> 

280 

DATA 3 

<193> 

6 G4 

'er 



ITERATION NACH NEWTON 



X F 

2.16666667 5.00000001 

2. 00641026 .694444446 

2.00001024 .0256821178 

2 4.09577042E—05 

2 0 


Listing 2. Nullstellen mit dem Newtonschen 
Iterationsverfahren. 



160 I=I+F /6 

<224> 

170 X=BsGOSUB 240 

<027> 

100 I-I+F /6 

<244> 

190 X=(A+B)/2:GOSUB 240 

< 137> 

200 I»I-*-F*2/3: I=I*<B-A> 

<004 > 

210 REM AUSGABE 

< 022 > 

220 PRINT"ERGEBNIS= "; I 

<138> 

230 END 

<232> 

240 F=X*X*2 

<086> 

250 RETURN 

<052> 

e 64'«- 


KEPLERSCHE FASSREGEL 
INTERERVALLBRENZEN 0 5 

ERGEBNIS= 83.3333333 


Listing 4. Numerische Integration mit der 
Kepler’schen Faßregel 



100 

REM INTEGRATION NACH SIMPSON 

<190> 

110 

PRINT"SIMPSONSCHE REGEL" 

<165> 

120 

INPUT"INTERERVALLGRENZEN"; A, B 

< 16S> 

130 

IF B<=A THEN PRINT-FALSCHE EINGABE!"i 6 



OTO 120 

< 202 > 

140 

INPUT“TEILINTERVALLE“;N 

<248> 

150 

H=(B—A)/(2*N)s REM SCHRITTWEITE 

<092> 

160 

REM BERECHNUNG DES BENAEHERTEN INTEGRA 



LWERTES 

<054> 

170 

X=A:GOSUB 330 

<13B> 

180 

I = I+F 

<232> 

190 

X=BsGOSUB 330 

<174> 

200 

I = I+F 

<252> 

210 

FOR J=0 TO N-l 

< 1B4> 

220 

X=A+C2«J+1)*H:GOSUB 330 

<103> 

230 

I=I+4*F 

<050> 

240 

NEXT J 

<076> 

250 

FOR J=1 TO N-l 

< 000 > 

260 

X=A+2*J*H:GOSUB 330 

<254> 

270 *’ ä I+2*F 

<219> 

280 

NEXT J 

<118> 

290 

I=I*H/3 

<034> 

300 

REM AUSGABE 

< 114> 

310 

PRINT"ERGEBNIS="jI 

<230> 

320 

END 

<068> 

330 

F=X*X*2 

< 178> 

340 

RETURN 

< 144> 

6 G4'er SIMPSONSCHE REGEL 

INTERERVALLBRENZEN 0 5 

TEILINTERVALLE 10 

ERGEBNIS= 83.3333334 


Listing 5. Integration mit der Simpson’schen Regel. 


100 

REM NULLSTELLENSUCHE - REGULA-FALSI 

<028> 

110 

PRINT"REGULA FALSI“ 

<175> 

120 

READ X0,X1:REM STARTWERTE 

<088> 

130 

PRINT" X“," F“ 

m 

140 

X=X1:GOSUB 250:F1=F 

150 

X=X0:GOSUB 250:F0«F 

<209> 

155 

PRINT X,F0 

<089> 

160 

Z=X1-«X1-X0)/CF1-F0)*F1 

<071 > 

180 

X0=X1:X1=Z 

< 139> 

190 

IF ABS(XI—X0)<1E —8 THEN 210 

<0B9> 

200 

GOTO 140 

<192> 

210 

REM AUSGABE 

< 022 > 

220 

PRINT"NULLSTELLE»";Z 

<071 > 

230 

END 

<232> 

240 

REM FUNKTION 

< 154> 

250 

F=XT2-4 

< 151 > 

260 

RETURN 

<064> 

270 

REM STARTWERTE 

<051 > 

280 

DATA 3,4 

<009> 

@ G4'er 

REGULA FALSI 

X F 

3 5.00000001 

4 12 

2.28571428 1.2244898 

2.09090909 .371900825 

2.00593472 .0237740986 



2.00013169 5.26783988E- 

-04 


2.00000019 7.76723028E- 

NULLSTELLE» 2 

-07 

Listing 3. Nullstellensuche mit der Regula Falsi 


100 

REM EULERSCHES POLYGONVERFAHREN 

< 002 > 

110 

: 

<086> 

130 

PRINT"<CLR,RVSON,5SPACETEULERSCHES POL 



YGONZUGVERFAHREN «SPACE,RVOFF>" 

<247> 

140 

PRINT"DIESES VERFAHREN HAT KEINE FEHLE 



R—" 

< 020 > 

150 

PRINT-ABSCHAETZUNG. NUMERISCH IST DIES 



ES " 

< 148> 

160 

PRINT"VERFAHREN RECHT SCHNELL, ABER BE 



I ZU" 

<072> 

170 

PRINT"GROSSER SCHRITTWEITE SEHR UNGENA 



U, WOBEI" 

<223> 

180 

PRINT" CUPJDER FEHLER MIT WACHSENDEM X 



IMMER " 

<066> 

190 

PRINT“GROESSER WIRD. SCHRITTWEITEN VON 



10 t— 2 “ 

<015> 

200 

PRINT"UND KLEINER SIND SCHON EINIGERMA 



SSEN" 

<236> 

210 

PRINT"GENAU.CDOWN}"” 

<192> 

220 

: 

<196> 

230 

INPUT"CDOWNJANFANGSWERTE I X,Y “jXl,Yl 

<048> 

240 

INPUT"CDOWN >INTERVALLOBERGRENZE”;B:A=X 



1 

<018> 

250 

INPUT"CDOWN>SCHRITTWEITE C7SPACE >"jH 

< 183> 

260 

I 

<23B> 

280 

PRINT"CCLR >Y'=Y*X-2*X CDOWN >" 

<251> 


100 

REM INTEGRATION NACH KEPLER 

<223>" 

110 

PRINT"KEPLERSCHE FASSREGEL" 

< 212 > 

120 

I NPUT» INTERERVALLGRENZEN" ; A, B 

<168> 

130 

IF B<=A THEN PRINT"FALSCHE EINGABE""sG 



OTO 120 

< 202 > 

140 

REM BERECHNUNG DES GENAEHERTEN INTEGRA 



LWERTES 

<034> 

150 

X=A:GOSUB 240 

<247> 





















Naturwissenschaft 


C 64 + Simons Basic 


290 

300 

310 

320 

330 

340 

350 

360 

370 

3B0 

390 

400 

410 

420 


DEF FN F(X>"INT(X*10E6+.5)/10E6 

I 

Y=Y1 

PRINT” X <3SPACE<2SPACE>Y" 

FOR X=A TO B STEP H 

SOSUB 410:M=F:REM STEIGUNG DER NAEHERU 
NGSGERADEN 

T=Y—M*<X+A>tREM VERSCHUB DER GERADEN 
PRINT FN F(X),FN F<Y> 

Y=M*(A+X+H)+T:REM NAECHSTER Y-WERT 

NEXT X 

END 

F-Y*X-2*X s REM DIFFERENTIALGLEICHUNG 
RETURN 


<035> 

< 022 > 

<237> 

<059> 

<234> 

<146> 
<026> 
<155> 
<007> 
<074 > 
< 13S> 
< 122 > 
<125> 
<224 > 


B G4'er 

DIESES VERFAHREN HAT KEINE FEHLER- 
ABSCHAETZUNG. NUMERISCH IST DIESES 
VERFAHREN RECHT SCHNELL, ABER BEI ZU 
GROSSER SCHRITTWEITE SEHR UNGENAU, WOBEI 
DER FEHLER MIT WACHSENDEM X IMMER 
GROESSER WIRD. SCHRITTWEITEN VON 101—2 
UND KLEINER SIND SCHON EINIGERMASSEN 
GENAU. 


anfangsHerte 

: x,y 0 1 

intervallobergrenze 2 

schrittweite 
y’=y*x-2*x 

.2 

X 

y 

0 

i 

.2 

i 

.4 

.96 

.6 

.8768 

.8 

.742016 

1 

.5407386 

1.2 

.2488863 

1.4 

-.171381 

1.6 

-.7793677 

l.B 

-1.6687654 


B4€R QHL 


Listing 6. Näherungsweise Lösung einer gewöhnlichen 
Differentialgleichung nach dem Eulerschen Polygon¬ 
zugverfahren 


100 PRINT“ <CLR,RV/SON,SPACEIRUNGE-KUTTA—VER 

FAHREN OHNE LOK. FEHLER«SPACE,RVOFF>- <061> 
110 PRINT"DGL AM PROGRAMMENDE EINGEBEN!" <099> 
120 INPUT"CDOWN>SCHRITTWEITE<2SPACE>”;H <053> 
130 INPUT"CDOWN >ANFANGSWERT «3SPACE > “ ; Y0 <133> 
140 INPUT"<DOWN>INTERV.GRENZEN";A,B <200> 
150 DEF FN R(X)=INT<X*lE4+.5)/lE4 <0B9> 
160 PRINT"<2DOWN,SPACE>X"," Y" <087> 
170 YK=Y0 <203> 
1B0 XK=A <194> 
190 GOSUB 250 <222> 
200 YL=YK+<H/6)»(L1+2*L2+2*L3+L4) <251> 
210 PRINT FN R<XK),YK <138> 
220 XK=XK+H:YK=YL <216> 
230 IF XK<=B+H THEN 190 <199> 
240 END <242> 
250 X=XKsY=YKiGOSUB 300:L1=F <107> 
260 X=XK+H/2sY=YK+(H/2)*Ll:GOSUB 300sL2=F <031> 
270 X=XK+H/2sY=YK+(H/2>«L2:GOSUB 300sL3=F <042> 
280 X=XK+H:Y=YK+H*L3:GOSUB 300sL4=F <213> 
290 RETURN <094> 
300 F=Y*X-2*X s REM < = > Y=... HJBL <038> 
310 RETURN <114> 


6 G4'®r 

DGL AM PROGRAMMENDE EINGEBEN! 
Schrittweite .2 
an-fangswert 1 

interv.grenzen 0 2 

x y 

0 1 
.2 
.4 
.6 
.8 
1 

1.2 

• 4 

1.6 
1.8 
2 


iaa:iea:« 


.979798667 
.916713007 
.802782992 
.622873585 
.351283323 
—.05441880B1 
-.664413992 
-1.59652193 
-3.0527736 
-5.38822485 


Listing 7. Näherungsweise Lösung einer gewöhnlichen 
Differentialgleichung nach dem Runge-Kutta Verfahren 


Vektorrechnung aus dem Effeff 

Mit Mathefix können fast alle Aufgaben aus dem Bereich 
der Vektorrechnung im dreidimensionalen Raum gelöst werden. 


Alle erdenklichen Schnittprobleme von einer Geraden mit 
einer Ebene, zwei Geraden oder zwei Ebenen sind ganz ein¬ 
fach zu lösen und benötigen nicht mehr seitenlange Berech¬ 
nungen. Auch Schnittwinkel, Projektion von Punkten und 
Umrechnungen von der Parameterform in die Normalenform 
der Ebene stellen kein Problem mehr dar. Jede Ausgabe 
erfolgt, sinnvoll auf zwei Stellen gerundet, auf dem Bild¬ 
schirm, und kann mit der Fl-Taste als Hardcopy auf jedem 
Drucker ausgegeben werden, der sich von Simons Basic 
ansprechen läßt. Das Programm arbeitet durchgehend mit 
HiRes-Grafik. 

Wichtige Eingabehinweise: 

Das Programm (Listing) benötigt Simons Basic. Um den 
C 64 ebenfalls auf Kleinschrift umzustellen, geben Sie im 
Direktmodus den Befehl »CSET 1«. Beachten Sie bitte den 
REM-Kommentar in Zeile 15. Ab Zeile 1020 steht am Anfang 
der Strings öfter ein kleines reverses »b«. Es entsteht durch 
die Tastenkombination »CTRL« + »B«. Das reverse »H« (zum 
Beispiel in Zeile 1441) ist die F7-Taste. 


Allgemeine Hinweise: 

In allen Menüs genügt das Drücken der gewünschten Taste 
um in das nachfolgende Menü zu kommen oder die Berech¬ 
nung zu beginnen. Auf die Aufforderung »WEITER MIT 
RETURN« und »ZURÜCK MIT RETURN« drücken Sie bitte die 
RETURN-Taste. Bei der Eingabe Ihrer Zahlenwerte schließen 
Sie bitte jede Zahleneingabe mit einem RETURN ab. 

Durch das Betätigen der Funktionstaste F7 innerhalb der 
Werteeingabe gelangen Sie jeweils in das vorherige Menü 
zurück. 

Bei »ZURÜCK MIT RETURN« können Sie durch drücken der 
SPACE-Taste dieselbe Rechnung mit anderen Zahlenwerten 
wiederholen. Jedesmal, wenn von Ihnen eine Eingabe ver¬ 
langt wird, können Sie mit der Funktionstaste Fl eine Hard¬ 
copy des aktuellen Bildschirminhaltes auf dem Drucker 
erzeugen. 

Im Programm wird unter »n« der Punkt mit den Koordinaten 
(X/Y/Z) verstanden. 

Das Programm enthält eine Anleitung in Kurzform. 



134 







C 64 + Simons Basic 


Naturwissenschaft 


Haup'tnenü 


-*Üc 


»Uehtore 


2 Punkte 
’ektor 
ektoren 
ktoren 


H II 

—r-»± Gerade 
h»2 Gerade 
^Oerade/P 


n 

unkt 


^Gerade/Ebene 

Ebenen-r-»Ebene/Punkt 

‘-»l Ebene-p- 


»Hornalenforn 
»Parane 


wterfor« 


Ebene/Ebene 
-»Ende 

‘-»Anleitung 


Die Gliederung des Programmes 


Einsprung¬ 

adressen: 


Übergabe¬ 

variablen: 


29000 


ax 


ux 

Punkte/Gerade 

g:x = 

ay 

az 

+A- 

uy 

uz 


29200 

Gerade/Gerade 


30000 

Punkt/Gerade 


30600 

Ebene/Ebene 


P(Pl/ P 2/p3) 

g: siehe oben 
h: siehe oben 
mit bx, by, bz und 
mit vx, vy, vz 

E: nx’X+nyy+nz-z=c 
P(xe/ye/ze) 


E: nl •x+n2-y+n3 , z=ce 
F: ml -x-l-m2-y+m3-z=ct 


Ausgabe: 


Abstand: FP 
x$ (p/s,'Winkel) 

Proj.: F(t1/f2/f3) 
Ebene: 

xl •x+x2 y+x3 z=x 

Abstand: FP 
xS siehe oben 
Schnittpunkt 
S(sx/sy/sz) 

Abstand: FP 
x$ siehe oben 
Proj.: F(gx/gy/gz) 

Abstand: EF 
x$ siehe oben 
Schnittgerade: 



sl 


S4 

g:x = 

s2 

+V 

s5 


s2 


s6 


30200 


E: siehe oben 


Gerade Ebene 1 gl 


ux 

g:x= g2 

+x- 

uy 

Iq3 


uz 


x$ siehe oben 

Schnittpunkt: 

S(gx/gy/gz) 


18000 Programmkopt erstellen 
18200 Titelbild erstellen 
19000 Eingaberoutine 
18500 Zurück mit RETURN 
18600 Get/Copy-Abfrage 
18700 Print-Using 
18550 Fehler 

28500 Weiter mit RETURN 
Variablenliste: 

Siehe Übergabevariablen bei den Unterprogrammen. 

Die Eingaben sind immer im Feld x() enthalten. 

Alle restlichen Variablen haben keine große Bedeutung, sie dienen nur 
als Laufvariablen oder zur Zwischenspeicherung von Ergebnissen. 


Verzeichnis der Unterprogramme 

Menüpunkt 1 

Nun erscheint ein Untermenü (Bedienung siehe Haupt¬ 
menü). 


.1 - 2 Punkte 

2 — 1 U e k t o r 

3 — 2 Uektoren 

-1 - 3 Vektoren 

5 — tl e n u e 




Untermenü 1 

Von Ihnen wird die Eingabe der Koordinaten von zwei 
Punkten erwartet. 

Der Computer berechnet: - den Vektor zwischen den bei¬ 
den Punkten. 


A ( i. 
B ( 


Sie 


die Punkte ein: 


/ 2 - 
/ 3- 


/ a- 

/ z_ 


3.00 \ 

3.00 
•4.00 / 


AB' = ( 

Berechnung: 2 Punkte 
Untermenü 2 

Von Ihnen wird die Eingabe eines Vektors erwartet. 

Der Computer berechnet: - den Winkel des Vektors gegen¬ 
über einer waagerechten 
Ebene 

- den Betrag des Vektors 

- den Einheitsvektor 

Geben Sie den U e k t o r eint 
0 


-a 


Hinkel C x y > 
I X 1 *! ‘ 


-45.00 G 


i.41 LE 




( O.OBt 

!:K 


Berechnung: 1 Vektor 
Untermenü 3 

Von Ihnen wird die Eingabe zweier Vektoren erwartet. 

Der Computer berechnet: - die Lage der Vektoren zuein¬ 
ander (Schnittwinkel?/parallel?/ 
senkrecht?) 

- die Fläche des Parallelo¬ 
gramms 

- das Skalarprodukt 

- das Vektorprodukt 

Geben Sie die Uektoren ein: 

if=(j: ) t- ( |i_ ) 

Schnittwinkel : 56.34 Grad 

F 1 a e c h e : 7.G8FE 


O o B 


5.01 


ft X B 


C V.B 01 
1.00 
-3.e 0 ; 


Berechnung: 2 Vektoren 
Untermenü 4 

Von Ihnen wird die Eingabe von 3 Vektoren erwartet. 

Der Computer berechnet: - den Wert der Determinante 

- das Volumen des Parallelflachs 

Geben Sie die UeKtoren ein: 

*(k- )r-(fe Mi;_ ) 

O = 3*46.00 Uolui">en = 34G.OB ME 

Berechnung: 3 Vektoren 

Untermenü 5 

Zurück zum Hauptmenü 


Menüpunkt 2 

Es erscheint ein Untermenü (Bedienung siehe Hauptmenü) 
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— 1 - 1 Gerade 

2 - 2 Gerade 

— 3 — Gerade/PunKt 

— 4 — Hauptnenue 

Untermenü 1 

Von Ihnen wird die Eingabe der Koordinaten von einem 
Aufhängepunkt und dem Richtungsvektor einer Geraden 
erwartet. 

Der Computer berechnet: - den Winkel zur XY-Ebene 

- die Spurpunkte der Geraden 

Geben Sie die Gerade ein: 

7 '(ii ) 4a (?= ) 


Minke) < x «# > = 17.72 Grad 

Berechnung: 1 Gerade Ausgabeseite 1 

Durch drücken von RETURN kommen Sie zu der zweiten 
Ausgabeseite. 

Spurpunkto : 



V Z ( 

O . 00 

/ 

o.uo 

/ 

-4.ÜÜ 

) 


X Z ( 

0 . Ö0 

/ 

0.00 

/ 

-4 . OO 

) 


X V ( 

0.5Y 

/ 

1.14 

/ 

0.00 

) 













Berechnung: 1 Gerade Ausgabeseite 2 

Untermenü 2 B4€R oni 

Von Ihnen wird die Eingabe von zwei Geraden erwartet: 

Der Computer berechnet: - die Lage der Geraden zueinan¬ 
der (Schnittwinkel?/parallel?/ 
senkrecht?/windschief?) 

- den Schnittpunkt (wenn mög¬ 
lich) 

Geben Sie die Genaden ein: 

) 

-(:■ )Mi: ) 

Berechnung: 2 Geraden Eingabeseite 

Durch RETURN kommen Sie zu der Ausgabeseite. 

Hinkel = Y4.50 Grad 

Die Genaden sind windschief 

Abstand: 2 1. 9 1 

Berechnung: 2 Geraden Ausgabeseite 

Untermenü 3 

Von Ihnen wird die Eingabe einer Geraden und eines 

Punktes erwartet. 

Der Computer berechnet: - die senkrechte Projektion des 

Punktes auf die eingegebene 
Ebene 

- Ebene durch die Gerade und 
den Punkt 

- Abstand des Punktes von der 
Geraden 

136 


Geben Sie die Gerade ein: 

7 -(Sl )MI: ) 

Geben Sie den Punkt ein. 

A ( J- / 2 - / 3- ) 

Abstand: 1.31 

Berechnung: Punkt/Gerade Eingabeseite 

Durch RETURN kommen Sie zu der Ausgabeseite. 

Die senkrechte Projektion: 
ft ( 2.1* / 2-29 / 2. -43 ) 


( 

> -p.ne • 


e . 00 


Berechnung: Punkt/Gerade Ausgabeseite 

Menüpunkt 4 

Nun erscheint ein Untermenü (Bedienung siehe Haupt¬ 
menü) 

- i - 
2 


Ebene/Punkt 
1 Ebene 


— 3 — HauptMenue 

Untermenü 1 

Von ihnen wird die Eingabe einer Ebene in Normalenform 
und eines Punktes erwartet. 

Der Computer berechnet: - die senkrechte Projektion des 

Punktes auf die eingegebene 
Ebene 

- den Abstand des Punktes von 
der Ebene 


!na»»i 


Ebene 


n Nornalenfor 


(!- ) 


§_ 


P (2- / 3_ /:i- ) 

Berechnung: Punkt/Ebene Eingabeseite 

Untermenü 2 

Es erscheint ein weiteres Untermenü. 

Hier können Sie auswählen in welcher Form Sie die Ebene 
eingeben wollen. 

Der Computer berechnet: - die jeweils andere Ebenenform 

- die Spurpunkte 

- die Spurgeraden mit Winkei¬ 
angaben 

— 1 — Nornalenforn 

— 2 — Para»eterfoPH 

— 3 - Mouptncnuo 

Berechnung: 1 Ebene Auswahl 

Ebene in Parameter form; 

—a I O.OOl / -2.001 ] O.O01 

Y s | O . DO ) 1 a f l.O0l + l.f -3.001 

A \ 1.00 ) a \ B.oo) D \ 2.88 | 

Berechnung: 1 Ebene Eingabe 2 

Menüpunkt 5 

Von Ihnen wird die Eingabe von zwei Ebenen in Normalen- 




ne.de 
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form erwartet. 

Der Computer berechnet: - die Schnittgerade 




- den Schnittwinkel 

E b e 

n e in 

Normal e n f o r h 

n** 

(l: 

) 

E b e 

n e in 

1 2 - 

Normal e n form 

n * 

( l- 

) =i - 


Berechnung: 2 Ebenen Eingabeseite 


Schnittgerade der* Ebenen: 



( 


0.731 
e . 50 | 
e . PS / 



3.001 
-6.00 
3.00 I 


Schnä-t-twinkei = 6.98 Grad 

Berechnung: 2 Ebenen Ausgabeseite 

(J. Riehn/T. Langer/og) 


1 gotol00 


3 : “ 

r- 




4 : " 

i 

•»»* mathefix *** 


5 : “ 

i 




6a" 

i 

ein Programm von 


7 : “ 

1 




B : " 

1 

juergen riehn 

4- thomas langer 


9 : •• 

1 

garlesstr.22 

neuhauserst.20 1 

10 : “ 

i 

8677 selbitz 

8677 selbitz 


11 : " 
12 :" 

1 

1 

08280/1063 

09280/5335 


1 -c - 




—J 


14 : 

15 rem X ist das Zeichen pi 
100 rem titelbild 

105 dimx ( 20 ) 

110 gosub 1 B 200 :fori=lto 2000 :next 
1000 rem hauptmenue 
1010 gosub19000 

1020 text85,50,“0- 1 - Vektoren",1,1,12 
1030 textB5,65,"3- 2 - Geraden" , 1,1,12 
1033 textB5,B0,"0- 3 - Gerade/Ebene" , 1,1,12 
1040 text85,95,"3- 4 - Ebene”,1,1,12 
1050 text85,110, “51- 5 - Ebene/Ebene" , 1,1,12 
1060 textB5,135,"3- 6 - E N D E",1,1,12 
1070 textB5,160,"B- 7 - flnleitung“,1,1,12 

1075 line23,110,55,89,1 

1076 lineS4,89,48,89,1 

1077 1ine54,89,54,95,1 

1078 text53,81,"5»”,l,l,9 

1079 textlB,113,”=B",l,l,9 

1080 gosub 18600 

1090 x=val<a#>ix=int<x)■ifx>7 or x<lthenl 0 B 0 
1100 on x gotol200,1300,1400,1500,1600,1700,18300 
1200 rem vektormenue 
1210 gosubl8000 

1220 text75,50,"3- 1-2 Punkte", 1 , 1,12 
1230 text75,70, “5V- 2 - 1 Vektor ", 1,1,12 

1240 text75,90,"n- 3-2 Vektoren",1,1,12 
1250 text75,110,"3- 4-3 Vektoren“,1,1,12 
1260 text75,145,"3- 5 - Menu e", 1,1,12 
1270 gosub 18600 

1280 x=val(a*>:x=int(x>:ifx>5 or x<l thenl270 
1290 on x gosub2000,2100,2200,2300,1000 
1300 rem geradenmenue 
1310 gosub18000 

1320 text75,60,"0- 1 - 1 Gerade",1,1,12 

1330 text75,80, “!J- 2-2 Gerade“, 1, 1 ,12 

1340 text75,100,"!l- 3 - Gerade/Punkt", 1 , 1,12 

1350 text75,140,“0- 4 - Hauptmenue",1,1,12 

1360 gosub18600:x-val<a$):x=int <x>:ifx<lorx>4thenl 

360 

1370 onxgoto2400,2500,2600,1000 

1400 rem e/g 

1401 gosub18000:textl,40,“SJGeben Sie die Gerade ei 

ni", 1 , 1,12 

1402 text40,65,“!iX=“,l,2,12 

1403 textl60,65,“ 3+a",1,2,12 

1404 text70,55,"SI(",l,5,9 

1405 text^H^,"!»''.!^^ 

1406 textl40,55, "SD , 1,5,9 
1417 text260,55,"ü) ",1,5,9 
1420 1ine39,61,51,61,1 


1430 1ine53,61,47,64,1 

1431 1ine53,61,47,SB,1 

1440 X =B5:i = 1:fory=5Sto55+22step11 

1441 gosub 19000: i f x ♦=" Sl" then 1000 

1442 x<i>=val<x*>:i=i+l:next 

1450 x =205:i=4: f ory=55toS5+22step11 

1451 gosub 19000: i ■* x *="H"then1000 

1452 x <i)=val Cx*) :i=i+l:next 

1453 if x (4) =0andx (5) =0andx (6) =0t hen gosub 1B550: gosu 
b18600:gosub18560:gotol400 

1454 textl,100,"«Ebene in Normalenfarm:",1,1,12 

1455 text40,140, "S)< ",1,5,9: textl 10, 140," 3) “,1,5,9: 
tex 1130,155," = ”,1,1,9 

1456 text10,155,"3n*",1,1,9 

1457 x =55 : i =7: f or y=90+50tO90+80S t ep 15 

1458 gosubl9000: if x*=" Sl"thenl000 

1459 x (i >=val <x*> : i=i + l :next 

1466 ifx(7)=0andx(8>=0andx(9)=0thengosub18550:gosu 
b18600:gosub18560:gotol400 

1467 x=140:y=155:gosub19000:x(10)=val<x*> 

1468 gosub28500:gosub18600:gosub18000 

1470 gl=x(1):g2=x(2):g3=x <3>:ux=x(4):uy=x(5):uz=x( 
6):nl=x(7):n2=x(8):n3=x <9) 

1471 c=x(10) 

1472 gasub30200:g*=x*:gosub18700:f*=x*:ifg*="e"org 
*="p"then1480 

— 1473 text8,50,“=! S ( / / >",1,2,12 

1474 text10,100,"3Minkel=",1,1,12 

1475 text170,100,"3Grad",1,1,12 

1476 x=gx-: gosubl8700: text60,53,x*, 1,1,9 

1477 x =gy:gosub18700:tex 160+85,53,x *,1,1,9 

1478 x=gz:gosub18700:text60+2*85,53,x*,1,1,9 

1479 text110,100,f«,l,l,9:gotol498 

1480 text30,140,"Abstand:",1,1,10 

1481 x=sp:gosub18700:textl11,140,x*,1,1,9 

1482 text49,160,"^Gerade parallel zur Ebene",1,1,9 

1498 gosub 18500: gosub 18600: if a4=" "thenl400 

1499 gotol000 

1500 rem ebenen 
1510 gosub18000 

1520 text75,B0,"3- 1 - Ebene/Punkt",1,1,12 
1530 text75,100,"3- 2 - 1 Ebene",1,1,12 

1540 text75,140,"3- 3 - Hauptmenue",1,1,12 
1550 ~ubl8600:x=int <val (a*>) 
rÖ70 OIIK got02700,2800 , 1000 

1600 rem ebene/ebene 

1601 gosub18000:op=l 

1602 form=-20to40step60 

1603 ifro=40thenop=5 

1610 textl,40+30+m,"SEbene in Normalenform:",l,1,1 

3 

1611 tex t40,90+m, "=><”, 1,5,9: textl 10,90+m,"S» ",1,5, 
9:text130,105+m,“=",1,1,9 

1612 text10,105+m,"sti*",1,1,9 

1613 x =55:l=op:fory=90+mto90+28+mstep14 

1614 gosub 19000: i f x *= " :i" then 1000 

1615 x <i)=val (x*> :i=i+l:next 

1616 ifx(op)=0andx(op + l)=0andx <2+op>=0thengosub185 
50:gosub18600:gosub18560:gotol 

600 

1617 x=140:y=105+m:gosub19000:x <3+op)=val(x*> 

1618 nextm 

1619 nl=x <1>: n2=x(2):n3=x(3>:ce=x <4>:ml=x <5>:m2=x < 
6>:m3=x<7>:cf=x <8>:gosub30600 

1620 if x »="u"thengosub17500:gosub18600:goto1000 

1621 g*=x *:gosub18700:r?=x£: x=ef:gosub18700:ef *=x * 

1650 gosub2B500:gosub18600:gosub18000:if g*="p"then 
1680 

1651 textl,40," SSchnittgerade der Ebenen:",1,1,12 

1652 text40,65,"3X=",1,2,12 

1654 text70,55,"SU",1,5,9 

1655 text190,55,"0<",1,5,9 

1656 textl40,55,"3>",1,5,9 

1657 text260,55,"3>",1,5,9 

1658 line39,61,51,61,1:text160,65,"0+a",1,2,12 

1660 1ine53,61,47,64,1 

1661 1ine53,61,47,58,1 

1671 x =s1:gosub18700:tex t85,55,x *,1,1,9 

1672 x=s2:gosub1B700:text85,66,x$,1,1,9 

1673 x =s3:gosub18700:tex tB5,7 7,x *,1,1,9 

1674 x =s4:gosub1B700:tex t205,55,x*,1,1,9 

1675 x =s5:gosub18700:text205,66,x*,1,1,9 

1676 x=s6:gosub18700:text205,77,x*,1,1,9 

1680 ifg*=“p"then text1,100,“:Cie Ebenen sind para 

1 lei '“, 1 , 1,12 

1681 ifg*="s"then text1,100,"iBie Ebenen sind senk 
recht ! ",1,1,12 

Listing zu »Mathefix«. Geben Sie es bitte mit 
geladenem und gestartetem Simons Basic ein. 





















. 


tOyÜC 













Naturwissenschaft 


C 64 + Simons Basic 


1602 ifg*<>"s"andg*<>“p”then textl0,120,“SBchnittw 
inkel =“,1,1,12 

1683 i-f g*O u s“andg*< >“p“thentext245, 120, ”SGrad" , 1, 
1,12:textIBS,120,r*,1,1,9 

1684 ifg*="p"andef<>0thentext30,140,"ÜAbstand:“,1, 

1,10:text123,140,ef*,1,1,9 

1697 gosub1B500:gosub18600:ifaf=" "thenl600 

1698 gotol000 

1700 print"«"; "SEEtEEEEl auf Wiedersehen ! “ 

1710 print“ Sjuergen riehn" 

1720 print“ thomas langer" 

1730 end 

2000 rem 2 punkte 

2001 gosub18000 

2002 textl,40,"3Geben Bie die Punkte ein:“,1,1,12 

2010 textB,50, "0 A < / /. >",1,2,12 

2020 texte, 70 ,"0 B < / / >“,1,2,12 

2021 y=53:i=l:forx=60to60+2*85step85 

2022 gasub 19000: i f x *=" !l" then 1200 

2023 x <i)=val<x*> 

2024 l=i+l:next 

2025 y=74:i=l 

2026 forx=60to60+2*85stepSS 

2027 gasub 19000: ifx*=" Sl"then 1200 

2028 y(i)=val(x*> 

2029 i=i+l:next 

2030 text75,140,”0AB =",1,2,10 

2031 textl27,130,"0<“,1,5,1 

2032 text207,130,"0>",1,5,1 
2040 line74,135,74+22,135,1 

2045 line96,136,92,139,1 

2046 line96,136,92,133,1 

2060 al=x(1) :a2=x(2):a3=x <3>:bl=y(1>:b2=y(2)tb3=y( 

3> 

2070 gosub24600 

2071 x=x1:gosub18700:text143,132,x4,1,1,9 

2072 x=x2:gosub18700:text143,132+11,xt,1,1,9 

2073 x=x3:gosubl8700:tex1143,132+22, x », 1,1,9 

2090 gosub1B500 

2091 gosub18600 

2092 if a*=“ “then2000 

2093 goto1200 

2100 rem 1 vektor 

2101 gasubl8000 r>•>6R OllL 

2102 textl,40,"TEeben Bie den Vektor ein:",1,1,13 

2103 text100,65,"0X=",1,2,12 

2104 text130,55," 0(",1,5,9:text60,147,"0( ",1,5,9 

2105 text200,55, ”!» ", 1 ,5,9: text 130,147 ,“ 0) ",1,5,9 

2106 text 10,100, “Winkel (xy > =" , 1,1,12 

2107 text10,125,"01X1=",1,1,12 

2108 text22,160, "=>X =",1,1,12 

2110 line99,61,111,61,1: text 125,125,” SLE",1,1,12 

2111 linell3,61,107,64,1 

2112 linell3,61,107,58,1 

2113 line21,121,33,121,1 

2114 line36,121,29,118,1 

2115 line36,121,29,124,1 

2116 line21,155,33,155,1 

2117 line36,155,29,152,1 

2118 line36,155,29,158,1 

2119 text33,155,"-ta“,1,1,9 

2120 text200,100,"SGrad",1,1,12 

2121 x=145:i=1:fory=55to55+22stepl1 

2122 gosub 19000: i f x 4=" 51" then 1200 

2123 x(i>=val<x*>:i=i+l:next 

2124 ifabs(x <1> )+abs(x <2> >+abs(x (3) > =0thengosubl8S 
50:gosub18600:gosub18560:goto2 100 

2125 al=x(1>:a2=x(2):a3=x(3>: 

2126 bl=0:b2=0:b3=l:gosub25090:gosub24500:x=abs(90 
-x):gosub18700 

2127 text145,100,x4,1,1,9 

2128 gosub25020:rem betrag 

2129 x=a:gosub18700:text60,125,x*,1,1,9 

2130 gosub25000:rem einheitsvektor 

2131 x=x1:gosub18700:text75,147,x*.1,1,9 

2132 x=x2:gosub18700:text75,158,x»,1,1,9 

2133 x=x3:gosub18700:text75,169,x*,1,1,9 

2134 gosubl8500:gosubl8600 

2135 ifa*=" "then2100 
2190 goto1200 

2200 rem 2 Vektoren 

2201 gosublB000:textl,40,"«Geben Sie die Vektoren 
ein:",1,1,12 

2202 text40,65,"=»=",1,2,12 

2203 textl60,65,1,2,12 

2204 text70,55,"SK",1,5,9 

2205 text 190,55, "»(",1,5,9 

2206 textl40,55, "«>", 1,5,9 

2207 text260,55,"!» ",1,5,9 

2213 textl2,150,"«A o B=",1,1,U 


2215 textl72,150," «A x B=",1,1,11 

2216 text245,137,"»(",1,5,9:text305,137,"!» ”,1,5,9 
2220 line39,61,51,61,1 

2230 1ine53,61,47,64,1 

2231 1ine53,61,47,58,1 

2232 linel20+39,61,51+120,61,1 

2233 linel20+53,61,47+120,64,1 

2234 1ine120+53,61,47+120,58,1:a=45 

2235 1inel1,146,22,146,1:linell+a,146,22+a,146,1 

2236 1ine24,146,21,143,1:1ine24+a,146,21+a,143,1 

2237 line24,146,21,149,l:line24+a,146,21+a,149,l 

2238 if a=45 theßa=160:goto2235 

2239 if a=160 thena=205:goto2235 

2240 x =85:i = 1:fory=55to55+22step11 

2241 gosubl9000: if x*="!l“then 1200 

2242 x(i>=val(x*>:i=i+l:next 

2243 ifx(1> =0andx(2>=0andx <3>=0thengosubl8550:gosu 
b 18600: gosub 18560: goto2200 

2250 x=205:i=4:fory=55to55+22stepll 

2251 gosub 19000: i f x *» " !l" then 1200 

2252 x (i>=val <x*> :i=i+l:next 

2253 ifx <4)=0andx <5>=0andx(6>=0thengosubl8550:gosu 
b18600:gosub18560:goto2200 

2260 al=x(1):a2=x(2):a3=x(3):bl=x(4>:b2=x(5):b3=x< 
6) 

2261 gosub25160 

2262 ifx*="p“then:text10,100,"!Bie Vektoren sind p 
aral1el *",1,1,11:goto2290 

2263 ifx»="s"then:text10,100,"»Die Vektoren sind s 
enkrecht !",1,1,10:goto2290 

2264 text10,100," »Schnittwinkel:“,1,1,12 

2265 text245,100,“»Grad“,1,1,12 

2268 x=val(x*>:gosubl8700:textl80,100,x»,1,1,9 

2290 gosub25050:gosub18700:text80,150,x*,1,1,9:tex 
tl0,115,"»Flaeche:",1,1,12 

2291 gosub25110:x=x1:gosub18700 

2292 text250,137,x*,l,l,9:textl70,115,"!FE",l,l,12 

2293 x=x2:gosub18700:text250,14B,x*,1,1,9 

2294 x=x3:gosub18700:text250,159,x*,1,1,9 

2295 gosub25140:x=a:gosub18700 

2296 textll0,115,x*,l,l,9 

2297 gosub18500:gosub18600:ifa$=" "then2200 

2298 goto1200 

?ur i rem 3 Vektoren 

2301 gosubl8000:text1,40,"»Geben Sie die Vektoren 
ein:",1,1,12 

2302 text5,65,"0A=",1,2,12 

2303 textl 15,65, "S1B=" ,1,2,12 

2304 text35,55,"!>(",1,5,9 

2305 textl42,55,"!>(",1,5,9 

2306 textl05,55,"!» ",1,5,9 

2307 text212,55,"!» ",1,5,9 

2308 text223,65,“0C=“,1,2,12 

2309 text243,55, “!><" , 1,5,9 

2310 text313,55,"!» ",1,5,9:a=0 

2311 line4+a,61,16+a,61,1 

2312 linel9+a,61,18+a-4,64,l 

2313 linel9+a,61,18+a—4,58,1 

2314 if a=0thena=l10:goto2311 

2315 if a=l10 thena=220:goto2311 

2340 x=50:i=l:fory=55to55+22stepl1 

2341 gosubl9000: if x*=”:i"then 1200 

2342 x (i > =val <x*):i=i + l: next 

2343 ifx(l>=0andx <2>=0andx(3>=0thengosublB550:gosu 
blB600:gosub18560:goto2300 

2350 x=157:i=4:fory=55to55+22stepll 

2351 gosub 19000: if x*="!l"then 1200 

2352 x <i> =val<x*>:i=i + l:next 

2353 ifx(4)=0andx(5>=0andx(6>=0thengosub18550:gosu 
b18600:gosub1B560:goto2300 

2360 x =258:i=7:f ory=55to55+22step11 

2361 gosub!9000: if x»="SI"thenl200 

2362 x (i ) =val <x#> : i=i + l :next 

2363 ifx(7> =0andx(8>=0andx(9> =0thengosub18550:gosu 
b18600:gosub18560:goto2300 

2364 gosub25300 

2365 ifd=0then:text3,120,"!®ie Vektoren sind komla 
nar !",1,1,11 

2366 if d< >0thentext7,120, " !H)= Volumen= 

VE",1,1,11 

2367 ifd< >0thenx=d:gosub18700:text38,120,x*,1,1,9 

2368 ifd<>0thenx=abs Cd):gosubl8700 

2369 ifd<>0thentext221,120,x»,1,1,9 

2397 gosublB500;gosubl8600:ifa*=“ u then2300 

2398 gotol200 

2400 rem 1 gerade 

2401 gosub18000:text1,40,"3Geben Sie die Berade ei 
n:",1,1,12 

2402 text40,65,"ÜX=",l,2,12 

2403 tex1160,65,"!Ha",1,2,12 
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2404 text70,55,"Sl(",l,5,9 

2405 textl90,55,“S(“,l,5,9 

2406 textl40,55,“Si>",l,5,9 

2407 text260,55,“5l>",l,5,9 

2408 xl*=“":x2*="“:x3*="" 

2420 line39,61,51,61,l 

2430 line53,61,47,64,l 

2431 line53,61,47,58,1 

2440 x=B5:i=l:fory=55to55+22stepll 

2441 gosubl9000:ifx*=":i"thenl300 

2442 x (i >=val (x*>:i=i+l:next 

2450 x=205:i=4:fory=55to55+22stepl1 

2451 gosubl9000: if x*="Sl“then 1300 

2452 x (i ) =val <x*):i=i+l: next 

2453 i-fx (4) =0andx (5) =0andx (6)=0thengosubl8550: gosu 
bl8600:gosub18560:goto2400 

2455 gosub28500:nl=0:n2=0:n3=l:c=0:gl=x(1»:g2=x(2) 
:g3=x <3):ux=x(4):uy=x(5)tuz=x(6) 

2456 gosub30200:gosub1B700:tex 1138,120,x *,1,1,9:te 
xtl 0 , 120 , u sWinkel (xy) =" , 1 , 1,12 

2457 text200,120," SErad",1,1,12:gosub18600 

2458 ax=x(1):ay=x<21:az=x <3):ux=x(4):uy=x(5):uz=x( 

6):gosub 28600 

2459 fori=lto9xx=z(i):gosub18700:z* <i)=x*:next 

2460 gosub18000 

2461 textl0,40,"0Spurpunkte: ",1,1,12 

2462 ifxl*O"n"then:text8,60,"S1 Y2 < / / 

)”,1,2,12 

2463 ifx2*O“n"then:text8,90,"=l XZ< / / 

>”,1,2,12 

2464 ifx3*O"n"then:text8,120,"5) XY ( / / 

>",1,2,12 

2465 ifx1S<>“n”thenfori=0to2:text53+i*85,63,z* < i+1 
>,1,1,9:next 

2466 ifx2*<>"n"thenfori=0to2:text53+i*85,93,z*(i*4 
>,1,1,9:next 

2467 if x 3*< >"n"thenf ori=0to2:tex 153+i*85,123,z#(i+ 
7>,1,1,9:next 

2497 gosub18500:gosub18600:ifa*=" "then2400 

2498 gotol300 

2500 rem 2 gerade 

2501 gosublB000:text1,40,"3Geben Sie die Geraden e 
in:", 1 , 1 ,12:g*=“" 

2502 text40,65,”SX=",1,2,12 S4€R 

2503 text160,65,"0+a",1,2,12 

2504 text70,55,"0<“,1,5,9 

2505 text190,55,"0(",1,5,9 

2506 text140,55,”5» ",1,5,9 

2507 tex t260,55 , " 0) " , 1,5,9 

2512 text40,125,"ÜY=",l,2,12 

2513 text 160,125, " 0+b" ,1,2,12 

2514 text70,115,"S>(“,l,5,9 

2515 text190,115,"H(",1,5,9 

2516 textl40,115, "3> ",1,5,9 

2517 text260,115," 3) ",1,5,9 
2520 1ine39,61,51,61,1 

2530 1ine53,61,47,64,1 

2531 line53,61,47,58,1 

2532 line39,121,51,121,1 

2533 line53,121,47,124,1 

2534 line53,121,47,118,1 

2540 x=85:i=l:fory=55to55+22step11 

2541 gosub 19000: i f x *= " :i" t hen 1300 

2542 x<i>=val<x*>:i=i+l:next 

2550 x=205:i=4:fory=55to55+22stepl1 

2551 gosubl9000: ifx*="5l”thenl300 

2552 x<i>=val<x*>:i=i+l:next 

2553 ifx <4)=0andx(5>=0andx(6)=0thengosub18550:gosu 
b18600:gosub18560:goto2500 

2560 x=85:i=7:fory=l15tol15+22stepl1 

2561 gosub 19000: i f x *= " Sl" then 1300 

2562 x (i > =val (x*>: i=i + l:next 

2570 x=205:i=10:fory=l15tol15+22step11 

2571 gosub 19000: if x*="SI"thenl300 

2572 x (i )=val (x*>: i=i + l :next 

2573 ifx (10) =0and;< 111) =0andx < 12) =0thengosub 18550: g 
osub18600:gosub18560:goto2S00 

2575 gosub28500 

2580 gosub18600 

2581 gosub18000 

2583 text10,100,“^Winkel(xy>=“,1,1,12 

2584 text200,100,"aBrad",l,1,12 

2585 ax=x <1>:ay=x(2) :az=x (3>:ux-x <4>:uy=x(5):uz=x < 

6) 

2586 bx=x <7>:by=x <8>:bz=x(9):vx=x(10>:vy=x(11>:vz = 
x <12>:gosub29200:a=t:a*=g* 

2587 ifa<>0anda*< >"m" thentext8,50,"3 S ( / 

/ >",1,2,12 

2588 x=sx:gosub18700:sx*=x*:x=sy:gosub18700:sy*=x* 

:x=sz:gosub18700:sz*=x* 


2589 ifa<>0anda*O"w“thentext60,53,sx»,l,1,9:text1 
45,53,sy*,1,1,9 

2590 ifa<>0anda*<>"w"thentext230,53,sz *,1,1,9 

2591 x=t:gosub18700:text140,100,x*,1,1,9 

2592 ifa*="p"thentextl0,140, " SIDie Geraden sind par 
allei",1,1,9 

2593 if a*”"w"thentextl0,140, •• ®ie Geraden sind Min 
dschief”,1,1,9 

2594 ifa*="s"thentextl0,140,"3Die Geraden sind sen 
krecht",1,1,9 

2595 if a*="w"thentex110,160, " ^Abstand: “ , 1,1,9:x=f p 
:gosubl8700:text100,160,x*,1,1 

,12 

2596 ifa*="p"thentext10,160,"ffWbstand:",1,1,9:x=fp 
:gosub18700:textl00,l60,x$,1,1 

.12 

2597 gosublB500:gosubl8600:ifa*=" "then2500 

2598 goto1300 

2600 rem gerade + punkt 

2601 gosub18000:text1,40,"BGeben Sie die Gerade ei 
n:", 1,1 ,12 

2602 text40,65, "3X=" , 1 ,2,12 

2603 tex1160,65, "SM-a" ,1,2,12 

2604 text70,55,"=><",1,5,9 

2605 textl90,55,"0<",1,5,92606 textl40,55,“ 0) ",1,5 

,9 

2607 text260,55,"0)",1,5,9 
2620 line39,61,51,61,1 

2630 line53,61,47,64,1 

2631 1ine53,61,47,58,1 

2632 text1,100,"0Geben Sie den Punkt ein:",1,1,13 

2633 textB,120,“0 A ( / / >“,1,2,12 

2640 x=85:i=l:fory=55to55+22stepll 

264 1 gosub 1 9000: i f x *= - Sl" t hen 1 300 

2642 X <i >=val <x*> :i=i + l;next 

2650 x=205:i=4:fory=55to55*22step11 

2651 gosub 19000: i f x *= " Sl" t hen 1300 

2652 x <i > =val <x*>: i=i + l :next 

2653 ifx(4)=0andx(5>=0andx(6)=0thengosub18550:gosu 
b18600:gosub18560:goto2600 

2671 y=123:i=7:forx=60to60+2*85stepB5 

2672 gosub 19000: i fx *= " 51“ t hen 1300 

2673 x <i )—val (x*> 
qi^ 674(J~, l:next 

2680 texz30,140,"0Abstand:",1,1,10 

2681 ax=x(1>:ay-x(2):az=x <3>:ux=x(4):uy=x(5>:uz=x( 
6>:pl=x(7):p2=x(8):p3=x <9> 

2682 gosub29000:a=x 

2683 x=fp:gosub18700:textl45,140,x*,1,1,9 

2684 gosub28500:gosub18600:gosub18000 

2685 textl,40,"ÜDie senkrechte Projektion:“,1,1,12 

2686 text8,50,”Sl A ( / / >",1,2,12 

2687 x=f1:gosub18700:text60,53,x*,1,1,9 

2688 x =f2:gosub18700:t ex 160+85,53,x*,1,1,9 

2689 x=f3:gosub18700:text60+2*85,53,x*,l,1,9:iffp= 
0 thenx 1 = 0 :x 2 = 0 :x3=0 

2690 x=x1:gosub18700:text55,90,x*,1,1,9 

2691 x=x2:gosub18700:text55,90+15,x*,1,1,9 

2692 x=x3:gosub18700:text55,90+15*2,x*,1,1,9 

2693 text40,90,"0(",l,5,9:textl10,90,"ü>“,1,5,9tte 
xtl0,105, "!»i*", 1,1, 9 

2694 textl30, 105, "S>=",1,1,9 

2695 x=a:gosub18700:textl40,105,x*,1,1,9 

2697 gosub18500:gosub18600:ifa**" "then2600 

2698 goto1300 

2700 rem ebene/punkt 

2701 gosub18000 

2702 tex11,40," -Ebene in Normalenfarm:",1,1,12 

2703 textB,120,"0 P < / / >",1,2,12 

2704 text40,70,"3<",1,5,9:text110,70,”3>",l,5,9:te 
X1130,85,"0=",1,1,9 

2705 text10,85," üi*",1,1,9 

2706 x=55:i=1:fory=70to70+28stepl4 

2707 gosub 19000: i f x *-" Sl" then 1500 

2708 x (i )=val (x»> :i=i + l:next 

2709 x=140:i=4:y=B5 

2710 gosub 19000: i f x *=" Sl“ then 1500 

2711 x <i ) =val Cx*> 

2712 ifx <l>=0andx(2>=0andx(3)=0thengasub18550:gosu 
b18600:gosub18560:goto2700 

2713 y=123:i=5:forx=55to55+2*85stepB5 

2714 gosub 19000: ifx*="SI"then 1500 

2715 x<i>=val<x*>:i-i+l:next 

2720 nx=x(1>:ny=x<2>:nz=x(3):c=x(4>:xe=x(5):ye=x <6 
>:ze=x(7 >:gosub30000 

2750 gosub2S500:gosub18600:gosub18000 


»Mathefix« (Fortsetzung) 















Naturwissenschaft 


C 64 + Simons Basic 


2751 textl ,40, "sProjektion von fl auf Ebenes 1,1,9 

2752 text8,50, "S) p ( / / »“,1,2,12 

2753 x=gx:gosub18700:text60,53,x$,1,1,9 

2754 x =gy:gosub18700s tex 160+85,53,x *,1,1,9 

2756 x=gz: gosub18700stext60+2*B5,53,x*,1,1,9 

2757 text30,140," SIAbstand: ”,1,1,10 

2758 x=d:gosub18700:textl08,140,x*,1,1,9 

2798 gosub18500sgosub18600:i*a*=" "then2700 

2799 goto1500 

2800 rem ebenemenue 
2810 gosub18000 

2820 text65,70,"S- 1 - Normalen*orm”,1,1,12 
2830 text65,90,"0- 2 - Parameterform“,1,1,12 
2840 text65,130,"0- 3 - Hauptmenue" , 1,1,12 
2850 gosublB600:x=int(val<a#)) 

2860 i* x >3 or x<l then 2850 
2870 on x goto3300,3100,1000 

2995 x=*p:gosubl8700:textl00,160,x»,1,1,9 

2996 text100,160,"üflbstand:",1,1,9 

3100 rem parametertarmeingabe 

3101 gosub18000:textl,40,"SEbene in Parameter*orm: 
",1,1,12 

3102 text5,65," !5X=" , 1 ,2, 12: textl 15,65," ü+a" ,1,2,12 
:text35,55,"ü<",1,5,9 

3103 tex tl 42,55, "ü( ",1,5,9s text 105,55, "SD", 1,5,9: t 
ex t212,55, " S» ",1,5,9 

3104 text223,65,"ü+b",1,2,12:text243,55,“0(",1,5,9 
: text 313,55, "!» ",1,5,9 

3105 line4,61,16,61,1 

3106 linel9,61,18-4,64,1 

3107 linel9,61,18-4,58,1 

3108 x=50:i=ls *ory=55to55+22stepl1 

3109 gosub 19000s i f x*= “ II" then2800 

3110 x <i»=val <x*> :i=i+l:next 

3111 x=157:i=4:*ory=55to55+22stepl1 

3112 gosub 19000: i*x*=":i"then2800 

3113 x (i)=val (xt) :i=i+l:next 

3114 i*x <4)=0andx (5)=0andx(6)=0thengosubl8550:gosu 
b18600:gosub1B560:goto3100 

3115 x =258: i =7: * or y=55to55+22s tep 11 

3116 gosubl9000: i*x*=":i“then2B00 

3117 x <i >=val (xS) :i=i + l:next 

3118 i*x <7)=0andx(8)=0andx(9)=0thengosub18550:gosu 

b 18600: gosub 18560:goto3100 64ER OPU 

3150 gosub28500: gosub 18600: gosub 1B000: tex11,40, “ SIE 
bene in Normalenform:”,1,1,12 

3151 text40,90,"0<",1,5,9:textl10,90,"!» ",l,5,9ste 
xt130,105,"=",1,1,9 

3152 textl0,105,"üi*",1,1,9 

3153 e1=x(1):e2=x(2):e3=x(3):e4=x <4):e5=x(5):e6=x( 

6» se7=x(7>:e8=x(8):e9=x <9> 

3154 gosub30400 

3160 x=nl:gosub18700:text55,90,x*,1,1,9 

3161 x=n2:gosub18700:text55,90+15,x4,1,1,9 

3162 x=n3:gosub18700:text55,90+30,x*,1,1,9 

3163 x=c:gosub18700:text140,105,x*.1,1,9 

3164 x <l»=nl:x C2»=n2:x(3>=n3:x(4)=c 

3198 gosub28500:gosub18600 

3199 goto5000 

3300 rem normalentormeingabe 

3301 gosub18000 

3310 textl,40,"SEbene in Normalen*orms",1,1,12 

3311 text40,90, "SJ< ",1,5,9: textl 10,90,"!» ",1,5,9: te 
xtl30,105,"=",1,1,9 

3312 text10,105," th*",1,1,9 

3313 x=55si=l:*ory=90to90+30stepl5 

3314 gosub 19000: i * x *=" Sl” then2800 

3315 x (i)=val <x*> si=i + l:next 

3316 ifx(l)=0andx <2)=0andx(3)=0thengosub18550:gosu 
b18600:gosub18560:goto3300 

3317 x=140:y-105:gosubl9000:x(4>=val<x*> 

3318 gosub28500:gosub18600:gosub18000 

3319 nl = l:n2=0:n3=0sce=0:ml=x <1>:m2=x(2):m3=x(3):c 
*=x(4):gosub30600 

3350 textl,40,"SEbene in Parameter*orm:",1,1,12 

3351 text5,65,"ÜX=",1,2,12:text115,65," 0+a",1,2,12 
:text35,55,"ü(",1,5,9 

3352 text 142,55,“SK“,1,5,9:text 105,55,"S»",l,5,9:t 
ext212,55, "!» ",1,5,9 

3353 text223,65, "ü+b" ,1,2,12: text243,55, “S<" ,1,5,9 
:text313,55,“!» ",1,5,9 

3355 1ine4,61,16,61,1 

3356 linel9,61,18-4,64,1 

3357 linel9,61,18-4,58,1 

3360 x=*1:gosub18700:text50,55,x*,1,1,9 

3361 x =f 2:gosub18700:tex t50,66,x $,1,1,9 

3362 x=-f3:gosublB700:text50,77,x*,l,l,9 

3363 x=f4:gosubl8700:text157,55,x*,1,1,9 

3364 x=f5:gosub18700:text157,66,xS,1,1,9 

3365 x=*6:gosub18700:text157,77,x$,1,1,9 


3366 x=*7sgosub18700:text25B,55,x$,1,1,9 

3367 x =f8:gosub18700:tex1258,66,x*,1,1,9 

3368 x =* 9:gosub18700:text258,77,x*,1,1,9 
3398 gosub28500:gosub18600:goto5000 

5000 rem zu ebene 1 

5001 gosub18000:gosub20000 

5002 textl0,40,"SEpurpunkte:",1,1,12 

5003 ifx14< >"n"then;textB,60,"ü X ( / / 

>",1,2,12 

5004 i*x2*<>“n"then:texte,90,"0 V ( / / 

>M,2,12 

5005 i*x3*O"n"then:text8,120,"!) Z ( / / 

»",1,2,12 

5006 i* x1*< >"n"thenfori=0to2:tex t53+i»85,63,z * <i+1 
),1,1,9:next 

5007 i*x2#<>"n"then*ori=0to2:text53+i*85,93,z* <i+4 
>,1,1,9:next 

5008 ifx3*O“n"then*ori=0to2:text53+i*85,123,z$(i+ 
7),1,1,9:next 

5009 gosub28500:gosub18600:gosub18000 

5020 ifxl*="n"andx2*="n"then5040 

5021 textl,40,"!Spurgerade in xy-Ebene;",1,l,12 

5022 text 40,65, "5»X=",1,2,12 

5023 textl60,65,"!Ha",l,2,12 

5024 text70,55,"ÜC",1,5,9 

5025 textl90,55," SH ",1,5,9 

5026 textl40,55, “!» " , 1,5,9 

5027 text260,55,"0>",1,5,9 

5030 1ine39,61,51,61,1 

5031 1ine53,61,47,64,1 

5032 Iine53,61,47,58,l:gosub20500 

5033 gosub28500:gosub18600:gosub18000 

5040 i*xl*="n"andx3S="n”then5053 

5041 tex11,40,"-Spurgerade in xz—Ebene:",1,1,12 

5042 text40,65,"üX=",l,2,12 

5043 textl60,65, "!»+a" ,1,2,12 

5044 text70,55,"!)<",l,5,9 

5045 textl90,55,"ü(",1,5,9 

5046 textl40,55, "!»)", 1,5,9 

5047 text260,55,"!» ",1,5,9 

5050 line39,61,51,61,1 

5051 line53,61,47,64,1 

5052 1ine53,61,47,58,1:gosub20600 
i*x2*="n"andx3*="n"then5110 

5060 gosub28500:gosub18600:gosub18000 

5061 text1,40,"0Spurgerade in yz-Ebene:“,1,1,12 

5062 text40,65,“UX=",1,2,12 

5063 textl60,65,“!Ha",1,2,12 

5064 text70,55, “!»<“,1,5,9 

5065 textl90,55,"!»(",1,5,9 

5066 text140,55,"0)", 1,5,9 

5067 text260,55,“!»”,l,5,9 

5070 line39,61,51,61,1 

5071 1ineS3,61,47,64,1 

5072 1ine53,61,47,5B,1:gosub20700 
5110 gosubl8500:gosub1B600 

5120 goto2800 
17500 rem zurueck 

17510 text23,191,"ü nicht loesbar '",1,1,15 
17515 line0,187,320,187,1 
17520 return 

1S000 hires5,1: tex t2B,8, "8 «»« liATHEF IX «**",1,2,1 
5 

18010 1ine0,30,320,30,1 
18100 return 

18200 rem titelbild erstellen 

18210 hires5,1 

18220 text20,5, '•!!»«» Mathefix **«",1,2,16 
18230 textl35,S0,"üvon",l,l,12 
18240 text107,75,"ÜJ.Riehn",1,3,16 
10250 tex t92,130,"üTh.Langer",1,3,16 
18260 text 135,111," ÜLind" ,1,1,12 

18270 textl19,173,"3im Juni 1985",1,1,12 

18271 rem koordinatensystem 

18272 line32,15B,32,178,1 

18273 line32,178,52,178,1 

18274 line32,178,22,188,1 

18275 text28,149,"üz",1,1,9 

18276 text 18,190, "!t< ",1,1,9 

18277 text56,174, "S»y",1,1,9 

18280 rem p*eile 

18281 line32,158,29,161,1 

18282 line32,158,35,161,1 
1B283 line52,17B,49,175,1 

18284 line52,178,49,181,1 

18285 line22,188,26,188,1 

18286 line22,188,22,184,1 
18290 return 

18299 rem anleitung 

18300 gosub18000:text95,40,"ÜANLEITUNB:",1,1,16 
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C 64 + Simons Basic 


Naturwissenschaft 


18313 text2,55," =Wit diesem Programm koennen fast" 
,1,1,10 

1B314 text2,65," 3alle Aufgaben aus dem Bereich der 
".1.1,9 

1B315 text2,75," IWektorgeometrie geloest werden.", 
1,1,10 

18316 text2,85,Programm verlangt Eingaben",1 
,1,10 

18317 text2,95, "Sin Form von kartesischen Kooi—",1 
.1,10 

18318 text2,105, “ Sidinaten im dreidimensionalen",!, 
1,11 . 

18319 text2,115, "»Raum. ",1,1,10 

18320 text2,125,"5®efinden Sie sich in R2, so”,1,1 
,11 

18321 text2,135," »setzen Sie einfach die X3-“,l,l, 
12 

18322 text2,145,"»Koordinate auf 0.",1,1,12 

18325 text2,155, “ »Al le Ergebnisse werden auf 2" ,1, 
1,11 

18326 text2,165,"»Stellen nach dem Komma ge-",1,1, 
12 

1B327 text2,175,"lööbßrundet ausgegeben !",1,1,13 
18330 gosub28500:gosub18600 

18340 gosub18000:text95,40,"»ANLEITUNG:",1,1,16 
18345 text2,55,"»Mit Fl kann eine Hardcopy",1,1,13 
18350 text2,65,"üerstel11 werden.",1,1,13 
18360 text2,75,“tl*lit F7 kann man wieder ins Haupt- 
“.1,1,9 

18370 text2,B5, " »hienue zurueckgehen. " , 1,1,13 

18371 text2,95, "ülit SPACE wird dieselbe Rechnung" 
,1,1,10 

18372 text2,105,"ümit anderen Zahlenwerten wieder— 
",1,1,10 

18373 text2, 115,” Sliol t. ",1,1,10 
18390 gosub28500: gosub1B600:goto!000 
18500 rem zurueck 

18510 text23,191, "=lZurueck mit RETURN ! ",1,1,14 
18515 lineB,187,320,187,1 
18520 return 

18550 text23,191, "Tehler in Eingabe *”,1,1,15 

18551 line0,187,320,187,1 

18552 return 

18560 text23,191,“»Fehler in Eingabe '.",0,1,15 

18561 line0,187,320,187,0 

18562 return 

18600 geta*:ifa$='"‘thenlB600 

18610 ifa*="d"thencopy:gotolB600 

1 B 620 return 

18700 rem print using 

1B710 x=(int(x*100+0.5>)/100 

18720 x*=" “+str*(x) 

18730 ifmid*(x*,len(x»)-l,l)=". "thenx*=x*+"0" : goto 
18760 

18740 ifmid*(x*,len(x*>-2,l)="."thenlB760 
18750 ifmid#(x*,len(x*)-l,l)<>". "thenx*=x*+" . 00" 
18760 ixi)-3,l)=" "thenxf="0"+rightS( 

x*,3> 

18770 if midi <x*,l en <x*> -3,1) ="-■• thenx*="-0"+right» 
<x*,3) 

18780 x*=right*(“ "+x*,6):return 

19000 rem eingabe 
19010 x*=“":qw=l 

19020 textx +qw*9-9,y+5,"»-",1,1.9 
19030 gosub18600 

19040 i f asc (a*> =13thenifx*< >""thentextx+qw*9-9,y+5 
,"»-",0,1,9: return 

19041 ifasc(a*> =13fhengosub18550:gosub18600:gosub1 
8560:gotol9000 

19050 ifasc(al)=20 or asc<a*>=148then19300 

19051 if at=":i"thenxt=af:return 

19055 if placetaJ, "1-234567890. '• > =0thenl9030 
19060 tex tx +qw*9-9, y, " ST' +a* ,1,1,9 
19070 qw=qw+l:x*=x*+a*:gotol9020 
19300 ifx#=""thengotol9020 

19310 textx+qw*9-18,y,”»"+right*(x*. 1) ,0,1,9:textx 
+qw»9-9,y+5,"»-",0,1,9 
19320 qw=qw-l 

19330 x*=left*(x*,len(x*)-l) 

19340 goto19020 

20000 rem spurpunkte 

20001 gl=0s g2=0t g3=0* nl=K(1):n2=«(2)t n3=x(3)s c=x(4 

>:xU=" ":x3*=" " 

20002 um = 1:uy=0:uz=0:gosub30200 

20003 z(1)=gx:z <2>=gy:z<3>=gz:ifx*="p"orx*="e"then 
xl#="n" 

20004 ux=0:uy=l:uz=0:gosub30200 

20005 z(4)=gx:z <5>=gy:z<6> =gz:ifx*="p"orx*="e"then 
x2*="n" 

20006 ux=0:uy=0:uz=l:gosub30200 


20007 z(7)=gx:z(8)=gy:z <9)=gz:ifx*="p“orx*="e“tben 
x3*=”n" 

20009 fori=lto9 

20010 x=z(i):gosub18700:z*(i>=x*:next:return 

20500 rem spurgerade zu xy 

20501 nl-x(1)in2=x(2):n3=x(3):ce-x(4) 

20502 ml=0:m2=0:m3=l:cf=0:gosub30600 

20503 g$=x<-:gosub1B700:ri=xi 

20504 ifg*="u"thengosub18700:gosub18600:return 

20510 x=sl:gosub18700:text85,55,x#,l,1,9 

20511 x=s2:gosub18700:text85,66,x$,1,1,9 

20512 X=s3:gosub18700:text85,77,x$,l,l,9 

20513 x=s4:gosub18700:text205,55,x#,1,1,9 

20514 x =s5:gosub18700: tex t205,66,X*,1,1,9 

20515 x"s6:gosub1B700:text205,77,x*,1,1,9 

20516 ifg*="p"then text1,100," SBie Ebene ist paral 

lei !", 1 , 1,12 

20517 ifg*="s"then text1,100»Die Ebene ist senkr 
echt !", 1 , 1,12 

20518 ifgS="p"andef< >0thentext30,140,"»Abstand:",1 
,1,10:text123,140,ef#,1,1,9 

20519 ifg»0"s"andg*0"p"then textl0,120, "»Winkel: 
",1,1,12 

20520 if g*< >"s"andg*<>"p"thentex1185,120," »Erad“,1 
,1,12:text115,120,r$,1,1,9 

20530 return 

20600 rem spurgerade zu xz 

20601 nl=x(1):n2=x(2):n3=x(3):ce=x <4> 

20602 ml=0:m2=l:m3=0:cf=0:gosub30600 

20603 g*=x*:gosub18700:r#=x4 

20604 ifg*="u"thengosub18700:gosub18600:return 

20610 x=sl:gosub18700:textQ5,55,x*,1,1,9 

20611 x—s2:gosub18700:text85,66,x4,1,1,9 

20612 x=s3:gosubl8700:text85,77,x*,l,1,9 

20613 x=s4:gosub18700.text205,55,x4,1,1,9 

20614 x —s5:gosub18700:tex t205,66,x*,1,1,9 

20615 x=s6:gosub1B700:text205,77,x*,1,1,9 

20616 ifg*="p"then textl,100,"»Die Ebene ist paral 
lei !", 1 , 1,12 

20617 ifg*="s"then text1,100," »Die Ebene ist senkr 
echt '", 1 , 1,12 

20618 ifg*="p"andef< >0thentext30,140," Abstands",1 
,1,10:text123,140,ef$,1,1,9 

2.061^*_fq*<>"s"andg*O"p"then text 10,120, " »Winkel: 

20620’ifg*<>"s"andg*O"p"thentextl05,120,"»Brad",1 
,1,12:text115,120,r*.1,1,9 
20630 return 

20700 rem spurgerade zu yz 

20701 ml=x (1): m2=x (2) : m3=x <3>;cf =x <4) 

20702 nl=l:n2=0:n3=0:ce=0:gosub30600 

20703 g*=x*:gosubl8700cr#=x* 

20704 ifg*="u"thengosub18700:gosub18600:return 

20710 x=s1:gosub18700:tex 185,55,x*,1,1,9 

20711 x =s2:gosub18700:tex tB5,66,x *,1,1,9 

20712 x=s3:gosub18700:text85,77,x$,l,l,9 

20713 x=s4:gosub18700:text205,55,x*,1,1,9 

20714 X =s5:gosub18700:text205,66,x*,1,1,9 

20715 x—s6:gosubl8700:text205,77,x*,1,1,9 

20716 ifg$="p"then textl,100,"»Die Ebene ist paral 
lei ! ", 1 , 1,12 

20717 ifg*="s"then textl,100,“»Die Ebene ist senkr 
echt ! ■•, 1,1,12 

20718 ifg*="p"andef< >0thentext30,140,"»»bstand: ",1 
,1,10:text123,140,ef»,1,1,9 

20719 ifg$<>"s"andg*<>"p"then text10,120,"»Winkel: 
”,1,1,12 

20720 ifg*<>"s"andgi<>"p"thentext185,120,"»Grad",1 
,1,12:text115,120,r*,1,1,9 

20730 return 
24500 rem bogen in grad 
24510 x=(x*180)/K:return 
24600 rem vektor ab 

24610 xl=bl—al 

24611 x2=b2-a2 

24612 x3=b3-a3:return 

25000 gosub25040:gosub25010:return 

25010 xl=al/a:x2—a2/a:x3=a3/a:return 

25020 gosub25040:return 

25040 a=<alT2+a2T2+a3T2)10.5:return 

25050 rem skalarprodukt 

25060 X=al*bl+a2#b2+a3*b3:return 

75090 gosub25060:s=x:gosub25040:a0=a:vl=a1:v2=a2:v 
3=a3:ai=b1:a2=b2:a3=b3:gosub25 040 
25091 al=vl:a2=v2:a3=v3:b=a:a=a0 
25100 x=abs(s/(a»b>) 


»Mathefix« (Fortsetzung) 
















Naturwissenschaft 


C 64 + Simons Basic 


25101 ifx=lthenx=0:return 

29460 ifax+ka»ux=bx*kb*vxthen29900 

25103 x=-atn(x/sqr < 1-x 12>1+K/2 

29470 ifuz=0andvz< >0then29490 

25104 i-fs<0thenx=:-:-x 

29480 goto29540 

25105 return 

29490 kb=(az-bz)/vz 

25110 rem Vektorprodukt 

29500 ifux<>0thenka= <bx-ax+kb»vx ) /ux 

25120 : 

29510 ifay+ka»uy=by+kb»vythen29900 

25130 X1=a2»b3-a3»b2:x2=a3*b1-a1«b3:x3=aI*b2-a2*b1 

29520 ifux=0thenka=(by-ay+kb»vy)/uy 

:return 

29530 ifaz+ka*uz=bz+kb«vzthen29900 

25140 rem -flaeche 2 Vektoren 

29540 ifux=0andvx=0then29600 

25150 gosub25120:al=xlsa2=x2:a3=x3:gosub25040:retu 

29550 ifuy=0andvy=0then29610 

rn 

29560 ifuz=0andvz=0then29620 

25160 rem läge von Vektoren 

29570 i f uy * vz < Xiz * vyth en29600 

25170 gosub25090:i f int<x»100*.5>=314thenx=o 

29580 ifux«vz<>uz*vxthen29610 

25171 i-fint <x»100+.5>=157thenx#="s":x=:-^2: return 

29590 ifux*vy<>uy*vxthen29620 

25180 if int(x*100+.5)=0thenx*="p":x=0:return 

29595 stop 

25190 gosub24500:gosub18700:x=val(x*):return 

29600 ka=(-(ay-by> »vz+ <«z-bz)*vy>/(uy*vz-uz»vy>:go 

25300 rem determinante 

t029900 

25301 d=x(l)»x <5>»x <9)+x <4)*x <8>*x(3)+x(7)»x(2>*x( 

29610 ka=(-(ax-bx)»vy*(az-bz)«vx > /(u»*vz-uz»vx):go 

6) —x <3> *x (5)*x (7) 

to29900 

25302 d=d-x (6) »x (8) »X ( 1 > -x (9> »x (2) *x (4) 

29620 ka=(- (ax-bx >*vy+(ay-by)*vx )/ (ux*vy-uy»vx ) 

25303 return 

29900 sx=ax+ka«ux:sy=ay*ka*uy:sz=az+ka*uz:ift>90 t 

2Q500 rem weiter 

hent=180-t 

28510 text23,191, " -Weiter mit RETURN ! ",1,1,15 

29901 return 

28515 line0,187,320,187,1 

30000 rem punkt/ebene 

28520 return 

30010 gosub30500:x=fre <x) 

28600 rem spurpunkte 

30020 n1=nx : n2=ny : n3=nz:gl=xe:g2=ye:g3=ze : ux =nx a uy 

28601 rem in yz-ebene 

=ny : uz=nz : gosub30200 

28602 : 

30030 return 

28610 ifux=0thenxl#="n" : got028640 

30200 rem g/e 

28620 kx=—ax/ux : z<l)=0:z(2)=ay+kx»uy:z(3) =az-*-kx*uz 

30220 a1=ux : a2=uy : a3=uz : b1=n1 : b2=n2 : b3=n3 : gosub251 

28630 : 

70:ifx*=“s“thenx=90 

28631 rem in xz-ebene 

30230 ifx*=”p"thenx»=“s"agoto30270 

28640 ifuy=0thenx2*="n":goto2B670 

30231 ifx*=“s"thenx*="p":goto30233 

28650 ky=-ay/uy:z(4)=ax+ky*ux:z (5>=0:z (6> =az-H<y*uz 

30232 goto30270 

28660 : 

30233 nx=nl : ny=n2:nz=n3:xe=gl:ye=g2s ze=g3 

2 B 661 rem in xy-ebene 

30240 gosub30000:sp=d 

28670 ifuz=0thenx3*="n" : goto2B690 

30250 ifsp=0thenx*="e" : return 

28680 kz=-az/uz:z(7)=ax+kz*ux : z (9)=0s z(8)=ay*kz*uy 

30260 i-fsp< >0thenx$="p" : return 

28690 return 

30270 u 1 -ux: u2=uy: u3=uz : gosub-30340 

29000 rem abstand punkt/gerade ... 

30280 gx =g1+ke*ux:gy=g2+ke»uy:gz =g3+ke«uz 

29020 kg=(pl»ux+p2»uy+p3«uz-ax»ux-ay»uy-az»uz )/ (ux 

30290 x=abs(90-x) : return 

T2+uy1 2+uz-t 2) 

30300 rem Schnittpunkt g/e 

29030 fl=ax+kg*ux 

30340 ke=ul*n1♦u2*n2+u3*n3 

29031 f 2=ay+kg*uy s *eca OHL 

_ 4 J2‘ t '=0 «f ke-0thenstop 

29032 f3=az+kg»uz 

30ow0 ke= <c—nl*gl-n2*g2-n3*g3)/kesreturn 

29040 fx=pl-f1 : fy=p2-f2:f z=p3-f 3a f p= (f xf2»f y12-*-f zt 

30400 rem Umrechnung para->normal 

2) T.5 

30430 a1=e4 : a2=e5 : a3=e6 : b1=e7 ab2=e8c b 3=e9 

29100 px=pl-2»fx : py=pz-2»fy:pz=p3-2»fz 

30440 gosub25130:nl=x1 : n2=x2:n3=x3 

29130 al=pl-ax : a2=p2-ay : a3=p3-az : bl=ux : b2=uy:b3=uz 

30450 a1=n1 : a2=n2aa3=n3 : b1=ei : b2=e2:b3=e3 

29140 gosub25130 

30460 gosub25060:c=x:return 

29150 al=x(1):a2=x (2>:a3=x(3) : bl=x1 : b2=x2:b3=x3:go 

30500 rem hnf aufstellen 

sub25060 

30530 al=nx : a2=ny : a3=nz : gosub25040:n=a 

29170 return 

30540 ifc>=0thend=(nx*xe+ny»ye+nz»ze-c>/n 

29200 rem g/g 

30550 ifc<0thend=(nx*xe+ny*ye+nz*ze-c )/ (-n> 

29219 a 1=ux : a2=uy : a3=uz :b 1=vx a b2=vy : b3=vz 

30560 d-abs(d):return 

29220 gosub25170:t=x : ifx*=“p"thent=0:g*="p“:goto29 

30600 rem läge e/e 

240 

30620 al=nl:a2=n2:a3=n3:bl=ml:b2=ra2:b3=m3:gosub251 

29221 ifx*=“s"thent=90:g*="s M 

70:ifx*="s"orx<>0then30740 

29230 goto29250 

30630 nx =n 1: ny*n2s nz*=n3t c=ce: gosub30530 

29240 pl=bxap2=byap3=bz:goto29020 

30640 de=d 

29241 if t>90 thent=180-t 

30690 nx=ml:ny=m2:nz =m3a c=cf:gosub30530 

29242 return 

30700 df=d«if <ce<0andcf >0)or(ce>0andcf<0)thendf =— d 

29250 rem windschief ? 

-f 

29251 x(l)=bx-ax:x <2)=by-ay:x(3>=bz-az 

30710 ef-abs(de-df):x4=“p":return 

29252 x (4) =ux:x(5>=uy:x (6>=uzax (7>=vxax (8>=vyax(9) 

30740 rem schnittgerade von e/e 

=vz:gosub25301 

30741 i=1 

29253 ifdO0theng*=“w":goto29270 

30750 f4=-m2a f5=ml : f6=0:f7=0:fB=-m3:f9=m2 

29254 got029320 

30760 ifml=0andm2=0thenf4=iaf5=i+laf6=0af7=i+2af8= 

29270 rem windschief abstand 

i+3:f9=0 

29280 al=ux : a2=uy:a3=uza bl=vxab2=vya b3=vza gosub251 

30770 ifml=0andm3=0thenf4=i : f5=0:f6=i + l : f 7=i+2:f8- 

10:al=x1 : a2=x2:a3=x3:bl=ax 

0:f9=i+3 

29281 b2=ay : b3=az : gosub25060:nx=x1 : ny=x2:nz=x3:c=x 

30780 if ra2=0andm3=0thenf 4=0:f5=i : f6=i + 1 : f 7=0:f8=i + 

: xe=bx : ye=bya ze=bz 

2:f9=i*3 

29290 gosub30000:fp=d 

30790 ifm3<>0thenf1=0:f2=0:f3=cf/m3:goto30820 

29291 ift>90 thent=180-t 

30800 ifm2<>0thenf1=0:f2=cf/m2:f3=0:goto30B20 

29320 rem Schnittpunktsberechnung 

30810 if mlOBthenf l=cf /ml : f 2=0: f 3=0: goto30820 

29330 if ux =0andvx < >0then29350 

30B20 tl=f4:t2=f5:t3=f6:gl=f7:g2=f8:g3=f9 

29340 goto29400 

30821 fx=tl:fy=t2:fz=t3:gx=gl:gy=t2:gz=t3 

29350 kb=(ax-bx>/vx 

30830 l=nl*fx+n2»fy+n3*fz 

29360 ifuy<>0thenka=(by-ay+kb»vy>/uy 

30835 if I=0andi=30thenfx=gl:fy=g2:fz=g3agx=tl:gy= 

29370 ifaz+ka»uz=bz+kb*vzthen29900 

t2:gz=t3:goto30830 

29380 ifuy=0thenka=(bz-az+kb»vz)/uz 

30840 if l=0andi>100thenx»="u":return 

29390 ifay+ka«uy=by+kb*vythen29900 

30850 if 1=0theni=i+1 : goto30750 

29392 return 

30860 r=(ce-nl«f1—n2«f2—n3»f3)/I 

29400 ifuy=0andvy< >0then29420 

30870 t=(-nl*gx-n2*gy-n3*gz)/l 

29410 goto29470 

30880 sl=fl»r«fxas2=f2*r«fyas3“f3*r»fl 

29420 kb=( ay-by)/vy 

30B90 s4=t»fx+gx:s5=t*fy+gy:s6=t*fz+gz 

29430 ifuxO0thenka=<bx-ax+kb*vx)/ux 

30895 ifx >90thenx = 180-x 

29440 ifaz+ka*uz=bz+kb»vzthen29900 

30900 return 

29450 ifux=0thenka=(bz-az+kb«vz)/uz 

»Mathefix (Schluß) 
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C 64 


Statistik 


Grafik-Erweiterung und 
DCopy für Aktien-Managerf 
Wahlhochrechnung 

Diese beiden kurzen Erweiterungen können Sie universell einsetzen. 
Zusammen mit Aktien-Manager und Wahlhochrechnung sind sie ein gutes 
Beispiel für eine sinnvolle Computeranwendung. 


Grafik-Erweiterung 

Diese Erweiterung wurde so kurz und einfach wie möglich 
gehalten und auf die notwendigsten Befehle beschränkt. 
Durch die Lage in Page 1 wird kein Basic-Speicherplatz ver¬ 
braucht. Das Besondere an dieser Erweiterung ist, daß zwar 
nur die hohe Auflösung von 320x200 Punkten möglich ist, 
aber trotzdem alle 16 Farben auf einmal dargestellt werden 
können (allerdings nur jeweils eine Farbe pro 8x8-Punkte- 
Feld). 

Folgende Befehle sind mit dieser Erweiterung möglich 
(Ausdrücke in Klammern können weggelassen werden): 

— Gx : Grafik einschalten / x= Hintergrundfarbe 

— C : Grafik löschen 

— T : Grafik ausschalten 

— Dx,y(;z) : Punkt zeichnen / x=X-Koordinate 

(0 - 319) / y=Y-Koordinate (0 - 200) / 


— F1000 : Bei auftretendem Fehler springt Pro¬ 

gramm in Zeile 1000 (dort kann mit 
PEEK(52000) die Fehlernummer und mit 
PEEK(52001)+256*Peek(52002) die 
Fehlerzeile ausgelesen werden) 

— E : Abschalten der Erweiterung 

Die Grafik liegt im Bereich $E000 bis SFFFF 
DCopy 

Die Druckerroutine für den MPS-802-Drucker liegt im 
Bereich $C700 bis $C850 und kann zusammen mit der 
Grafik-Erweiterung verwendet werden. Im Grundaufbau ent¬ 
spricht sie der Routine aus 64'er Ausgabe 10/84 Seite 83. 

Wenn Sie einen anderen Drucker als den MPS-802 besit¬ 
zen, besteht die Möglichkeit, an Stelle des Programms 
»DCopy« eine Hardcopy-Routinefür Ihren Drucker zu verwen¬ 
den. Dabei ist darauf zu achten, daß der Grafikbildschirm im 


z=Farbe Speicherbereich $E000 bis SFFFF liegt. Die Routine selbst 

— Lx,yTOx,y(;z) : Linie zeichnen / Anfangs- und Endpunkt kann in jedem nicht vom Hauptprogramm beziehungsweise 

eingeben / z=Farbe der GiäuL Routine verwendeten Bereich stehen. Gut geeig- 

— Px,y(,ax,ay)(;z)"Text": net ist beispielsweise der Bereich SC700 bis SCFFFF. Je 

Text drucken / x,y=Koordinaten der lin- nachdem wo Ihre Druck-Routine liegt, müssen Sie den SYS- 

ken oberen Ecke / ax,ay=Ausdehnung in Befehl im Hauptprogramm anpassen. 

x,y-Richtung / z=Farbe (Björn Fiethe/aw) 
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FD 

C3 
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EE 

46 

FD 

CG 

CO 

08 

DO 

E3 

21 

C4S0 


85 

FB 

A9 

00 

85 

FC 

AO 

03 
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A5 

01 

09 

02 

05 

01 

58 

60 

53 

C45B 

C460 

C468 


06 

C7 

85 

FB 

FO 

FC 

26 

07 

AD 

FC 

A5 

18 

88 

FC 

DO 

DO 

1B 

29 

F9 

69 

02 

A5 

C7 

54 

1A 
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C700 

CB50 

C830 

C838 

C840 


A2 

EB 

FC 

00 

EO 

6D 

BA 

08 

3D 

DD 

DO 

03 

3E 

F6 

AA 

03 

60 

FO 

DO 

18 

08 

05 

A5 

A9 

7A 

CB 

48 


FO 













C470 


06 

A5 

FC 

1B 

69 

00 

2C 

A5 

5E 

C700 

: 

A9 

69 

A2 

04 

AO 

05 

20 

E8 

OB 

C848 


20 

20 

D2 

FF 

CA 

DO 

F A 

60 

OD 

C478 


FC 

18 

69 

DO 

85 

FC 

AD 

F0 

DE 

C708 

s 

C7 

A9 

64 

A2 

04 

AO 

OO 

20 

97 
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CB 

29 

F9 

85 

01 

8E 

FO 

CB 

EF 
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: 

EB 

C7 

A2 

64 

20 
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A9 
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CB 

85 
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20 

D2 

FF 
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A2 

04 
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FE 

FD 

A9 

A5 

08 

14 

85 
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FF 

A5 

Bl 
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FB 

48 

85 

AD 

9E 

F5 
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C728 

: 

AO 

C9 

06 

FF 

20 

A9 

E8 

14 

C7 
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A2 

D2 

6A 

FF 

20 

A2 

64 
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und Wahlhochrechnung. 



Aktien- 
Manager, 
die grafische 
Daten¬ 
verwaltung 


Verfolgen Sie auf verschiedenen 
Grafik-Bildschirmen, wie sich Ihre 
finanzielle Lage entwickelt. Am Bei¬ 
spiel einer Aktienkursverwaltung wird 
gezeigt, wie aus trockenen Zahlen 
interessante Übersichten entstehen. 

Dieses Programm ist als kommerzielles Programm zur 
Beobachtung, Darstellung und Auswertung von Aktienkursen 
mehrerer Unternehmen an vier verschiedenen Börsen konzi¬ 
piert worden. Es läßt sich aber auch für andere Zwecke im 
Privatbereich einsetzen (zum Beispiel tägliche Ausgaben 
oder Einnahmen in vier verschiedenen Bereichen). 

Die eingegebenen Daten können mit diesem Programm 
(Listing) sowohl zur Einzelbetrachtung als Zahlenwerte, aber 
auch zur anschaulichen Darstellung mit verschieden langen 
Zeiträumen als Grafik, auf Bildschirm und Drucker, ausgege¬ 


ben werden. Bei vollständiger Menüsteuerung durch die 
Fuuivionstasten bestehen insgesamt 231 verschiedene 
Kombinationsmöglichkeiten zur Datenausgabe! 

Das Programm zeichnet sich durch einige Besonderheiten 
aus. So erfolgt die Ausgabe der Zahlenwerte formatiert (bei 
der Eingabe braucht also kein Format beachtet zu werden), 
der Computer wählt immer den größtmöglichen Darstellungs¬ 
raum bei einer Grafik aus und das Programm bietet vier beson¬ 
dere Grafik-Ergänzungen zur Vereinfachung der Auswertung 
(Berechnen der Monatsdurchschnitte und Hoch-Tief-Werte 
sowie Einzeichnen der Wendepunkte und des 100-Tage- 
Durchschnitts). 

Für die grafische Ausgabe der Werte wird am Programman¬ 
fang eine Grafik-Erweiterung in den Bereich $C000 bis 
SC568 geladen. Auch die mögliche Druckerroutine für den 
Grafikausdruck muß in den Bereich SC700 bis $C800 gela¬ 
den werden (beide Erweiterungen finden Sie in dieser Aus¬ 
gabe direkt hinter dem Programm »Wahlanalyse«). Einen 
anderen Bereich in Page 12 läßt die Grafik-Erweiterung nicht 
zu und im normalen RAM ($0800 bis $9FFF) sollte die Rou¬ 
tine möglichst nicht gespeichert werden, weil es dann zu 
Speicherplatzproblemen mit dem Hauptprogramm kommen 
kann. Aus diesem Grund sollten auch die REM-Zeilen im Pro¬ 
gramm nicht mit abgetippt werden. 

Als Beispiel wird in dem aufgelisteten Programm die Routine 
»DCOPY« für den MPS-802 geladen und aufgerufen! 

Mit diesem Programm lassen sich die Aktienkurse und - 
Umsätze verschiedener Unternehmen an den Börsen Frank¬ 
furt, Hamburg, Hannover und Düsseldorf (als Beispiel) genau 
beobachten und vergleichen. 

Natürlich kann das Programm nach kleinen Änderungen an 
den Ein- und Ausgabe-Routinen (Bild 1) auch zum Darstellen 
von Werten aus ganz anderen Bereichen benutzt werden 
(zum Beispiel Benzinkosten, Temperatur, ...). 

Zum Ausdruck des Grafik-Bildschirms muß die zum jeweili¬ 
gen Drucker passende Routine im Bereich $C700 — $C800 
gespeichert sein (Grafik liegt im Bereich $EOOO bis $FFFF). 
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Zeile 

Funktion 


180- 320 

Hauptmenü 


330- 410 

Eingabe-Menü 


420- 570 

Eingabe 


580 - 660 

Eingabe abspeichern 


670 - 790 

Eingabe auflisten 


800- 890 

Fehlerkorrektur 


900- 980 

Tägliches Übersichtmenü 


990- 1000 

Aktuelle Kurse 


1010 - 1030 

Kurse einer Woche 


1040- 1070 

Tageskurs 


1080- 1150 

Ausgabeform 


1160-1700 

Zahlenwertausgabe 


1710-1810 

Grafikausgabe tägliche Übersicht 


1820 - 1890 

Erweiterung-Menü 


1900- 1930 

Druckerausdruck 


1940 - 2040 

Kurswerte verbinden 


2050-2110 

Hoch-Tief-Werte verbinden 


2120 - 2170 

Umsatzbalken zeichnen 


2180-2250 

Übersichtsmenü 


2260-2310 

Freier Zeitraum - Menü 


2320 

Alle Tage 


2330 - 2360 

Zeitraumanfang eingeben 


2370 - 2390 

Zeitraumende eingeben 


2400 - 2460 

Monat 


2470-2550 

Jahr/Jahre-Menü 


2560 - 2760 

Monatsdurchschnitt berechnen 


2770-2850 

Kontinuierliche Werte 


2860 - 3020 

Hoch-Tief-Werte berechnen 


3030 - 3090 

Ausgabeform-Menü 


3100-3260 

Grafikausgabe 


3270 - 3320 

Druckerausdruck 


3330 - 3380 

Zurück zum Ausgabeform-Menü 


3390 - 3630 

100-Tage-Durchschnittskurve zeichnen 


3640 - 3950 

Wendepunkte verbinden 


3960 - 4060 

Börsen-Menü 


4070 - 4440 

Einlesen der Werte 

SAGR 

4450 - 4460 

Programmende 


4470 - 4500 

Funktionstastenabfrage 


4510-4540 

Eingabe Tag, Monat. Jahr 


4550 - 4850 

Anzahl der Werte/ersten Tag ausrechnen 


4860 - 5180 

Fehlerbehandlung 


5190-5210 

Anfangsdatei einiesen 


5220-5620 

Drucker-Zahlenwertausgabe 


5630-5810 

Kurse nachträglich ändern 


5820 - 6020 

Kurse nachträglich einfügen 


6030 - 6360 

Monat überspielen 


6370 - 6470 

Prüfung vor Wertabspeicherung 


6480 - 6570 

Jährliche Hoch-Tief-Werte berechnen 


6580 - 6700 

Directory lesen 



Die eingegebenen Werte werden nach Unternehmen und 
Monat getrennt als sequentielle Dateien auf Disketten abge¬ 
speichert. 

Das Programm ist vollständig menügesteuert, aber trotz¬ 
dem noch einige Hinweise zur richtigen Bedienung: 

Bei Fragen, die mit Ja oder Nein beantwortet werden, darf 
nur J oder N eingegeben werden. 

Die Fragen »Weiter?« und »Drucker an?« sind Wartefragen, 
bei denen das Drücken der RETURN-Taste bedeutet, daß der 
Computer mit dem Programm fortfährt. 

Auch nach dem Erstellen einer Grafik wird durch Drücken 
der RETURN-Taste mit dem Programm fortgefahren. 

Wird ein Ausdruck des angezeigten Grafikbildschirms 
gewünscht, muß vorher bei der Frage »Tabulator:?« ein Wert 
zwischen 0 und 40 eingegeben werden (0=linke / 
40=rechte Hälfte einer Seite. Wenn mit der verwendeten 
Drucker-Routine keine Tab-Funktion möglich ist, Abfrage 
überspringen!) 

Bei Eingabe der Kurse ist zu beachten, daß die Datumsan¬ 
gaben immer zweistellig erfolgen müssen, der Dezimalpunkt 


(kein Komma eingeben!), vorangestellte und nachfolgende 
Nullen nicht mit eingegeben zu werden brauchen. 

Wenn der Computer rechnet oder Kurse von Diskette ein¬ 
gelesen werden, wird in der rechten oberen Ecke »Warten« 
angezeigt. 

Jetzt folgt noch die Erklärung der einzelnen Auswahl¬ 
möglichkeiten in der Programm-Reihenfolge. 

Nach der Eingabe des Firmenkürzels der Firma, deren 
Aktienkurse bearbeitet werden sollen, folgt das Hauptmenü. 

Im Hauptmenü bestehen folgende Auswahlmöglichkeiten, 
die danach mit ihren Untermenüs erklärt werden: 

1. Kurse eingeben/ändern 

Hier bestehen verschiedene Möglichkeiten zur Kursein¬ 
gabe: 

- Kurse neu eingeben: Wird normalerweise zur Kurseingabe 
benutzt. Dazu muß das Kursdatum später als das letzte vor¬ 
handene Datum sein. Deshalb Kurse möglichst immer in auf¬ 
steigender Reihenfolge des Datums mit diesem Menüpunkt 
eingeben (letztes Datum läßt sich durch Aufrufen der aktuel¬ 
len Kurse (siehe Punkt 2) feststellen). 

- Kurse nachträglich ändern: Bei nachträglich notwendigen 
Änderungen, können nach Eingabe des Datums alle Werte 
geändert werden. 

- Kurse einfügen: Liegt das Kursdatum zwischen schon vor¬ 
handenen Kursen, muß zur Kurseingabe diese Funktion auf¬ 
gerufen werden. 

- Datei überspielen: Die Kurse von jeweils einem Monat kön¬ 
nen auf eine andere Diskette überspielt werden (Diskette 
muß vorher formatiert werden). 

2. Tägliche Übersicht 

Bei dieser Funktion werden immer nur Kurse und Umsätze 
von Tagen gezeigt. 

- Aktuelle Kurse: Die letzten fünf Tage werden ausgewählt. 

- Kurse ' les Tages: Tageskurse und Kurse der zwei vorher¬ 
gehenden und nachfolgenden Tage werden gezeigt. 

- Kurse einer Woche: Anfangstag der anzuzeigenden Woche 
muß eingegeben werden. 

Nach diesen Eingaben muß man wählen, ob alle Kurse und 
Umsätze als Zahlenwerte oder Kurse und Umsätze einer 
Börse als Grafik (Bild 3) ausgegeben werden sollen (bei 
Grafik-Auswahl zwischen den vier Börsen und Commerz¬ 
bank-Index/Gesamtumsatz). Bei Ausgabe als Zahlenwerte 
muß noch eingegeben werden, ob der Höchst- und Tiefst- 
kurs und die Gesamtumsätze des ganzen zuletzt aufgeführ¬ 
ten Jahres oder nur die des aufgelisteten Zeitraums ausge¬ 
geben werden sollen. Nach der jeweiligen Ausgabeform 
kommt man nicht wieder zum Hauptmenü, sondern kann 
unter Beibehaltung des vorher eingegebenen Zeitraums eine 
andere Darstellungsform wählen (oder zum Hauptmenü 
zurück). 

3. Übersicht 

Hier können verschiedene Zeiträume und Darstellungsva¬ 
rianten ausgewählt werden: 

- Freier Zeitraum: Variable Auswahl des Zeitraums, siehe 3.1 

- Monat: Kurse eines Monats können ausgewählt werden 
(auch unvollständiger letzter Monat möglich). 

- Jahr: Kurse eines Jahres (auch unvollständig), siehe 3.2 

- Jahre: Gesamter Zeitraum der Diskette wird benutzt, siehe 
3.2 

3.1 Zeitraum festlegen 

Bei freiem Zeitraum gibt es weitere Auswahlmöglichkeiten: 

- Alle gespeicherten Tage: Alle Kurse werden ausgewählt 
(wie bei Jahre) 

- Zeitraumanfang eingeben: Anfangstag und Zeitraumlänge 
in Tagen (Anfangstag mitgerechnet) müssen eingegeben 
werden. 

- Zeitraumende eingeben: Zeitraumlänge in Tagen (Endtag 
mitgerechnet) und Endtag eingeben. 
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Bild 2. Grafische Darstellung der Kurse und Umsätze 

LOB HOCH-TIEF KASSAKURSE FRAHKFURT8B 



Bild 4. Höchste und tiefste Werte in Balkengrafik. 



Bild 3. Monatliche Durchschnittswerte einer Börse. 



81 02 03 04 

Bild 5. Die Kursgrafik - Spiegel der Wirtschaft. 


-—- . . - 


3.2 Jährlichen Zeitraum festlegen 

Bei Jahr/Jahre gibt es folgende weitere Auswahlmöglichkei¬ 
ten: 

- Monats-Durchschnitt: Hier wird für jeden Monat des einge¬ 
gebenen Zeitraums ein Durchschnittswert für jede Börse 
errechnet und statt der normalen Werte angezeigt (Bild 3). 

- Kontinuierlich: Alle Werte des eingegebenen Zeitraums 
werden normal ausgegeben. 

- Monats-Hoch-Tief: Wie bei Durchschnitt wird für jeden 
Monat der höchste und tiefste Wert ausgerechnet und als 
Balkengrafik oder Zahlenwerte (Reihenfolge: Tief. Hoch) 
ausgegeben (Bild 4). 

Nach all diesen verschiedenen Auswahlmöglichkeiten 
kommt man immer zur Auswahl der Darstellungsmöglichkei¬ 
ten: 

- Zahlenwerte: Alle Kurse und Umsätze werden aufgelistet 
(siehe auch Punkt 2) 

- Kursgrafik: Darstellung der Kurse oder des Commerzbank- 
Index (auch zum Darstellen der Durchschnitts- und Hoch- 
Tief-Werte). 

- Umsatzgrafik: Darstellung der Umsätze der einzelnen Bör¬ 
sen oder der Gesamtumsätze. 

- Hauptmenü: Zurück zum Hauptmenü, wenn neuer Zeitraum 
ausgewählt werden soll. 

Zu diesem Menü kommt man nach erfolgter jeweiliger 
Darstellung immer zurück, um die Werte des vorher eingege¬ 
benen Zeitraums anders darzustellen. 

Wenn Kursgrafik als Ausgabeform gewählt wurde, können 
nach der normalen Darstellung noch weitere Erweiterungen 
eingegeben werden (Bild 5). 

- Durchschnitt: Einzeichnen des 100-Tage-Durchschnitts in 
die Grafik (gestrichelte Linie in Bild 5). Dieser Durchschnitt 
berechnet sich aus den 20 letzten Kursen des Wochenta¬ 


ges, bei dem dann der errechnete Wert eingezeichnet wird 
(20*5=100; Börsen haben nur Montag bis Freitag geöff¬ 
net). 

- Wendepunkte: Wendepunkte der angezeigten Grafik wer¬ 
den verbunden. 

Sollen beide Erweiterungen eingezeichnet werden, muß 
zuerst Wendepunkte und dann Durchschnitt aufgerufen wer¬ 
den. 

4. Programmende 

Die Grafik-Erweiterung wird ausgeschaltet. 

Noch ein Tip: Wenn die alte Diskette voll ist (weniger als 10 
freie Blöcke), sollten die letzten 3 bis 4 Monate auf die neue 
(vorher formatierte) Diskette überspielt werden, bevor man 
weitere Kurse eingibt. Dadurch bekommt man einen fließen¬ 
den Übergang beim Diskettenwechsel (Daten können immer 
nur von einer Diskette eingeiesen werden). 

Das Programm fängt die meisten Bedienungsfehler auf. 
Nach dem Beseitigen des Fehlers (zum Beispiel falsche Dis¬ 
kette eingelegt) und Drücken von RETURN wird mit dem Pro¬ 
gramm fortgefahren. Auch Programmfehler werden ange¬ 
zeigt. 

Da der C 64 keine eigenen Grafikbefehle hat, muß in dem 
Programm auf eine Maschinensprache-Erweiterung (siehe 
eigener Artikel in dieser Ausgabe) zurückgegriffen werden. 
Diese wird mit einem Monitor oder dem MSE ab $C000 ein¬ 
gegeben und danach als »GRAFIK-E/MS« abgespeichert. 

Nun kann das eigentliche Programm abgetippt, gespeichert 
und gestartet werden. Es lädt dann zuerst die Erweiterung 
und die mögliche Drucker-Routine. 

Noch ein Hinweis: Nach dem Programmabbruch mit der 
STOP-Taste darf das Programm nicht wieder ganz von vorne 
gestartet werden, ohne vorher die Grafik-Erweiterung mit 

— E auszuschalten! (Björn Fiethe/aw) 
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10 REM »« 
20 REM * 
30 REM * 
40 REM « 
50 REM * 
60 REM « 
70 REM « 
80 REM » 


AKTIENKURS-PROBRAMM 


FUER C-64/FLOPPY/(DRUCKER) 


B. FIETHE TEL.05331773648 


85 REM «*•*******»**•****»*#*********»** 

88 REM - STEUERZEICHEN - 

89 REM “ <DOWN>" = CRSR DOWN 

90 REM "{UP>" = CRSR UP 

91 REM “{RIGHT>“ = CRSR RIGHT 

92 REM "{LEFTJ“ = CRSR LEFT 

93 REM "{CLRJ" = CLR 

94 REM "{HOME >“ = HOME 

95 REM "{RVSON>" = RVS ON 

96 REM "{RVOFF >" = RVS OFF 

97 REM "{RED’" = CTRL 3 

98 REM "{GREY 1>“ = C= 4 

99 REM - 

100 REM - DRUCKERSPEZIFISCHE ROUTINE 

IM BEREICH *C700-*CB00 
110 REM ZUM AUSDRUCK DES HGR-BILOSCHIRMS 
WIRD GELADEN - 

120 IF WQ=0 THEN Wß=l:LOAD"DCOPY",8,1 

130 REM - GRAFIK-ERWEITERUNG LADEN 

140 IF WQ=1 THEN WQ=2:LOAD"GRAFIK—E/MS“,8, 
1 

150 SYS 49152:REM - ERWEITERUNG STARTEN 

155 PF4860:REM - FEHLERBEHANDLUNG EIN 

160 OPEN 15,8,15:F0R 1=1 TO 32:CR*=CR*+"tR 
IGHT>":NEXT I:FI*=".00" 

170 DIM U(500>,K<500),TA*(30>,MO*(30>,JA*< 
30) 

180 CLOSE 2:POKE 53280,15:POKE 53281,15:E8 
=0:ETS="":PR X NT"{CLR >" 

190 PRINT"{HOME,GREY 1}":PRINT:PRINT:PRINT 
"FIRMENKUERZEL (MAX.3/0=KATALOG):{2SPA 
CEJ"KA* 

200 PRINT"{UPJ“CR*;:INPUT KA*:IF LEN(KA*)> 
3 THEN 190 

210 IF KA*="0"THEN PRINT:PRINT:GOSUB 6590: 
GOTO 190 

220 PRINT"{CLR,DOWN,RED,6SPACEJK U R S - P 
R O G R A M M" 

230 PRINT:PRINT:PRINT"{GREY 1,14SPACEJHAUP 
TMENUE" 

240 PR INT "=========’ 


<060> 
<069> 
<097> 
<0B9> 
<064 > 
<109> 
< 110 > 
<129> 
<135> 
<053> 

< 193> 
<230> 
<058> 

< 140> 
<009> 
<147> 
<054> 
<099> 
<103> 
<003> 
<090> 

<176> 

<213> 

< 157> 
<105> 

< 058> 

< 104 > 
<251 > 

<241 > 

<062> 

<034 > 


250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

3B0 

390 

400 

410 

420 

430 


PRINT:PRINT:PRINT"{4SPACE,RVS0N>F 1<RV 
OFF,SPACE >= KURSE E1NGEBEN7AENDERN" 

PRINT:PRINT"{4SPACE,RVSON >F 3{RVOFF,SP 
ACE>= TAESL. UEBERSICHT" 

PRINT:PRINT“{4SPACE,RVSON>F 5{RVOFF,SP 
ACE>= UEBERSICHT" 

PRINT:PRINT"{4SPACE,RVSON >F 7{RVOFF,SP 
ACE>= PROGR.-ENDE" 

GOSUB 4470 

IF F>1 AND F<4 AND(AE=1 OR JE=0)THEN G 
OSUB 5190 

ON F GOTO 330,900,2180,4450 
GOTO 180 

PRINT"<CLR,2D0WN,2SPACE)EINGABE/AENDER 
UNG " : PR I NT " ======================== 


PRINT:PRINT:PRINT"{4SPACE,RVSON >F 1{RV 
OFF,SPACE>= NEUE KURSE EINGEBEN" 

PRINT:PRINT“{4SPACE,RVSON > F 3{RVOFF,SP 
ACE>= KURSE NACHTRAEGLICH AENDERN" 

PRINT:PRINT"{4SPACE,RVSON >F 5{RVOFF,SP 
ACE>= KURSE EINFUEGEN" 

PRINT:PRINT-{4SPACE,RVSON >F 7{RVOFF,SP 
ACE>= DATEI UEBERSPIELEN“ 

PRINT:PRINT"{4SPACE,RVSON)F 6{RVOFF,SP 
ACE>= HAUPTMENUE" 

GOSUB 4470: IF FOl AND (AE=1 OR JE=0)TH 
EN GOSUB 5190 

ON F GOTO 420,5630,5820,6030,1B0,330 
GOTO 330 

E=0:PRINT"{CLR,2DOWN,RED,13SPACE >KURSE 
EINGEBEN" 


< 101 > 

<029> 

jMP 

< 16 B> 

<099> 

<236> 

< 112 > 

<159> 

<172> 

<150> 

<050> 

<048> 

<184> 
<051 > 
< 122 > 

< 132> 
<173> 
<099> 
<038> 
<019> 
<024> 

< 117> 
<169> 
<14B> 

<203> 

<048> 


440 PRINT:PRINT:INPUT"{GREY 1,2SPACE>TAG:" 
;TA*:PRINT:INPUT“{2SPACE> MONAT:"j MO*:P 


RINT:INPUT"{2SPACEJJAHR:” s JA* <096> 

450 IF LEN(TA*><>2 OR LEN(M0*)<>2 OR LEN(J 

A*><>2 THEN 440 <173> 

460 MO=VAL(MO*):JA=VAL(JA*):MO*(1)=STR*(MO 

>:JA*<1)=STR*(JA) <044> 

470 IF E=1 THEN 580 <156> 

480 PRINT:PRINT:INPUT"(2SPACEJKURS FRANKFU 

RT: DM"jKF <096> 

490 PRINT:INPUT"UMSATZ '’C7SPACE>: STUECK“ 

;UF <034> 

500 IF E=2 THEN 580 <218> 

510 INPUT"{3UP,2SPACE,4RIGHT,SPACE JHANNOVE 

R{SPACE,4RIGHT>";KH <0B7> 

520 PRINT:PRINT LEFT*(CR*,24)INPUT UH:IF 

E=3 THEN 580 <006> 

530 INPUT"{3UP,2SPACE,4RIGHT,SPACEJHAMBURG 

{2SPACE,4RIGHTJ";KB <034> 

540 PRINT:PRINT LEFT*(CR*,24)INPUT UB:IF 

E=4 THEN 580 <131> 

550 INPUT"{3UP,2SPACE,4RIGHT,SPACE>DUESSEL 

D.{4RIGHT>";KD <132> 

560 PRINT:PRINT LEFT*(CR*,24);:INPUT UD:IF 

E=5 THEN 580 <031> 

570 PRINT:PRINT:INPUT"{2SPACEJCOMMERZBANK 

INDEX:";CI <241> 

580 IF AE=5 THEN GOSUB 710:RETURN <254> 

590 AE=3:GOSUB 710:AE=1:GOTO 6380 <215> 

600 OPEN 2,8,2,KA*+"—AKTIE"+MO*(1)+JA*(1)+ 

“,S,A":GOSUB 4960 <158> 

610 PRINT#2,TA*:PRINT#2,MO*:PRINT*2,JA*:PR 

INT#2,KF:PRINT#2,UF:PRINT#2,KH <090> 

620 PRI NT#'2 , UH: PRINT#2 , KB: PRI NT#2 , UB: PRI NT 

#2,KD:PRINT#2,UD:PRINT*2,C1 <124> 

630 CLOSE 2:OPEN 2,8,2,"0:“+KA*+"-AKTIE,S, 

W“:PRINT#2,ME:PRINT42,JE:PRINT42,MO*(1 
) <250> 

640 PRINT#2,JA*(1>:PRINT#2,NA*:CLOSE 2:G0T 

O 670 <216> 

650 PRINT:PRINT"DISKETTE VOLL!C2SPACEJBITT 

E NEUE DISK EINLEGEN":INPUT F* <242> 

660 GOTO 600 <120> 

670 OPEN 2,8,2,KA*+"-AKTIE"+M0*(l)+JA*(l)+ 
anunsrs* R" <i46> 

680 INPUT#2,TA*,MO*,JA*,KF,UF,KH,UH,KB,UB, 

KD,UD,CI <153> 

690 IF ST< >64 THEN 680 < 223> 

700 CLOSE 2 <211> 

710 PRINT"{CLR,2D0WN.2SPACEJDATUM: "TA*"." 

MO*"."JA* <053> 

720 PRINT:PRINT"{2SPACEJKURSE:"SPC(19)"UMS 
ATZ: ": PRINT" {2SPACE>= = = = ========= 

730 PRINT:PRINT"{2SPACE>FRANKFURT:"KF"DM“T 

AB(25)UF"STUECK" <217> 

740 PRINT:PRINT"{2SPACEJHANNOVER :"KH"DM"T 

AB(25)UH”STUECK" <212> 

750 PRINT:PRINT"{2SPACEJHAMBURG{2SPACE>:"K 

B"DM"TAB(25 > UB"STUECK" <025> 

760 PR1NT:PRINT“{2SPACEJDUESSELD :"KD"DM"T 

ABI25)UD"STUECK" <000> 

770 PRINT:PRINT"{2SPACEJCOMMERZBANK INDEX: 

“CI <144> 

780 IF AE<3 THEN PRINT:INPUT"{2SPACEJAUF Z 
WEITE DISK ABSPEICHERN (J/N)";F*:IF F* 
="J"THEN 6380 <140> 

790 IF AE<3 THEN 1000 <143> 

800 PRINT:PRINT:INPUT"{2SPACEJRICHTIG (J/N 

) ";E*:IF E*=“J"THEN RETURN <186> 

810 IF E*<>”N“THEN PRINT"{2UPJ":GOTO 800 <051> 

820 PRINT"{HOME,2D0WN,RVSON>1{RVOFF,LEFT,5 
DOWN,RVSON>2{RVOFF,LEFT,2D0WN,RVSON >3{ 

RVOFF,LEFT,2D0WN,RVSON >4"; < 005 > 

830 PRINT"{RVOFF,LEFT,2D0WN,RVSON>5{RVOFF, 

LEFT,2D0WN,RVSON >6{RVOFF J" <189 > 

840 Z=Z—1:PRINT"{2DOWN,2SPACEJWAS IST FALS 

CH (1-6)?" <189> 

850 GET E*:E=VAL(E*>:IF E*=""THEN 850 <235> 

860 IF E>2 AND E<6 THEN PRINT:PRINT:PRINT” 
{2SPACE3 KURS{10SPACE >: DM{2SPACE >000.0 
0" <133> 

870 IF E>2 AND E<6 THEN PRINT:PRINT"UMSATZ 

•{7SPACEJ: STUECK" <235> 

Listing. Aktienverwaltung. Bitte beachten Sie die 
Eingabehinweise auf Seite 6. 
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8B0 ON E GOTO 440,480,510,530,550,570,85b 
890 GOTO 850 

900 AB=30:AA=4:PRINT"{CLR,2D0WN,RED,10SPAC 
EJTAEGLICHE UEBERSICHT“ 


920 PRINT:PRINT: PRINT“{GREY 1,4SPACE,RVS0N 
>F l{RVOFF,SPACE}= AKTUELLE KURSE" 

930 PRINT:PRINT"{4SPACE,RVSONJF 3{RVOFF,SP 
ACE>= KURSE EINES TAGES" 

940 PRINT:PRINT"{4SPACE,RVSONJF 5<RV0FF,SP 
ACE>= KURSE EINER WOCHE" 

950 PRINT:PRINT"{4SPACE,RVSON JF 7 {RVOFF,SP 
ACEJ = HAUPTMENUE" 

960 GOSUB 4470 

970 QN F GOTO 990,1040,1010 

9Q0 GOTO 180 

990 MT*=STR*(ML>:JR*=STR#(JL):TG*="":AF=5: 
GOSUB 4580:GOTO 1080 

1000 CLOSE 3:CL05E 2:PRINT:INPUT"{GREY 1,2 
SPACE>WEITER";FS:GOTO 180 
1010 PRINT"{CLR,2D0WN,RED,8SPACEJKURSE EIN 
ER WOCHE": PR INT"' 

1020 PRINT"{3D0WN,GREY 1,2SPACE>ANFANGSTAG 
DER WOCHE EINGEBEN“ 

1030 AF=1:GOTO 1070 

1040 PRINT"{CLR,2D0WN,RED,13SPACEJTAGESKUR 
S" 

1050 PRINT"============================== 

======*• 

1060 PRINT"{3D0WN,GREY 1,2SPACE>GEWUENSCHT 
EN TAG EINGEBEN:“:AF=3 
1070 GOSUB 4520 

1080 MN*=MT*:JHS=JR«:PRINT"{CLR,2D0WN,RED, 
15SPACE JAUSGABEFORM " 

1090 PR INT "============================ 


< 1B7> 

< 192> 

< 190> 

<020 > 

<201 > 

<125> 

<065> 

<087> 
< 210 > 
<217> 

<01B> 

< 1 07> 
<026> 


1100 PRINT:PRINTSPRINT"{GREY 1,4SPACE,RVS0 
NJF 1{RVOFF,SPACEJ: ZAHLENWERTE" 

1110 PRINTsPRINT"{4SPACE,RVSONJF 3{RV0FF,S 
PACEJ: GRAFIK" 

1120 PRINTsPRINT"{4SPACE,RVSONJF 5{RVOFF, S 


<061 > 

<234> 

<214> 

< 012 > 

<162> 

<172> 
< 178> 

<137> 

< 202 > 

<176> 

<164> 


PACEJ: HAUPTMENUE" 

1130 GOSUB 4470 

1140 ON F GOTO 1170,1720,180 

1150 GOTO 1080 

1160 REM - ZAHLENWERTAUSGABE - 

1170 PRINT:PRINT:INPUT“HOECHST—TIEFSTKURS 
DES GANZEN JAHRES ";FS 
1180 PRINT:PRINT:PRINT"{CLR,RED,8SPACEJ"NA 
«"-AKTIE“:GF=0:GH=0:GB=0:GD=0 

=========”iMF=5001MH=500:MB=500:MD=50 

0 

1200 PRINT SPC(15)ET*:PRINT SPC(20)"{GREY 
1J KASSAKURSE “ $: GI =0: MI =5000: A1 = 1 
1210 PRINT:PRINT:PRINT"{GREY 1,2SPACEJDATU 
MT3SPACEJFRANKF{3SPACE JHANN{4SPACEJHA 
MB{3SPACEJD'DORF"; 

1220 PRINTsPRINT" 

; : UI=0: GR=0: KL=500: A= 

16 

1230 PRINT:UG=0:FOR 1=0 TO AA:INPUT#2,TA*, 
MO*,JA*,KF,UF,KH,UH,KB,UB,KD,UD,CI 
1240 M=0:IF KF>=GF THEN GF=KF:IF KF>=GR TH 
EN GR=KF:M=1 

1250 IF KH>=GH THEN GH=KH:IF KH>=GR THEN G 
R=KH:M=1 

1260 IF KB>=GB THEN GB=KB:IF KB>=GR THEN G 
R=KB:M=1 

1270 IF KD>=GD THEN GD=KD:IF KD>=GR THEN G 
R=KD:M=1 

1280 IF M=1 THEN TA«(1)=TA«:MO«(1)=MO«:JAS 
<1)=JAS:M=0 

1290 IF KF=<MF AND KF>0 THEN MF=KF:IF KF=< 
KL THEN KL=KF:M=1 

1300 IF KH=<MH AND KH>0 THEN MH=KH:IF KH=< 
KL THEN KL=KH:M=1 

1310 IF KB=<MB AND KB>0 THEN MB=KB:IF KB=< 
KL THEN KL=KB:M=1 

1320 IF KD=<MD AND KD>0 THEN MD=KD:IF KD=< 
KL THEN KL=KD:M=1 

1330 IF M=1 THEN TA«(2)=TA«:MO*(2)=M0«:JA« 

(2)=JAS:M=0 


<245> 
< 126> 
< 002 > 
<075> 
<098> 

<1B5> 

<026> 


< 152> 


<255> 


<160> 


<199> 


<156> 


<052> 


<174> 


< 147> 


<226> 


<032> 


< 115> 


<162> 


<245> 


< 094 > 


1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 


1470 

1480 

1490 

1500 

1510 

1520 


1530 

1540 

1550 


IH 


/w 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 


UF-INT(UF):UH=INT(UH):UB-INT(UB):UD=I 
NT(UD) :UG=UF+UH+UB-HJD: IF CI>=GI THEN 
GI=CI 

UI=UI+UG:IF CI=<MI AND CI>0 THEN MI=C 
I 

IF DR=1 THEN RETURN 

PRINT TA*" . "MO*" . “ J A*; : KF#=STR* (INT (K 
F)):FK*=STR*(KF>:LL=LEN(FK*)-LEN(KF*> 
IF LL>3 THEN LL=3 

PRINT SPC(5—LEN(KF*)> LEFT*(FK*,LEN(KF 
«)+LL)RIGHTS(FIS,(3-LL)); 

KH*=STR*(INT(KH >):HK*=BTR*(KH):LL=LEN 
(HK*)—LEN(KH*):IF LL>3 THEN LL=3 
PRINT SPC(5-LEN(KH*))LEFT*(HK*,LEN(KH 
*1+LL)RIGHT*(FI*,(3-LL))j 
K-5S*=STR* (INT (KB)): BK*=STR* (KB): LL=LEN 
(BK*. 1 -LEN (KB*): IF LL>3 THEN LL=3 
PRINT SPC(5-LEN(KB*)>LEFT*(BK*,LEN(KB 
*) -H-L) KI6HT* (FI*#(3—LL> ) ; 

KDS=3TR*(INT(KD)):DK*=STR*(KD):LL=LEN 
(DK*)-LEN(KD*):IF LL>3 THEN LL=3 
PRIW SPC(5—LEN(KD*))LEFT*(DK*,LEN(KD 
*)+LL)RIGHTS(FI*,(3-LL)); 

PRINT SPC < A—LEN(STR*(UF)))UF SPC(7-LE 
N(STR*(UH)))UH SPC(7—LEN(STR*(UB)))UB 

PRINT SPC(7—LEN(STR*(UD)))UD"{LEFTJ" 5 
IF I=INT(AA—1)THEN FF-KF+KH+KB+KD 
IF ST< >64 THEN NEXT I:CLOSE 2:GOTO 15 
10 

GOSUB 4820:NEXT I:CLOSE 2 
DF-KF+KH+KB+KD 

DD=(DF—FF)/4:IF DD>2.6 THEN PRINT:PRI 
NT“{2SPACEJTENDENZ: STARK STEIGEND":G 
OTO 1560 

IF DD>1.3 THEN PRINT:PRINT“{2SPACEJTE 
NDENZ: LEICHT STEIGEND":GOTO 1560 
IF DD<-2.6 THEN PRINT:PRINT"{2SPACEJT 
ENDENZ: STARK FALLENDGOTO 1560 
IF DD<—1.3 THEN PRINT:PRINT"{2SPACEJT 
ENDENZ: LEICHT FALLEND" 

IF F*="J“THEN GOSUB 6490 
GRS—STR*(INT(GR)):RG*=STR*(GR):LL=LEN 
(RG*>-LEN(GR*):IF LL>3 THEN LL=3 
PRINT:PRINT"{2SPACE JHOECHSTKURS: "; 
PRINT SPC (5-LEN (GR*) ) LEFT* ( RG*,LEN (BR 
* > +LL > RIGHT*(FI*,(3-LL)); 

PRINT" DM AM "TA*<1)”."MOS(1)"."JA*(1 


<253> 

<043> 

< 210 > 

<072> 

< 222 > 

<041 > 

<173> 

<195> 

<216> 

<070> 

<144> 

<224> 


<234> 
<071 > 

< 158 > 

< 104> 
<211 > 
<249> 


) 

KL*=STR*(INT(KL > >:LK*=STR*(KL):LL=LEN 
(LK*)-LEN(KL*):IF LL>3 THEN LL=3 
PRINT“{2SPACEJTIEFSTKURS :"; 

PRINT SPC(5-LEN(KL*))LEFT*(LK*,LEN(KL 
*> +LL)RIGHT*(FI*,(3-LL ))5 
PRINT" DM AM "TA*(2)"."MO*(2)".“JA*(2 
) 

PRINT"{2SPACE JGESAMTUMSAETZE:"UI"STUE 
CK" 

A1=0:PRINT:INPUT“{2SPACE JDRUCKER";FS: 
IF FS< >"J"THEN 3350 

Al=l:PRINT"<UPJ"TAB(20)"DRUCKER AN”;: 
INPUT F*:OPEN 4,4:MT*=MNS:JR*=JH* 

IF MM=0 THEN GOSUB 4740:GOTO 1700 
GOSUB 4550 
DR=1:GOTO 5230 

REM-GRAFIKAUSGABE- 

AD=20:TE*="":GOSUB 3960 

(-L20.10 TO 20,170: <-L20,170 TO 150,170 

: H_190,10 TO 190,170 

«-L190,170 TO 310,170: FOR 1 = 10 TO 170 
STEP(AC* (INT(9/AO+l) ) :FOR T=15 TO 15 
0 STEP 5 
(-DT, I:NEXT T,I 

FOR 1=10 TO 170 STEP(AZ*(INT(9/AZ)+1) 

): FOR T=1B5 TO 320 STEP 5: *-DT, I:NEXT 
T, I 

FOR 1=20 TO 150 STEP AB:FOR T=10 TO 1 
75 STEP 4: *-DI ,T: H) (1 + 170) ,T: NEXT T,I 
I-P200,0JA«: *-P155,170" {3SPACEJ0" 

»-P150, 10UR«: *-P20,0TE*: t-P0,10GR* 
f-P0,170KL*: GOSUB 1950: AD= 190: GOSUB 21 
30:GOTO 3270 
INPUT F* 

*-T: PR I NT “ {CLR, 3D0WN, RED, 2SPACE JERWE l T 
ERUNG “ : PR I NT " ===================== 


< 131 > 
<178> 
< 188 > 

<039> 

< 151 > 

<092> 

<223> 

<139> 

< 156> 

< 198> 
<244> 

<172> 

< 165> 

< 194> 

<246 > 

<064> 

<074> 

< 130> 
< 220 > 
<013> 
<064 > 

<228> 


<023> 

< 222 > 


<039> 

<038> 

<129> 

<017> 

<097> 
< 170> 
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1830 PRINT:PRINT:PRINT"{BREY 1,4SPACE,RVSO 
N>F 1{RVOFF,SPACE>= GRAFIK AUSDRUCKEN 
": IF ET*<>""THEN I960 
1840 PRINT:PRINT"{4SPACE,RVSONIF 3{RV0FF,S 
PACE>= DURCHSCHNITT" 

1850 PRINT:PRINT"{4SPACE,RVSON>F 5{RVOFF,S 
PACE>= WENDEPUNKTE" 

1860 PRINT:PRINT"C4SPACE,RVSON)F 7CRVOFF.S 
PACE>= WEITER"' 

1870 GOSUB 4470 

1880 DN F GOTO 1900,3400,3650,3330 
1890 GOTO 1820 

1900 INPUT"<CLR,2D0WN,RED,2SPACEIDRUCKER A 
N“;F* 

1910 PRINT:INPUT"{GREY 1,2SPACE > TABULATOR: 
";TB:IF TB<0 OR TB>40 THEN 1910 

1920 REM - STARTEN DES AUSDRUCKS - 

1930 SYS 50944,TB,14:BOTO 1820 

1940 REM - LINIEN ZEICHNEN - 

1950 IF EB=3 THEN 2060 
1960 FOR 1=0 TO AA—1:T=1:F=0 
1970 IF K <I+T><=0 THEN T=T+1:F=2:IF flA-I<T 
THEN F=0:RETURN 

1980 IF F=2 THEN F=0:GOTO 1970 
1990 IF K CI ) < =0 THEN 1 = 1 + 1 
2000 IF I=AA THEN RETURN 

2010 IF B=5 THEN Y=170-<LOG(K(I))-LOG(KL)) 
»LG:Y1=170-(LOG(K(I+T)>-LOG(KL>> »LG 
2020 IF B=5 THEN:+L<AD+I+AB),Y TO(AD+(I+T) 
»AB),Y1:GOTO 2040 

2030 *-L(AD+I*AB> , (170-(K < I)-KL) *AC) TO (AD+( 
I+T)*AB),<170—(K <I+T)—KL)*AC) 

2040 NEXT I:RETURN 

2050 REM - HOCH-TIEF-BALKEN - 

2060 FOR 1=0 TO AA STEP 2 

2070 IF B=5 THEN Y=170-(LOG(K<I>>-LOG(KL)> 
»LG:Y1=170—(LOB(K(1+1)> —LOG(KL))»LG:G 
OTO 2090 

2080 Y=170—(K(I)—KL)»AC:Y1=170—(K(1+1)—KL) 
»AC 

2090 AJ=INT(100/AA):IF AJ>7 THEN AJ=7 
2100 FOR T=0 TO AJ:+L(AD+I»AB+T),Y TO(AD+I 
*AB+T),Y1:NEXT T 
2110 NEXT I:RETURN 

2120 REM-UMSATZ ZEICHNEN- 

2130 FOR 1=0 TO AA:HU=170-U(I)*AZ 
2140 IF HU>=170 THEN NEXT I:RETURN 
2150 IF HU<9 THEN HU=9 
2160 AJ=INT(100/AA):IF AJ>7 THEN AJ=7 
2170 FOR T=0 TO AJ:+L(AD+T+I*AB),HU TO(AD+ 
T+I»AB),170:NEXT T,I:RETURN 
2180 PRINT"£CLR,2D0WN,RED,2SPACEIUEBERSICH 
T":PRINT"============================ 

2190 PRINT:PRINT:PRINT"{GREY 1,4SPACE, RVSO 
NIF 1£RVOFF,SPACE>= FREIER ZEITRAUM" 
2200 PRINT:PRINT"{4SPACE,RVSON}F 3{RV0FF,5 
PACE >= MONAT" 

2210 PRINTiPRINT"{4SPACE,RVSONJF 5 CRVQFF.S 
PACE >= JAHR" 

2220 PRINT:PRINT"C4SPACE,RVSON>F 7CRVOFF,S 
PACE>= JAHRE" 

2230 PRINT:PRINT"{4SPACE,RVSON>F 8<RVOFF,S 
PACEI“ HAUPTMENUE" 

2240 GOSUB 4470:ON F GOTO 2260,2400,2470,2 
480,180,180 
2250 GOTO 2180 

2260 PRINT"<CLR,3D0WN,RED,2SPACEIFREIER ZE 
I TRAUM " : PR I NT " ===================== 


<024> 


<060> 
< 170 > 

<221 > 


2340 PRINT:PRINT:PRINT"£GREY 1,2SPACE>ANFA 
NGSTAG EINGEBEN":AF=1:GOSUB 4520 
2350 PRINT:PRINT:INPUT"{2SPACEIZEITRAUMLAE 
NGE IN TAGEN:”;AA:AA=AA—1:AB=270/AA:A 
D=30 

2360 GOTO 3030 

2370 PRINT”{CLR,2D0WN,RED,2SPACE>ZEITRAUME 
NDE EINGEBEN“ : PRINT"================= 


<225> 

<104> 
<226> 
<244 > 

<039> 

<037> 
<216> 
<031 > 
<075> 
< 103> 
<156> 


<096> 
< 012 > 
< 186> 
<090> 

<037> 

<153> 

<190> 
<206> 
<239> 
< 194> 


<033> 

< 202 > 

<008>a 

<019> 
< 022 > 
<2I4> 
<069 > 

< 114> 
<087> 
<078> 

<059> 


<225> 

<015> 

< 114 > 
<207> 
<142> 
<098> 

<218> 

< 183> 

<230> 


2380 PRINT:PRINT:INPUT"{BREY 1.2SPACEIZEIT 
RAUMLAENGE IN TAGEN:AF:AA=AF-1 
2390 PRINT:PRINT:PRINT"<2SPACE>ENDTAG EING 
EBEN:“:GOSUB 4520:AB=270/AA:AD=30:GOT 
O 3030 

2400 PRINT“{CLR,2D0WN,RED,2SPACE>MONAT“:PR 


2410 PRINT:PRINT:INPUT"<GREY 1,2SPACE>M0NA 
T: " ;.MT: PRINT: INPUT" {2SPACE>JAHR: " j JR: 
MT*=STR*(MT):JR*=STR»(JR) 

2420 GOSUB 4740:1=0 

2430 INPUT#2,A,A,A,A,A,A,A,A,A,A,A,A:1=1+1 

2440 IF ST<>64 THEN 2430 

2450 CLOSE 2:AA=I—1:GOSUB 4740 

2460 AB=270/AA:AD=30:GOTO 3030 

2470 EE*="I JAHR":EE=1:GOTO 2490 

2480 EE*="JAHRE":EE=2 

2490 PRINT"{CLR,2D0WN,RED,2SPACE3AUSGABEFO 
RM": PRINT" i ~ '■ 


2500 PRINT:PRINT:PRINT“{GREY 1,2SPACE>“EE* 
2510 PRINT:PRINT"{4SPACE,RVSON>F 1{RVOFF,S 
PACE>= MONATS-DURCHSCHNITT" 

2520 PRINT:PRINT"{4SPACE,RVSONIF 3{RV0FF,S 
PACE >= KONTINUIERLICH" 

2530 PRINT:PRINT"{4SPACE,RVSDN>F 5{RVOFF,S 
PACE>= MONATS-HOCH-TIEF-WERTE" 

2540 GOSUB 4470:UN F GOTO 2570,2780,2870,2 
550 

2550 GOTO 2490 

2560 REM - DURCHSCHNITTE BERECHNEN - 

Qn5in#3»* s «eE=l THEN PRINT: INPUT" {2SPACEUAHR 
:JR:JR*=STR*(JR> 

2580 IF EE=2 THEN JRS=STRS(JE) 

2590 MT*-" 1":ET*="DURCHSCHN " 

2600 IF VAL(JR*)=JE THEN MT*=STR*(ME) 

2610 1=0:T=0:OPEN 3,8,3, "0: "+KA*+"-AICTIE 1 
3 00,S,W":GOSUB 4740 

2620 KF(1)=0:UF(1)=0:KH(1)=0:UH(1)=0:KB(1) 
=0:UB(1)=0:KD(1)=0:UD(1> =0:CI(1)=0 
2630 INPUT#2,A,M0*,JA*,KF,UF,KH,UH,KB,UB,K 
D,UD,CI 

2640 IF KF=0 OR UF=0 OR KH=0 OR UH=0 OR KB 
=0 OR UB=0 OR KD=0 OR UD=0 OR CI=0 TH 
EN 2670 

2650 KH(1)=KH(1> +KH:UH(1)=UH(1)+UH:KB(1)=K 
B(1)+KB:UB(1)=UB(1)+UB:KD(1)=KD(1> +KD 
2660 KF(1)=KF(1)+KF:UF(1)=UF(1> +UF:UD(1)=U 
D(1)+UD:CI(1)=CI(1)+CI:1=1+1 
2670 IF ST<>64 THEN 2630 

2680 CLOSE 2:T=T+1:KF=KF(1)/I:UF=UF(1)/I:K 
H=KH(1)/I:UH=UH(1)/I:KB=KB(1)/I:F=0 
2690 UB=UB(1)/1:KD=KD(1)/1:UD=UD H)/1:CI=C 
I(1>/1: PRINT#3,MO*:PRI NT#3 ,JA*:PRINT# 
3,"00" 

2700 PRINT#3,KF:PRINT#3,UF:PRINT#3,KH:PRIN 
T#3,UH:PRINT#3,KB:PRINT#3,UB:PRINT#3, 
KD: PR I NT#3, UD: PR I NT#3, CI 
2710 IF VAL(JR#)=JL AND VAL(MT*)=ML THEN C 
LOSE 3:AA=T—1:MT*=“ 13":JR*=" 00":BOS 
UB 4740:F=3 


2270 PRINT:PRINT:PRINT"{GREY 1,45PACE,RVS0 
NIF 1{RVOFF,SPACE>= ALLE GESPEICHERTE 
N TAGE" <137> 

2280 PRINT:PRINT"{4SPACE.RVS0NIF 3{RV0FF,S 

PACEJ= ZEITRAUMANFANS EINGEBEN" <033> 

2290 PRINT:PRINT"{4SPACE,RVSONIF 5{RV0FF,S 

PACE>= ZEITRAUMENDE EINBEBEN" <221> 

2300 GOSUB 4470:ON F GOTO 2320,2330,2370 <040> 

2310 GOTO 2260 <196> 

2320 GOSUB 4760:AB=270/AA:AD=30:MM=0:GOTO 

3030 <018> 

2330 PRINT"{CLR,2D0WN,RED,2SPACEIZEITRAUMA 
NFANG EINGEBEN":PRINT"-—========—== 


2720 IF F=3 THEN AB=270/AA:AD=30:F=0:MM=0: 
GOTO 3030 

2730 IF MT*=" 12"THEN F=2:IF EE=1 THEN JR* 
=STR*(JL):MT*=STR*(ML):GOTO 2710 
2740 IF F=2 AND EE=2 THEN MT*=" 1":JR*=STR 
*(VAL(JR*)+1):GOTO 2760 
2750 MT*=STR*(VAL(MT*)+1) 

2760 1=0:GOSUB 4740:GOTO 2620 

2770 REM - KONTINUIERLICH - 

2780 PRINT:INPUT"{2SPACEIJAHR:";JR:JR*=STR 
*(JR):MTS—" 1“:IF JR=JE THEN MT*=STR* 

(ME) 


•I 


<092> 


Listing. Aktienverwaltung (Fortsetzung) 


< 120 > 


<036> 

<126> 

<215> 

< 112 > 

<252> 


<149> 


<089 > 
<237> 
<082 > 
<201 > 
<213> 
<217> 
<225> 
<252> 


<233> 

<192> 

<227> 

<053> 

<081 > 

<090> 

<053> 

< 212 > 

<114> 

<074> 

<144> 

<242> 

<07B> 

<242> 

<005> 


<1B6> 

<075> 

<049> 

<193> 

< 148> 

<123> 

< 022 > 


<172> 

<076> 


< 104> 

<048> 
<06B> 
<065> 
<241 > 


<0B4> 
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2790 

MN*=MT*:I=0:GOSUB 4740 

<046> 

3250 

IF E=3 THEN:AD=40:GOSUB 2130:GOTO 327 


2800 

INPUT#2,A,A,A,A,A,A,A,A,A,A,A,A:1=1+1 

< 198> 


0 

<048> 

2810 

IF ST<>64 THEN 2800 

<045> 

3260 

GOTO 3030 

<008> 

2820 

CLOSE 2:IF JR=JL AND VAL(MT*)=ML THEN 


3270 

GET F*:IF F*="“THEN 3270 

< 125> 


2850 

< 109> 

3280 

t-T: INPUT" CCLR,3DOWN,RED,2SPACEJAUSDRU 


2830 

IF MT*=" 12"THEN 2850 

<043> 


CKEN";F*:IF F*<>"J"THEN 3350 

<082> 

2840 

MT*=STR*(VAL(MT*)+1):GOSUB 4740:GOTO 


3290 

PRINT:PRINT:INPUT"C2SPACE5DRUCKER AN" 



2800 

<094> 


5 F* 

<084> 

2850 

AA=I —1 = MT*=MNS:GOSUB 4740:AD=30:AB=27 


3300 

PRINT:INPUT"CGREY 1,2SPACE}TABULAT0R: 



0/AA:MM=0:GOTO 3030 

<046> 


";TB:IF TB<0 OR TB>40 THEN 3300 

<101> 

2860 

REM - HOCH-TIEF-WERTE - 

<075> 

3310 

REM - STARTEN DES AUSDRUCKS - 

<080 > 

2870 

E8=3:IF EE=1 THEN PRINT:INPUT"C2SPACE 


3320 

SYS 50944,TB,14:GOTO 3280 

<165> 


>JAHR:■;JR:JR*=STR*(JR) 

<224> 

3330 

MT*=MN*:JR*=JH*:IF MM=0 THEN GOSUB 47 


2880 

IF EE=2 THEN JR*=STR#(JE> 

<120> 


40:GOTO 3030 

<236> 

2890 

MT*=" 1 ” : ET*="HOCH—TIEF “:IF VAL(JR*) 


3340 

GOSUB 4550:GOTO 3030 

<106> 


=JE THEN MT*=STR*(ME) 

<013> 

3350 

MT*=MN*:JR*=JH*:IF MM=0 THEN GOSUB 47 


2900 

1=0:OPEN 3,8,3,"+KA*+"-AKTIE 13 00 



40:GOTO 3370 

<011> 


,S,W":GOSUB 4740 

<111> 

3360 

GOSUB 4550 

<250> 

2910 

KL=500:MF=500:MH=500:MB=500:MD=500:GR 


3370 

IF AB=30 AND AA=4 THEN 1080 

<216> 


=0:GF=0:GH=0:GB=0:GD=0:UI=0:GI=0 

<007> 

3380 

GOTO 3030 

< 130> 

2920 

MI=5000 

<034> 

3390 

REM - DURCHSCHNITTSKURVE - 

<236> 

2930 

INPUT#2,TA*,M0*,JAS,KF,UF,KH,UH,KB,UB 


3400 

IF ET*< >'' "THEN 1820 

< 169> 


,KD,UD,CI:DR=1:GOSUB 1240:DR=0 

<050> 

3410 

IF A2=l THEN 1820 

<038> 

2940 

IF ST<>64 THEN 2930 

<233> 

3420 

NN=MM:ZA=AA:AA=100:MT*=MN*:JR*-JH*:AF 


2950 

CLOSE 2:I=I+1:PRINT#3,M0*:PRINT#3,JA* 



=100:IF TG*=""THEN TG*="00" 

<129> 


:PRINT#3, "00":PRINT#3,MF:PRINT#3,UI:P 


3430 

GOSUB 4580 

< 189> 


RINT#3,MH:PRINT#3,UI 

<028> 

3440 

ZZ=—1:FOR 1=0 TO ZA:K(I)=0:NEXT I:ZB= 


2960 

PR I NT#3 , MB: PR I NT#3 , UI: PR I NT#3, MD: PR IN 



AA:AA=INT(ZA+ZB)-1:ZC=0:T=-l 

<211> 


T #3,UI:PRINT#3,MI:PRINT#3,"<2SHIFT-SP 


3450 

FOR 1=0 TO AA 

<031 > 


ACE >":PRINT#3,JA*:PR1NT#3,"00":PRINT# 


3460 

KH=KF:ZZ=ZZ+1:IF ZZ>ZA THEN ZZ=ZA 

<166> 


3,GF:PRINT#3,UI 

<139> 

3470 

IF I/5=INT(1/5)THEN T=T+lsIF I>ZB THE 


2970 

PRINT#3,GH:PRINT#3,UI:PRINT#3,GB:PRIN 



N ZC=ZC+5 

<207 > 


T#3,UI:PRINT#3,GD:PRINT#3,UI:PRINT#3, 


3480 

IF BB=1 THEN INPUT#2,A,A,A,KF,A,A,A,A 



Gl 

<015> 


,A,A,A,A:GOTO 3530 

<126> 

2980 

IF VAL(JR*)=JL AND VAL(MT*> =ML THEN 3 


3490 

IF BB=2 THEN INPUT#2,A,A,A,A,A,KF,A,A 



020 

<010> 


,A,A,A,A:GOTO 3530 

< 199> 

2990 

F=0:IF MT*=" 12"THEN F=3:IF EE=1 THEN 


3500 

IF BB=3 THEN INPUT#2,A,A,A,A,A,A,A,KF 



3020 

<183> 


,A,A,A,A:GOTO 3530 

<017> 

3000 

IF F=3 AND EE=2 THEN MT*=" 1":JR*=STR 


3510 

IF BB=5 THEN INPUT#2,A,A,A,A,A,A,A,A, 



*(VAL(JR*> +1>:GOSUB 4740:GOTO 2910 

< 197> 


A,KF,A,A:GOTO 3530 

< 155> 

3010 

MT*=STR*(VAL(MT*)+1):GOSUB 4740:GOTO 


3520 

IF BB=4 THEN INPUT#2,A,A,A,A,A,A,A,A, 



2910 

<020> 


A , A , A , KF 

< 128> 

3020 

CLOSE 3:AA=I*2-1:MT*=" 13”:JR*»" 00"! 

r 

IF KF<=0 THEN KF=KH 

< 178> 


GOSUB 4740:AB=270/AA:AD=30«MM=0:GOTO 


3540 

FOR Q=ZC TO ZZ STEP 5:K<I-T#5+Q)=K(I- 



3030 

<215> 


T*5+Q)+KF:NEXT Q 

<133> 

3030 

PRINT”CCLR,3D0WN,RED,2SPACE >AUSGABEFO 


3550 

IF ST=64 THEN GOSUB 4820 

<126> 


RM” : PRI NT 


3560 

NEXT I:*-G15: CLOSE 2 

<009 > 


== ====== = = = = '■ 

<182> 

3570 

FOR 1=0 TO ZA:K(I)=K(I)/INT((ZB-l)/5+ 


3040 

B=0:PRINT:PRINT:PRINT"{GREY 1,4SPACE, 



1>:NEXT I 

<203> 


RVSONJF 1CRVOFF,SPACE>= ZAHLENWERTE”: 


3580 

AA=ZA:FOR 1=0 TO AA-1 

<046 > 


MN*=MT*:JH*=JR*:A2=0 

<133> 

3590 

IF B=5 THEN Y=170-(LOG(K(I)>-LOG(KL)> 


3050 

PRINT:PRINT"C4SPACE,RVSON >F 3 CRVOFF,S 



»LG:Yl = l70—(LOG(K(I + 1))—LOG(KL)> »LG:G 



PACE>= KURSGRAFIK" 

< 166> 


OTO 3610 

<186> 

3060 

PRINT:PRINT“C4SPACE,RVSON >F 5 CRVOFF,S 


3600 

Y=170—(K(I)-KL)*AC:Yl=170—(K(1+1)-KL) 



PACEJ= UMSATZGRAFIK" 

<032> 


»AC 

< 193> 

3070 

PRINT:PRINT"<4SPACE,RVSON >F 7 LRVOFF,S 


3610 

XY=(Y1—Y)/AB:FOR T=(I*AB)TO((I+l)»AB) 



PACE>= HAUPTMENUE“ 

< 175> 


STEP 2:X=XY*(T-I*AB> +Y:IF X<10 OR X>1 


3080 

GOSUB 4470:ON F GOTO 1170,3110,3130,1 



70 THEN 3630 

<101> 


80 

<039> 

3620 

+DAD+T,X 

<043> 

3090 

GOTO 3030 

<094> 

3630 

NEXT T,I:A2=l:MM=NN:GOTO 1810 

<177> 

3100 

REM - GRAFIKAUSGABE - 

<135> 

3640 

REM - WENDEPUNKTE VERBINDEN - 

<21B> 

3110 

INPUT"CCLR,3D0WN,2SPACE >LOG. DARSTELL 


3650 

IF ET*< >”"THEN 1820 

< 165 > 


UNG (J/N)";F*:IF F*="J"THEN B=5 

< 178> 

3660 

A3=l:AI=INT(AA/3):G0=0:KO=5000:RG=0:L 


3120 

TE*=ET*+"KASSAKURSE ”:AD=30:GOTO 3140 

<131 > 


K=5000:IF A2=l THEN 1820 

< 1B2> 

3130 

TE*="UMSATZ IN STUECK, ":AD=40 

<125> 

3670 

+G15:FOR 1=0 TO AI-1:IF K(I)>G0 THEN 


3140 

E=F:GOSUB 3960:«LAD,10 TU AD,170:FLAD 



G0=K(I):X1=1 

<06 7 > 


,170 TO 320,170 

< 143> 

3680 

IF KIIXKO AND K (I) >0 THEN K0=K(I):X3 


3150 

IF E=3 THEN AC=AZ:GOTO 3180 

<039> 


= 1 

<243> 

3160 

IF B=5 THEN LG=160/(LOG(GR)-LOG(KL)>: 


3690 

NEXT I 

<21B> 


FOR I=KL TO GR STEP(INT(9/AC)+1) 

< 156> 

3700 

FOR I=AI TO INT(AI*2> —1 

< 139> 

3170 

IF B=5 THEN Y=170-(LOG(I)-LOG(KL))*Lß 


3710 

IF K(I)>RG THEN RG=K(I):X2=I 

< 191 > 


:FOR T=25 TO 320 STEP 5:+DT,Y:NEXT T, 


3720 

IF K(IXLK AND K (I) >0 THEN LK=K (I) : X4 



I:GOTO 3190 

<148> 


= 1 

<000> 

3180 

FOR 1=10 TO 170 STEP(AC*(INT(9/AC)+1) 


3730 

NEXT I:WA=0:WB=X2»AB:AW=0:BW=X4»AB 

<211 > 


):FOR T=AD—5 TO 320 STEP 5;+DT,I:NEXT 


3740 

IF B=5 THEN Y=170-(LOG(G0)-LOG(KL))*L 



T,I 

<006> 


G:Y1=170—(LOG(RG)—LOG(KL))»LG:GOTO 37 


3190 

FOR I=AD TO 320 STEP<AB»(INT(AA/12)+1 



60 

<061 > 


) ) : FOR T = 10 TO 175 STEP 4: t-DI , T: NEXT 


3750 

Y=170—(G0—KL)»AC:Yl=170-(RG-KL)»AC 

<074> 


T,1 

<234> 

3760 

XY=(Y1-Y)/(X2*AB-X1*AB) 

< 105> 

3200 

+P280,0;11JA*:«-P40,0TE* 

<187> 

3770 

T= X Y*(WA-X1*AB)+Y:T1=XY*(WB-Xl»AB)+Y: 


3210 

IF E=2 AND B=5 THEN:+P0,0"LOG":GOTO 3 



IF T<10 THEN T=10:WA=(T-Y)/XY+X1*AB 

<094> 


230 

<048> 

37B0 

IF Tl<10 THEN Tl=10:WB=(Tl-Y)/XY+X1*A 


3220 

IF E=2 THEN: i-P0,0"NORM" 

< 144> 


B 

< 193> 

3230 

IF E=2 THEN:*-P0,10GR*:+P0,170KL*:AD=3 


3790 

IF T>170 THEN T=170:WA=(T-V)/XY+X1*AB 

< 176> 


0:GOSUB 1950:GOTO 1810 

<124> 

3800 

IF Tl>170 THEN Tl=170:WB=(Tl-Y)/XY+Xl 


3240 

IF E=3 THEN:+P0,170"C4SPACE50":*-P0,10 



»AB 

<040> 


UR* 

<045> 

3810 

ILWA+AD.T TO WB+AD.Tl 

<083> 
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3820 

IF B=5 TUEN Y=170-(LOG(KD)—LÜG(KL)> *L 


4290 

U CI)=U1+U2+U3+U4 

<037> 


Gs Y1 = 170—(LOG(LK)—LÜG <KL>)*LB:GOTO 38 


4300 

GOSUB 4330:IF TS=64 THEN GOSUB 4820 

<031 > 


40 

<206> 

4310 

NEXT I:CLOSE 2:TE*=TE*+"INSGESAMT":IE 


3830 

Y=170-(KO-KL)*AC:Y1=170-(LK-KL)*AC 

<047 > 


AA=4 AND AB=30 THEN TE»=“COM-lND/GES 


3840 

XY=(Y1-Y)/(X4»AB-X3*AB> 

<092> 


.UM" 

<018> 

3850 

T=XY»(AW-X4*AB)+Y1:T1=XY*(BW-X4*AB)+Y 


4320 

GOTO 4440 

<156> 


1:IF T<10 THEN T=10:AW=CT-Yl>/XY+X4+A 


4330 

IF ST=64 THEN TS=64 

<046> 


B 

<216> 

4340 

IF 1=0 THEN TG*=TA* 

< 099 > 

3860 

IF Tl<10 THEN T1=10:BW=(TI—Yl)/XY+X4* 


4350 

IF I /AT=INT (I/AT) THEN: «-* (AD+T+AB-8) , 1 



AB 

< 095 > 


B0TA* 

<208> 

3870 

IF T>170 THEN T=I70;AW=(T-Vl)/XY+X4+A 


4360 

IF VAL (MO*) < >I1Q AND I/AT=INT(I/AT)THE 



B 

<109> 


N MQ=VAL CMO*):«=•CAD+I*AB-B>,190MO* 

<002> 

3880 

IF T1>170 THEN T1=170:BW=(Tl-VI)/XY+X 


4370 

IF AB=30 AND AA=4 1 HEN: +P (190+1 *AB-8> 



4*AB 

<16B> 


,1B0TA* 

<231 > 

3890 

+LAW+AD.T TO BW+AD.Tl 

<087> 

4380 

IF KCl> <=0 AND U(I)<=0 THEN RETURN 

<000> 

3900 

IF A3=0 THEN 1810 

<224> 

4390 

IF KCl)>=GR THEN GR=INTCK(I))+1 

<072> 

3910 

G0=0:KO=5000:FOR I=INT(AI*2)TD AA 

<141> 

4400 

IF KCl)=<KL AND K(I>>0 THEN KL=1NTCKC 


3920 

IF KCl)>=G0 THEN G0=K(I):X1=I 

<245> 


I)) 

<253> 

3930 

IF KCl)=<KO AND KCI)>0 THEN KO=K(I):X 


4410 

IF U CI)>=UR THEN UR=INTCUCI)) 

< 123> 


3=1 

<073> 

4420 

RETURN 

< 160 > 

3940 

NEXT I:A3=0:WA=X2«AB:WB=290:AW=X4*AB: 


4 430 

GR*=RIGHT*(STR* CGR),3):KL*=RIGHT*(STR 



BW=290 

<208 > 


»(KL),3):AC=160/(GR-KL) 

<014> 

3950 

GOTO 3740 

<080> 

4440 

UR*=RIGHT*(STR* CUR),5):AZ=160/UR:RETU 


3960 

PRINT"<CLR,2D0WN,RED,13SPACE>BOERSE": 



RN 

<060> 

3970 

UR=0 

<007> 

4450 

PRINT"<CLR,3D0WN,6SPACE>P R 0 G R A M 
M - E N D E" 

CLOSE 2: CLOSE 15: +E: PRINT" <3DOWN>" : EN 
D 

<125> 

<032> 

4460 

3980 

PRINT:PRINT:PRINT"<GREY 1,4SPACE,RVSD 

< 006 > 


N)F 1<RVDFF,8PACE)= FRANKFURT" 

<032> 

4470 

F=0:GET F*:IF F*=""THEN 4470 

<223> 

3990 

PRINT:PRINT"C4SPACE,RVSONJF 3TRVDFF.S 


4480 

F=ASC CF»)—132:IF F=7 OR F=8 THEN F=F- 



PACE>= HANNOVER" 

<078> 


2 

< 127> 

4000 

PRINT:PRINT"T4SPACE,RVSON>F 5TRV0FF,S 


4490 

IF F<1 OR F>6 THEN 4470 

<077> 


PACE>= HAMBURG" 

<104> 

4500 

RFTURN 

< 240 :> 

4010 

PRINT:PRINT"<4SPACE,RVS0NIF 6<RVOFF,S 


4510 

REM - EINLESEN DER DATEIEN - 

<233> 


PACE>= DUESSELDORF" 

<075> 

4520 

PRINT:INPUT"C2SPACE>TAGTG*:PRINT: IN 


4020 

PRINT:PRINT"{4SPACE,RVSON >F 7 TRVOFF,S 



PUT " C2SPACE > MONAT " ; MT: PR I NT: INPUT •' <2S 



PACE>= COMMERZBANK INDEX" 

<16B> 


PACEJJAHR";JR:MT*=STR*(MT) 

<044> 

4030 

PRINT:PRINT"I4SPACE,RVSDNJF 8 CRVOFF,S 


4530 

JR*=STR*(JR):IF AE=7 THEN RETURN 

<025> 


PACE>= UMSAETZE INSGESAMMT" 

<231 > 

4540 

GOTO 4580 

<0U> 

4040 

GOSUB 4470: +G15: <-C: «5320,200; 11: AT=IN 


4550 

GOSUB 4740:IF AE=5 THEN RETURN 

<130> 


T(AA/12)+1:BB=F 

<197> 

4560 

FOR 1=1 TO MM:INPUT#2,TA*,MO*,JA*,A,A 


4050 

ON F GOTO 4070,4100,4130,4190,4160,42 



,A,A,A,A,A,A,A 

<173> 


60,4060 

<054> R 

Of*ä7«*«fc.r I: RETURN 

<196> 

4060 

GOTO 3960 

<030> 

45B0 

1=0:GOSUB 4740:IF TG*="00"THEN 4620 

<227 > 

4070 

MO=15:KL=500:GR=0:FOR 1=0 TO AA:INPUT 


4590 

INPUT#2,TA*,A,A,A,A,A,A,A,A,A,A,A:1=1 



#2,TA»,MO»,JA*,KCl),UCI),A*,A*,A*,A», 



+ 1 

<086> 


A*,A*,A* 

<129> 

4600 

IF TG*=TA*THEN 4620 

<053 > 

4080 

GOSUB 4330:IF TS=64 THEN GOSUB 4820 

<065> 

4610 

IF ST<>64 THEN 4590 

<197> 

4090 

NEXT I:CLOSE 2:TE*=TES+"FRANKFURT”:GO 


4620 

CLOSE 2 

<067> 


TO 4430 

<234> 

4630 

IF I>AF THEN MM=I-AF:GOTO 4550 

<0B5> 

4100 

MO=15:KL=500:GR=0:FOR 1=0 TO AA:INPUT 


4640 

IF I=AF THEN MM=0: GOSUB 4740 .-RETURN 

<1S0> 


#2,TA*,MO*,JA*,A*,A*,KCI),UCI>,A*,A», 


4650 

IF I<AF THEN MB=AF-I:IF VAL(MT*)=ME A 



A*,A*,A* 

<145> 


ND VAL(JR*)=JE THEN AA=AA-MB:MM=0:GOS 


4110 

GOSUB 4330:IF TS=64 THEN GOSUB 4820 

<097> 


UB 4740:RETURN 

<176> 

4120 

NEXT I:CLOSE 2:TE*=TE*+"HANNOVER":GOT 


4-£>&0 

MT*=STR*(VAL CMT»)—1):IF VAL(MT*>=0 TH 



0 4430 

<222> 


EN MT*=" 12":JR*=STR*(VALCJR»)-I) 

< 1 09 > 

4130 

MO=15:KL=500:GR=0:FOR 1=0 TO AA:INPUT 


4-6/0 

1=0:GOSUB 4740 

<066> 


#2,TA»,MO»,JA»,A*,A*,A*,A*,KCI),UCI>, 


4B80 

INPUT#2,TA*,A,A,A,A,A,A,A,A,A,A,A:1=1 



A*,A*,A* 

<235> 


+ 1 

<17B> 

4140 

GOSUB 4330:IF TS=64 THEN GOSUB 4820 

<127> 

4690 

IF STO-64 THEN 4680 

<013> 

4150 

NEXT I:CLOSE 2:TE*=TE*+"HAMBURG":GOTO 


4-300 

CLOSE 2:IF MB<I THEN MM=I-MB:GOTO 455 



4430 

< 144> 


0 

<012> 

4160 

MO=15:KL=500:GR=0:FOR 1=0 TO AA:INPUT 


4710 

IF MB=I THEN MM=0:GOSUB 4740:RETURN 

<223> 


#2,TA*,M0*,JA*,A*,A*,A*,A*,A*,A*,KCI> 


4720 

IF MB>I THEN MB=MB—I:IF VAL CMT»)=ME A 



,UCI),A* 

<025> 


ND VAL(JR*)=JE THEN AA=AA—MB:MM=0:GOS 


4170 

GOSUB 4330:IF TS=64 THEN GOSUB 4820 

<157> 


UB 4740:RETURN 

<238> 

4180 

NEXT I:CLOSE 2:TE*=TE*+"DUESSELDORF": 


4730 

GOTO 4660 

<154> 


GOTO 4430 

<081 > 

4740 

IF A1=0 THEN PRINT"{HOME>"SPC(33)"<RE 


4190 

IF E< >2 AND AA>7 THEN: *-T: GOTO 3960 

<249> 


D,RVSON>WARTEN<RVOFF,GREY l}":FOR A=1 


4200 

MO=15:KL=5000:GR=0:FOR 1=0 TO AA:INPU 



TO 10:PRINT:PRINT:NEXT A 

< 1 48 > 


T#2,TA#,M0S,JA*,A,A,A,A,A,A,A,A,K(I> 

<134> 

4750 

OPEN 2,8,2,KA*+"-AKTIE"+MT*+JR*+“,S,R 


4210 

GOSUB 4330:IF TS=64 THEN GOSUB 4820 

< 197> 


":GOSUB 5070:RETURN 

< 191 > 

4220 

NEXT I:CLOSE 2:TE*=ET*+"COMMERZBANK I 


4760 

1=0:MT*=STR*(ME):JR*=STR*(JE >:GOSUB 4 



NDEX |:GR»=RIGHT* CSTR» CGR) ,4):KL*=RIGH 



740 

<014> 


T*(STR* CKL),4) 

<024> 

4770 

INPUT#2 , A, A, A , A , A, A, A , A , A , A, A , A:1=1+1 

<136> 

4230 

AC=160/CGR-KL):IF AA=4 AND AB=30 THEN 


4780 

IF BTOA4 THFN 4770 

<095> 


MT*=MN»:JR*=JH»:IF MM=0 THEN GOSUB 4 


4790 

CLOSE 2:IF VAL CMT»)=ML AND VAL(JR»)=J 



740:GOTO 4280 

< 121 > 


L THEN AA=I-1:MT*=STR*(ME>:JR*=STR*(J 


4240 

IF AA=4 AND AB=30 THEN GOSUB 4550:GOT 



E):GOSUB 4740:RETURN 

<225> 


0 4280 

<24B> 

4000 

MT*=STR* CVAL(MT*)+1>:IF MT*=" 13"THEN 


4250 

RETURN 

<244> 


MTS=“ 1":JR*=STR*(VAL(JR*)+1) 

<216> 

4260 

IF E<>3 AND AA< >4 AND AB<>30 THEN:+T: 


4810 

G0BU8 4740:GOTO 4770 

< 112> 


GOTO 3960 

< 1 03 > 

4820 

TS=0:IF I=AA THEN RETURN 

<111> 

4270 

IF AB=30 AND AA=4 THEN 4200 

<02B> 

4830 

CLOSE 2 

<021 > 

42B0 

M0=15:UR=0:FOR 1=0 TO AA:INPUT#2,TA*, 
MO»,JA»,A,UI,A,U2,A,U3,A,U4,A:IF ST=6 


Listing. Aktien-Manager. Bitte beachten Sie die 


4 THEN TS=64 

<058> 

Eingabehinweise auf Seite 6. (Fortsetzung) 
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4840 MT*=STR*(VAL(MT*>+1>:IF VAL(MT*>=13 
HEN MT*=" 1":J R*=STR*( VAL (JR* > +1) 
4850 GOSUB 4740:RETURN 


4860 

4870 


4880 


4B90 


4910 

4920 

4930 


<055> 
<157> 
<225> 


*-T: REM-FEHLER- 

IF PEEK(52000)=4 THEN PRINT"NICHT MOE 
GLICH! <ANDERE DISK EINLEGEN!)“:GOTO 
1000 

IF PEEK(52000)=20 THEN PRINT:PRINT“NI 
CHT MOEGLICH!“:GOTO 1000 
IF PEEK(52000)=5 THEN PRINT:PRINT"DRU 
CKER/FLOPPY NICHT EINGESCHLATET!":GOT 
□ 1000 

4900 PRINT: PRINT“FEHLER"PEEK (52000) ''IN"PEE 
K(52001)+256*PEEK(52002):GOTO 1000 
INPUT#15,FE,FE* 

IF FE=0 THEN RETURN 

IF FE=62 THEN ME=VAL(MO*):JE=VAL(JA*) 

:INPUT"C2D0WN,2SPACE >FIRMA:"J NA*:CLOS 
E 2:GOTO 600 

4940 IF FE=74 THEN PRINT"C2DOWN>FLOPPY EIN 
SCHALTEN / DISK EINLEGENCLOSE 2:IN 
PUT F*:GOTO 590 

4950 PRINT:PRINT"DISK-FEHLER NR.:”FE": "FE 
*:GOTO 1000 

4960 INPUT#15,FE,FE* 

4970 IF FE=0 THEN RETURN 

4980 ET:CLOSE 2:IF FE=62 THEN OPEN 2,8,2,K 
A*+"-AKTIE"+MO*(1> +JA*(1> +",S,W":GOTO 
610 

IF FE=72 THEN 650 

IF FE=74 THEN PRINT:PRINT"FLOPPY EINS 
CHALTEN / DISK EINLEGENINPUT F*:GO 
TO 590 

5010 PRINT:PRINT"DISK-FEHLER NR.:"FE": "FE 
*:GOTO 1000 
INPUT#15,FE,FE* 

IF FE=0 THEN RETURN 

IF FE=62 THEN PRINT"(DOWNJDATEI NICHT 
AUF DISK! ANDERE EINLEBEN!“:INPUT F* 

:CLOSE 2:GOTO 180 

IF FE=74 THEN PRINT"{2D0WNTFL0PPY EIN 
SCHALTEN / DISK EINLEGEN!":CLOSE 2:IN 
PUT F#:GOTO 180 <070> 

PRINT:PRINT-DISK-FEHLER NR.:"FE": "FE 
*:GOTO 1000 
INPUT#15,FE,FE* 

IF FE=0 THEN RETURN 

t-T: IF FE=62 THEN PRINT: PRINT"NICHT MO 
EGLICH!":JE=0:GOTO 1000 

5100 PRINT:PRINT"DISK-FEHLER NR.:"FE”: "FE 
*:GOTO 1000 
INPUT#15,FE,FE* 

IF FE=0 THEN RETURN 
IF FE=62 THEN CLOSE 2:GOTO 600 
PRINT:PRINT"DISK-FEHLER NR.:"FE“: "FE 
*:GOTO 1000 
INPUT#15,FE,FE* 

IF FE=0 THEN RETURN 

IF FE=62 THEN CLOSE 2:ME=VAL(MT*):JE= 

VAL(JR*>:ML=ME:JL=JE:GOTO 6340 
PRINT:PRINT-DISK-FEHLER NR.:"FE": "FE 
*:GOTO 1000 

5190 PRINT"{HOME>"SPC(33)"{RVSON,RED)WARTE 
N{RVOFF,BREY 1>":F0R A=1 TO 10:PRINT: 

PRINT:NEXT A:OPEN 2,8,2,KA*+"-AKTIE,S 
,R":GOSUB 5020 
INPUT#2,ME,JE,ML,JL,NA* 

Z=l:CLOSE 2:AE=0:RETURN 
REM - DRUCKERZAHLENAUSGABE - 

5230 PRINT#4,"{28SPACE)"NA*"-AKTIE" 

5240 PRINT#4," 


4990 

5000 


5020 

5030 

5040 


5050 


5060 

5070 

5080 

5090 


5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 


5200 

5210 

5220 


<097> 


<125> 


<027> 

<006> 

<232> 

<213> 


<199> 


<089> 

<052> 

<026> 

<007> 


<018> 

<252> 


<033> 

< 112 > 
<086> 
<067> 


< 137> 


<162> 

<136> 

< 117> 

<204> 

< 202 > 

<176> 

< 159> 
<229> 

<244 > 
<218> 
<199> 

<033> 

<028> 


<239> 
< 202 > 
< 110 > 
<254> 
< 135> 


< 181 > 


5250 PRINT#4,“= 


<072> 


5260 PRINT#4,SPC(35)ET*:PRINT#4,SPC(20)“KA 
SSAKURSE"; 

5270 PRINT#4,SPC(21)"UMSAETZE IN STUECK" 
5280 PRINT#4:PRINT#4,"{2SPACEJDATUM«SPACE 
JFRANKFT3SPACE >HANN{4SPACE JHAMB{3SPAC 
EID-DORF "5 

PRINT#4, '• C4SPACE >FRAN . <2SPACE J HANN . <2 
SPACE3HAMB.12SPACE)D'DF.<2SPACEJINSG. 


<032> 

<017> 


< 127> 


5290 


5300 PRINT#4■" ««»«»«»««»«»»« » «»»» «♦««»»»<« 


<075> 


< 000 > 


5310 PRINT#4,"J 


5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 

5490 

5500 

n 

5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 

5690 

5700 

5710 

5720 


5740 

5750 

5760 


FOR 1=0 TO AA:INPUT#2,TA*,MO*,J A*,KF, 
UF,KH,UH,KB,UB,KD,UD,CI:IF ST=64 THEN 
TS=64 

PRINT#4,TA*"."MO*“.“JA*;:KF*=STR*(INT 
(KF)):FK*=STR*(KF):LL=LEN(FK*)-LEN < KF 

*) 

IF LL>3 THEN LL=3 

PRINT#4,SPC(5—LEN(KF*))LEFT*(FK*,LEN( 
KF*)+LL)RIGHT*(FI*,(3-LL)); 

KH*=STR*(INT(KH)):HK*=STRf <KH):LL=LEN 
(HK*)—LEN(KH*):IF LL>3 THEN LL=3 
PRINT#4,SPC(5—LEN(KH* >)LEFT*(HK*,LEN( 
KH*)+LL)RIGHT*(FI*,(3-LL)); 

KB*=STR*(INT(KB)):BK*=STR*(KB):LL=LEN 
(BK*)-LEN(KB*):IF LL>3 THEN LL=3 
PRINT#4,SPC(5—LEN(KB*)> LEFT*(BK*,LEN( 
KB*)+LL)RIGHT*(FI*,(3-LL)); 

KD*=STR*(INT(KD)):DK*=STR*(KD):LL=LEN 
(DK*)—LEN(KD*):IF LL>3 THEN LL=3 
PRINT#4,SPC(5-LEN(KD*)>LEFT*(DK*,LEN( 
KD*)+LL)RIGHT*(FI*,(3-LL)); 

UF=INT(UF):UH=INT(UH):UB=INT(UB):UD=I 
NT(UD):UG=UF+UH+UB+UD:A=9 
PRINT#4,SPC(A-LEN(STR*(UF)))UF SPC(6- 
LEN(STR*(UH)))UH SPC(6-LEN(STR*(UB))) 
UB; 

PRINT#4,SPC(6-LEN(STR*(UD)))UD SPC(6- 
LEN(STR*(UG)))UG 
IF TS=64 THEN TS=0:GOSUB 4B20 
NEXT I:CLOSE 2 

IF DD>2.6 THEN PRINTS4:PRINT#4,SPC(20 
)"<2SPACE>TENDENZ: STARK STEIGEND":GO 
TO 5510 

IF DD>1.3 THEN PRINT#4:PRINTW4,SPC(20 
)"{2SPACE1TENDENZ: LEICHT STEIGEND":6 
OTO 5510 

IF DD<—2.6 THEN PRINT#4:PRINT#4,SPC(2 
0)"{2SPACEJTENDENZ: STARK FALLEND":GO 
TO 5510 

IF DD<—1.3 THEN PRINTS4:PR1NT#4,SPC(2 
0)"{2SPACETTENDENZ: LEICHT FALLEND" 
PRINT#4:PRINT#4,SPC(20); 

GR*=STR*(INT(GR)):RG*=STR*(GR):LL=LEN 
(RG*)-LEN(GR*):IF LL>3 THEN LL=3 
PRINT#4,"{2SPACEJHOECHSTKURS:"; 

PR I NT#4 , SPC (5-LEN (GR*) ) LEFT* (RG*, LEN ( 
GR*)+LL)RIGHT*(FI*,(3-LL)>; 

PRINT#4," DM AM "TA*(1>"."MO*(1)"."JA 
*< 1 > 

PRINT#4,SPC<20); 

KL*=STR*(INT(KL)):LK*=STR*(KL >:LL=LEN 
(LK*)-LEN(KL*):IF LL>3 THEN LL=3 
PRINT#4,"{2SPACE}TIEFSTKURS t“; 

PRINT#4,SPC(5-LEN < KL*))LEFT*(LK*,LEN( 
KL*)+LL)RIGHT*(FI*,(3-LL>>; 

PRINT#4,” DM AM "TA*(2)“.“MO*(2)“."JA 
*(2> 

PRINT#4,SPC(20)"{2SPACE 5GESAMTUMSAETZ 
E:"UI“STUECK“ 

CLOSE 4:DR=0:GOTO 1660 

PRINT"<CLR,2D0WN,2SPACEJKURSE AENDERN 

": PR I NT"============================= 


PR I NT : PR I NT: PR I NT " C2SPACE >DATUM DER A 
ENDERUNG EINGEBEN:" 

AF=1:AE=5:GOSUB 4520 

OPEN 3,8,3,"@:AEND,S,W":IF MM=0 THEN 
5700 

FOR 1=1 TO MM:INPUT#2,TA*,MO*,JA*,KF, 

UF,KH,UH,KB,UB,KD,UD,CI 

PR I NT#3, TA*: PR I NT#3, MO*: PR I NT#3, J A*.- P 

RINT#3,KF:PRINT#3,UF:PRINT#3,KH 

PRINT#3,UH:PRINT#3,KB:PRINT#3,UB:PRIN 

T#3,KD:PRINT#3,UD:PRINT#3,CI:NEXT I 

I NPUT #2 , T A* , MO* , J A* , KF , UF, KH , UH , KB , UB 

,KD,UD,CI:IF ST=64 THEN 1=2 

GOSUB 580 

PRINT#3,TA*:PRINT#3,M0*:PRINT#3,JA*:P 
RINT#3,KF:PRINT#3,UF:PRINT#3,KH 
PRINT#3,UH:PRINT#3,KB:PRINT#3,UB:PRIN 
T#3,KD:PRINT#3,UD:PRINT#3,CI 
IF 1=2 THEN 5790 

INPUT#2,TA*,M0*,JA#,KF,UF,KH,UH,KB,UB 

,KD,UD,CI:IF ST=64 THEN 1=3 

PRINT#3,TA*:PRINT#3,MO*:PRINT#3,J A*:P 


<204> 

<077> 

<004> 

<116> 

<035> 

<067> 

<077 > 

< 112 > 

<033> 

<040> 

<075> 

<057> 

<082> 

<017> 
< 202 > 
<021 > 

< 113> 

<061 > 

<029> 

<153> 

<082> 

<232> 

<096> 

<069> 

<094> 

<190> 

<092> 

<125> 

<0B7> 

< 020 > 

<172> 

<225> 

< 117> 

<153> 

<055> 

<184> 

< 112 > 

< 175> 

< 177> 

< 181 > 
<226> 

<215> 

<078> 

<109> 

<007> 
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RINT#3,KF:PRINT#3,UF:PRINT#3,KH 
5770 PRINT#3,UH:PRINT#3,KB:PRINT#3,UB:PRIN 
T#3,KD:PRINT#3,UD:PRINT»3,CI 
5780 IF 103 THEN 5750 

5790 CLQSE 3:CL0SE 2:1=0:AE=1:PRINTH15,"S: 

” +K A*+ " - AKT IE “ +MT#+J R* 

5800 PRINT#15,"R:"+KA*+ M -AKTIE"+MT*+JR*"=A 
END" 

5810 GOTO 180 

5820 PRINT"{CLR,2DOWN,2SPACE>KURSE EINFUEG 

5830 PRINT:PRINT“I2SPACE > DATUM EINGEBEN:": 

AE=7:GOSUB 4520:MM=1 
5840 GOSUB 4740:1=0 

5850 INPUT#2,TA*,M0*,JAS,A,A,A,A,A,A,A,A,A 
: 1 = 1+1 

5860 IF TQ*=TA*THEN CLOSE 2:PRINT:PRINT"<2 
SPACE>DATUM SCHON VORHANDEN!":GOTO 10 
00 

5870 IF VAL(TAS)>VAL <TG#)THEN 1=1-1:GOTO 5 
910 

5880 IF ST< >64 THEN 5850 

5890 IF VAL(JR*)=JL AND VAL(MT*)=ML THEN P 
RINT:PRINT"12SPACE>KURSE NORMAL EINGE 
BEN 1":GOTO 1000 
5900 MM=0 

5910 CLOSE 2:OPEN 3,8,3,AEND,S,W":GOSUB 
4740:IF 1=0 THEN 5950 
5920 FOR T=1 TO I:INPUT#2,TA#,M0*,JA#,KF,U 
F,KH,UH,KB,UB,KD,UD,CI:PRINT*3,TA* 
5930 PRINT#3,MO#:PRINT#3,J A*:PRINT#3,KF:PR 
INT#3,UF:PRINT#3,KH:PRINT#3,UH:PRINT# 
3,KB:,PRINT#3,UB 

5940 PRINT#3,KD:PRINT#3,UD:PRINT#3,CI:NEXT 
T 

5950 TA#=TG#:AE=5:E=0:GOSUB 480:1=0 
5960 PRINT#3,TA*:PRINT#3,MO#:PRINT#3,JA*:P 
RI NT#3 , KF: PR I NT#3, UF : PR I NT#3 , KH: PR I NT 
#3,UH:PRINT#3,KB:PRINT*3,UB 
5970 PRINT#3,KD:PRINT#3,UD:PRINT#3,CI:IF M 
M=0 THEN 6010 

5980 INPUT#2,TA*,MO*,JA*,KF,UF,KH,UH,KB,UB 
,KD,UD,CI:IF ST=64 THEN 1=2 
5990 PRINT*3,TA*:PRINT#3,MO*:PRINT#3,JA*:P 
RINT#3,KF:PRINT#3,UF:PRINT#3,KH:PRINT 
#3,UH:PRINT*3,KB 

6000 PR INT#3, UB : PR I NT#3 , KD : PR I NT#3 , UD : PRIN 
T#3,CI: IF 102 THEN 5980 
6010 CLOSE 2:CLOSE 3:AE=1:1=0:PRINT#15,“S: 

"+KA*+"-AKTIE"+MT*+J R*:GOTO 5800 
6020 GOTO 180 

6030 PRINT"<CLR,2D0WN,9SPACEIUEBERSPIELEN" 
SPRINT"============================= 

6040 PRINT:INPUT-EIN ODER ZWEI LAUFWERKE < 
1/2)";F 

6050 IF FOl AND F02 THEN 6040 
6060 PRINT:PRINT"C2SPACEJWELCHEN MONAT UEB 
ERSPIELEN:PRINT:PRINT:INPUT"{2SPACE 
JMONAT:";MT 

6070 PRINT:INPUT"{2SPACEJJAHR:";JR:MT*=STR 
*(MT >:JR#=STR#(JR) 

6080 IF F=1 THEN 6190 

6090 PRINT:PRINT:PRINT”ZWEITE DISKETTE IN 
ANDERS LAUFWERK LEGEN!":1NPUT F* 

6100 GOSUB 4740:OPEN 3,9,3,KA*+"-AKTIE"+MT 
*+JR*+" ,5,W" 

6110 I NPUT#2 , TA# , MO*, JA*, KF, UF , KH , UH , KB , UB 
, KD , UD, CI 

6120 PRINT#3,TA*:PRINT#3,M0*:PRINT»3,JA*:P 
RINT#3,KF:PRINT#3,UF:PRINT#3,KH 
6130 PRINT#3,UH:PRINT#3,KB:PRINT#3,UB:PRIN 
T#3,KD:PRINT#3,UD:PRINT#3,CI 
6140 IF ST<>64 THEN 6110 

6150 CLOSE 3:CLOSE 2:OPEN 3,9,3,KA*+"-AKTI 
E,S,R":GOSUB 5150 

6160 INPUT#3,ME,JE,ML,JL,NA#:CLOSE 3:GOTO 
6310 

6170 OPEN 3,9,3,"+KA*+"-AKTIE,S,W":PRIN 
T#3,ME:PRINT#3,JE:PRINT#3,ML 
6180 PRINT#-3,JL:PRINT«3,NA*:CLOSE 3:G0T0 1 
80 

6190 GOSUB 4740:1=0 

6200 INPUT#2,TA*(I),MO*(I),JA*(I>,K(I),U(I 
),K(1+50),U(1+50),K(I+100),U(I+100) 


<255> 


<11B> 

<064> 


<081 > 


< 100 > 

< 022 > 


<059> 


< 199> 
<099> 


< 088 > 


<038> 


<253> 
< 159> 


<008> 

< 010 > 

<219> 

<035> 

<097> 

<17B> 

<03B> 

< 212 > 

<0 ^ 

<207> 

< 129> 
< 100 > 

<014> 

<234 > 

<073> 

<076> 

<094> 

<114> 

<042> 

<006> 

< 190> 

<246> 

<249> 

<105> 

<224> 

<049> 

< 118> 

<135> 

< 202 > 

<255> 
< 197 > 

<217> 


6210 INPUT#2,K(1+150),U(I+150),K(I+200) 
6220 1=1+1:IF ST<>64 THEN 6200 
6230 CLOSE 2:PRINT:PRINT"ZWEITE DISK EINLE 
GEN!":INPUT F* 

6240 OPEN 2,8,2,KA*+"—AKTIE"+MT*+JR*+",S,W 


6250 

6260 

6270 

6280 

6290 

6300 

6310 

6320 


6330 

6340 

6350 

6360 

6370 

6380 

6390 

6400 

6410 

6420 

6430 

6440 

64 


6470 


6480 

6490 

6500 

6510 

6520 

6530 

6540 

6550 

6560 

6570 

65S0 

6590 

6600 

6610 

6620 

6630 


6640 

6650 


6660 

6670 


6680 

6690 


6/00 


6 B4- 


FOR T =0 TO I—1:PRINT42,TA* CT):PRINT#2 
,MO*(T>:PRINT#2,JA#IT):PRINT»2,K(T) 
PRINT#2,U <T):PRINT#2,K(T+50):PRINTS2, 
U <T+50> : PRINT#2',K (T+100> : PRINT#2 ,U <T+ 
100) 

PRINT#2,K(T+150):PRINT»2,U(T+150):PRI 
NT#2,K(T+200> 

NEXT T:CLOSE 2 

OPEN 2,8,2,KA#+"—AKTIE,S,R":GOSUB 515 
0 

INPUT#2,ME,JE,ML,JL,NA*:CLOSE 2 
IF(VAL(JR#)=JE AND VAL(MT*)<ME)OR VAL 
(JR*XJE THEN ME=VAL(MT*):JE=VAL(JR*) 
:GOTO 6340 

IF(VAL(JR#> =JL AND VAL(MT*)>ML)OR VAL 

(JR*)>JL THEN ML=VAL(MT*):JL=VAL(JR*) 

:GOTO 6340 

GOTO 180 

IF F=2 THEN 6170 

OPEN 2,8,2,"@:"+KA*+"-AKTIE,S,W":PRIN 
T#2,ME:PRINT#2,JE:PRINT#2,ML 
PRINT#2,JL:PRINT#2,NA#:CLOSE 2:G0T0 1 
80 

REM - DATEI PRUEFEN - 

OPEN 2,8,2,KA*+"-AKTIE":GOSUB 4910 
INPUT»2,ME,JE,ML,JL,NA#:CLOSE 2 
IF VAL (JA* (1) ) < JL OR (VAL (JA* (1 > ) =JL A 
ND VAL(MO#(1))<ML> THEN 6470 
OPEN 2,8,2,KA#+"-AKTIE"+M0*(1)+JA#(1) 
+",S,R":GOSUB 5110 

INPUT#2,TG#,MT*,JR*,A,A,A,A,A,A,A,A,A 
IF TG*=TA*THEN CLOSE 2:PRINT:PRINT"DA 
TUM VORHANDEN'“:GOTO 780 
IF VAL(TG*)>VAL(TA*)THEN CLOSE 2:GOTO 
6470 

IF ST<>64 THEN 6420 
ti_iiE 2: GOTO 600 

PRINT:PRINT"C2SPACEJSPAETERES DATUM S 
CHON VORHANDEN! KURSE EINFUEGEN!":GOT 
O 780 

REM-HOECHST-TIEFST—KURSE 

KL=500:GR=0:UI=0:GF=0:GH=0:GB=0:GD=0: 

MF=500:MH=500:MB=500:MD=500 

IF VAL(JR*)=JE THEN MT*=STR*(ME):GOSU 

B 4740:GOTO 6520 

MT*=" 1":GOSUB 4740 

INPUT#2,TA*,MO*,J A*,KF,UF,KH,UH,KB,UB 
,KD,UD,A* 

DR=l:GOSUB 1240:DR=0 
IF ST< >64 THEN 6520 

CLOSE 2:IF VAL(JR*)“JL THEN IF VAL(MT 

*)=ML THEN RETURN 

IF MT*=" 12"THEN RETURN 

MT*=STR*(VAL(MT*)+1):GOSUB 4740:GOTO 

6520 

REM - DIRECTORY - 

OPEN 1,8,4,"#":NT=18:NS=1 
PRINT#15,"B-R: 11 ; 4; 0; NT; NS: PRINT#15, "B 
-P:"; 4; 0 

GET#1,NT*,NS*:IF NT#=""THEN 6630 
NT=ASC(NT*):NS=ASC(NS* > 

FOR T=0 TO 7:PRINT»15,"B-P:“;4;T+32+2 
:GET»1,FT*:IF FT*=""AND NT#="“THEN CL 
OSE 1:RETURN 

IF FT*=""THEN NEXT T:GOTO 6600 
IF ASC(FT*)0129 THEN NEXT T:GOTO 660 
0 

GET#1,A*,A* 

A*="":FOR TT=3 TO 19:GET#1,B*:IF B*=" 
{SHIFT—SPACE}"THEN 6690 
A*=A*+B*:NEXT TT 

IF RIGHT*(A#,6X>"-AKTIE"THEN NEXT T: 
GOTO 6600 

PRINT" <2SPACE>"A*: NEXT T-.GOTO 6600 


<250> 

<067> 

<051 > 

<005> 

<095> 

<217> 

< 1 50 > 

< 167> 

<091 > 
<097> 

<054> 


< 145> 
<034> 

<040> 

< 133> 

<168> 

< 121 > 
<092> 
<1B7> 

<12B> 

<093? 
< 169 > 

<141 > 

<074> 

<147? 

<042> 


<204> 

< 199> 

< 153> 

<032> 

< 161 > 

<254> 

<042> 

<245> 

<024> 

<050> 

<024 > 
<245> 
<15B> 

<018? 
< 161 > 
<079> 


< 193> 
<049> 

< 104> 

<015> 

< 200 > 

< 120 > 

< 147> 
<242> 
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C 64 


Wahlhoch¬ 

rechnung 

Da wird selbst die trockenste Bundes¬ 
tagswahl zum interessanten Erlebnis. 
Aber auch bei Schulwahlen und Club¬ 
sitzungen leistet dieses Programm 
wertvolle Dienste. 

Wenn die Fernsehanstalten ARD und ZDF am Wahl¬ 
sonntagabend ab 18 Uhr ihre Hochrechnungsschlacht aus¬ 
tragen, kann man mit diesem Programmlisting endlich mitmi¬ 
schen. Durch die Mittelwertbildung aus den letzten beiden 
Hochrechnungen werden wahrscheinlich genauere Ergeb¬ 
nisse erzielt, als wenn die Hochrechnungen der beiden Sen¬ 
der nur getrennt betrachtet werden. Außerdem können mit 
diesem Programm das alte Ergebnis, die eingegebenen 
Hochrechnungen und das Endergebnis abgespeichert und 
als Grafik auf Bildschirm oder Drucker ausgegeben werden. 

Die aus dem Fernsehen bekannten drei zur Verfügung ste¬ 
henden Balkengrafiken sind zwar nicht dreidimensional, 
zeichnen sich aber dafür (oder gerade deshalb) durch gute 
Ables- und Vergleichbarkeit aus. 

Die Eingabe der Hochrechnungen von ARD und ZDF 
erfolgt in Echtzeit, also genau zu dem Zeitpunkt, zu dem sie 
auch im Fernsehen gezeigt werden. Dazu läuft die Uhr des 
Computers sichtbar mit. 

Die Grafik-Erweiterung (Beachten sie den Artikel Grafik- 
DCopy in dieser Ausgabe) zu diesem Programm erlaubt es, 
daß trotz der hohen Auflösung von 320x200 Punkten die ein¬ 
zelnen Parteien in verschiedenen Farben dargestellt werden 
können. Auch die Hintergrundfarbe der Grafiken kann im Pro¬ 
gramm durch Ändern des Wertes hinter dem Befehl — G 
(siehe Anleitung zur Grafik-DCopy in dieser Ausgabe) geän¬ 
dert werden. 

Diese Grafik-Erweiterung wird am Programmanfang in den 
Bereich $C000 bis $C568 geladen. Auch die Druckerrou¬ 
tine für den Grafikausdruck sollte in den Bereich $C700 bis 
$C800 geladen werden (beide Erweiterungen finden Sie in 
einem eigenen Artikel in dieser Ausgabe). Einen anderen 
Bereich in Page 12 läßt die Grafik-Erweiterung nicht zu. Aller¬ 
dings kann die Routine auch im oberen Bereich des Basic- 
RAMs gespeichert werden, nur muß sie dann vor Überschrei¬ 
ben geschützt sein (als Beispiel wird in dem aufgelisteten 
Programm die Routine »DCOPY« für einen MPS-802 Drucker 
geladen und gestartet!). 

Das Wahlhochrechnungsprogramm berechnet nach jeder 
Eingabe der Hochrechnungs-Prozentzahlen den Mittelwert 
zwischen den letzten zwei Hochrechnungen und auf 
Wunsch auch die zu den Prozentzahlen proportionale Sitz¬ 
verteilung. Damit wird die Wahrscheinlichkeit erhöht, daß 
schon eine frühe Hochrechnung mit dem Endergebnis über¬ 
einstimmt. 

Zur Darstellung der Werte stehen drei Balken-Grafiken zur 
Verfügung: Prozente alt und neu (Bild 1), Gewinn und Verlust 
(Bild 2), neue Sitzverteilung mit Vergleich zur alten (Bild 3). 
Durch einen Trick können trotz der hohen Auflösung mehrere 
Farben in der Grafik dargestellt werden. Zum Ausdrucken des 
Grafik-Bildschirms wird eine druckerspezifische Routine im 
Bereich SC700 bis $C800 oder im oberen Bereich des 
Basic-RAMs benötigt (der Grafikspeicher liegt im Bereich 
$E000 bis $FFFF). Die im Programm geladene und gestar¬ 
tete Routine ist als Beispiel zu verstehen. 


Nun noch einige Bedienungshinweise zum Programm. 
Nachdem noch einmal eine kurze Bedienungsanleitung 
gezeigt wird, wird gefragt, ob alte schon abgespeicherte 
Wahldateien betrachtet und ausgewertet werden sollen, oder 
eine neue Wahlhochrechnung angefangen wird. 

Soll eine alte Datei geladen werden, muß zuerst der Wahl¬ 
name eingegeben werden (kann auch mit »‘«abgekürzt wer¬ 
den). Dann erscheint eine Auflistung der verschiedenen 
Hochrechnungen mit Nummern. Paßt die ganze Liste nicht 
auf den Bildschirm, wird die Auflistung erst einmal angehalten 
und kann durch Drücken der Space-Taste wieder gestartet 
werden. Soll eine Hochrechnung zur grafischen Darstellung 
ausgewählt werden, muß die davorstehende Zahl mit beiden 
Stellen eingegeben werden (ohne RETURN). Zu dieser Aufli¬ 
stung kommt man auch, wenn man bei der Real-Time- 
Hochrechnungseingabe »G« für Grafik drückt. 

Allgemein muß bei der Eingabe von Prozentzahlen beach¬ 
tet werden, daß die vorgegebene Stelle des Punktes und des 
Prozent-Zeichens nicht verändert wird. Auch die Nullen darf 
man nicht löschen, wenn sie nicht gebraucht werden. 

Bei der Eingabe der alten Sitzverteilung dürfen Überhang¬ 
mandate nicht mit eingegeben werden. Natürlich müssen die 
Verhältnisse der Sitze mit denen der Prozentzahlen überein¬ 
stimmen, da der Computer sonst nicht richtig rechnet. Er 
berechnet die Sitze nämlich nur nach dem Verhältniswahl¬ 
recht aus den Zweitstimmen (wie die anderen Hochrech¬ 
nungscomputer auch). Deshalb können sich kleinere Abwei¬ 
chungen zum Endergebnis ergeben, auch wenn die Prozent¬ 
zahlen übereinstimmen. 


19 . 46.34 2 U e,S ' ech " ui " 1 COM 

CDU SPD FDP GRUENE ANDERE 


Lin^ 


81 43.8 X 41.« X 7.5 X 
85 41.3 X 42.6 X 8.1 X 

58- 

45- 


8.8 X 

7.8 X 


8.5 X 

e.T y. 


ml 

HEITER HIT TASTE <A=AUSDRUCK> 


Bild 1. Vergleich: Zwei Bundestagswahlen in Prozenten 


19.46.34 

2. HOCHRECHNUNG 
VERSUCH 

COM 

CDU 

SPD 

FDP 

GRUENE 

ANDERE 

81 43. 8 X 

41.8 X 

7.5 y. 

8.8 y. 

0.5 y. 

85 41.3 X 

42.6 X 

8.x y. 

7.0 y. 

0.7 y. 

6EHINN * 

UERLUST <XPUHKTE> 


-1.7 

*1.5 

+0.6 

-l 

♦0.2 



HEITER MIT TASTE <A=AUSDRUCK> 

Bild 2. Darstellung von gewonnenen, beziehungs¬ 
weise verlorenen Stimmen in Prozentzahlen 


19 . 46.34 St B » ECH " u " 6 COM 
CDU SPD FDP 6RUEHE ANDERE 


85 41.3 X 
S 42 
1 -1 


42.6 
43 
♦ 2 


8.1 X 
8 

8 


T.e 

7 

-1 


8.7 X 



HEITER HIT TASTE <A=AU8DRUCK> 

Bild 3. Die auf den Prozentzahlen basierende 
Sitzverteilung 
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C 64 


Statistik 




Da der C 64 keine Grafikbefehle hat, muß auf eine 
Maschinensprache-Erweiterung zurückgegriffen werden. 
Diese wird mit einem Monitor oder mit dem MSE ab $C000 
eingegeben und danach als »GRAFIK-E/MS« abgespeichert. 

Nun kann das Basic-Programm abgetippt, gespeichert und 
gestartet werden. Es lädt dann zuerst die Erweiterung und 
die mögliche Drucker-Routine. 

Nach dem Programmabbruch mit der STOP-Taste darf das 
Programm nicht wieder ganz von vorne gestartet werden, 
ohne vorher die Erweiterung mit — E auszuschalten! 

(Björn Fiethe/aw) 


100 REM - GRAFIKERWEITERUNG LADEN - 

110 IF A=0 THEN A=1:L0AD"GRAFIK-E/MS“,8,1 

120 REM - DRUCKERSPEZIFISCHES PROGRAMM 

IM BEREICH «C700-SCB00 
130 REM ZUM AUSDRUCK DES HRB—BILDSCHIRMS 
WIRD GELADEN- 

140 IF A=1 THEN A=2:LOAD"DCOPY",8,1 

150 SYS 49152:REM - ERWEITERUNG STARTEN 

160 DIM AS*(50),AS(50>,CD<50),CD*(50),SP(5 
0),SP*<50),GR(50),GR*(50),AN<50) 

170 DIM ANS(50>,ZE*(50),SU(50),SD(50>,SF(5 
0>,SA(50),SE<50),FD*(50),FD(50> 

180 1=0:OPEN 15,8,15 

190 POKE 53280,0:POKE 53281,0t PRINT"<CLR,0 
RANGE,3SPACEJW AHLHOCHRECHN 
U N G" 

200 PRINT" {3SPACE1————— 


210 PRINT:PRINT"{RED,RVSON >BEDIENUNGSANLEI 
TUNG:(RVOFF>" 

220 PRINT:PRINT"{RED>-AUSWERTUNG:{SPACE,GR 
EY 11ABGESPEICHERTE HQCHRECHNUN—"; 

230 PRINT"{3SPACE>GEN KOENNEN WIEDER EINGE 
LESEN WERDEN."; 

240 PRINT“{RED>-EINGABE DER ALTEN WAHLERGE 
BNISSE." 

250 PRINT"-AUSWAHL UND UHRZEITi{SPACE,ORAN 
GE>“ 

260 PRINT"C3SPACE><H>={BREY 1>EINGABE EINE 
R HOCHRECHNUNG" 

270 PRINT"(7SPACE>(AUCH STELLE NACH . AUSF 
UELLEN!> 

280 PRINT"{7SPACEJ(WENN SITZVERTEILUNG NIC 
H EIGEGE—"; 

290 PRINT"{7SPACEJBEN WIRD, ERRECHNET COMP 
UTER SIE)“; 

300 PRINT"{ORANGE,3SPACEXE>={BREY 1JEINBA 
BE DES ENDERGEBNISSES" 

310 PRINT“{8SPACE>(DANACH WERDEN ALLE EING 
EGEBENEN" 

320 PRINT"{UP,9SPACE1WERTE ABGESPEICHERT!) 
330 PRINT"{BSPACEJ(WENN NOCH NICHT VORLIEG 
T, BEI" 

340 PRINT"{9SPACEJCDU 0.0 X EINGEBEN) 

350 PRINT" {ORANGE,3SPACEXG>=(GREY 1 JAUSWA 
EHLEN AUS EINGEGEBENEN" 

360 PRINT"{7SPACEJHQCHRECHNUNGEN." 

370 PRINT"(7SPACEXIMMER ZWEISTELLIGE ZAHL 
EINGEBEN"; 

380 PRINT"{8SPACEJZ.B. 01)" 

390 PRINT“{RED>—COMPUTERHOCHRECHNUNGEN:{SP 
ACE,GREY 1>NACH JEDER" 

400 PRINT"(3SPACE>EINGABE ERRECHNET COMPUT 
ER MITTELWERT“; 

410 PRINT"{BLUE,18SPACE,RVSONJTASTE<2UP,RV 
OFF > “ 

420 POKE 198,0:WAIT 198,1 
430 PRINT“{CLR,RED>”:POKE 198,0 
440 CLOSE 1:INPUT"{6D0WN,2SPACEJAUSWERTUNG 
(J/N) ";GG* 

450 IF GGS=”N"THEN 740 

460 PRINT"{CLR>":IF DG=0 THEN GOSUB 4330 
470 PRINT:PRINT"WELCHE HOCHRECHNUNG ?“ 

480 PRINT:PRINT:PRINT" 00){13SPACEJALTES E 
RGEBNIS" 

490 FOR G=1 TO I:G*=STR*(G> : IF G<10 THEN G 
*=" 0"+RIGHTS(G*,1) 

500 PRINT”{DOWN,GREY 1>"G*"> “ZE$(G)"{4SPA 
CE >"AS(G)"{LEFT}.{3SPACE>"AS*(G> 

510 IF G/10=INT(G/10)THEN POKE 19B,0:WAIT 


< 156> 

< 167> 


<217> 

< 189> 
<152> 

<104> 

<239> 


<094> 
< 190> 


<094> 

<083> 

<078> 

< 132> 
<103> 
<110> 

< 171 > 
<071 > 
<206> 
<030> 
<133> 
< 012 > 

< 166 > 

<213> 

<067> 

<096> 

<201 > 
<219> 

< 127> 
<077> 

< 1B5> 

< 108 > 

<138> 

< 138> 
<238> 

< 120 > 
<019> 
<150> 
<083> 

<048> 

<134> 

<093> 


198,1:GET G*(1):IF G*(l)<>" "THEN WAIT 
198,1:GET G*(2):GOTO 540 
520 NEXT G 

530 POKE 198,0:WAIT 19B,2:GET G*(1),G*(2) 
540 TT=I:I=VAL(G*(1>+G*(2>) 

550 ZE*=ZE*(I):AS=AS(I):AS*=ASS(I):HOS=STR 
*(AS>+". HOCHRECHNUNG" 

560 IF 1=0 THEN HO*="ALTES ERGEBNIS" 

570 IF CD*(I)="»"THEN 1=1-1:GOTO 3280 
580 PRINT"{CLR>" 

590 PRINT"{4D0WN,6SPACE>GRAFIKEN:" 

600 PRINT:PRINT:PRINT"{5SPACE,RVSON}F1{RVO 
FF,SPACE>= SITZE" 

610 PRINT:PRINT"{5SPACE,RVSON JF3{RVOFF,SPA 
CE>= GEWINN/VERLUST" 

620 PRINT:PRINT"{5SPACE,RVSON >F5(RVOFF,SPA 
CE>= PROZENT" 

630 PRINT:PRINT"{5SPACE,RVSON>F7{RVOFF,SPA 
CE>= WEITER" 

640 PRINT:PRINT"{5SPACE,RVSON >F8{RVOFF,SPA 
CE>= ENDE" 

650 GET IN*:IF IN*=""THEN 650 
660 IF IN*=CHR*( 140) THEN IF GG*= " J"THEN: «-E 
:CLOSE 15:END 

670 IF IN*=CHR*(133)THEN GOSUB 1540 
680 IF IN*=CHR*<134)THEN GOSUB 2030 
690 IF IN*=CHR*(135)THEN GOSUB 2630 
700 IF IN*=CHR*(136)THEN 720 
710 GOTO 580 

720 I=TT:IF GG*="J"ThEN 460 
730 GOTO 1090 

740 INPUT"{CLR,6D0WN,5SPACE5WAHLNAME «16) 
:";WA*:IF LEN(WA*)>15 THEN 740 
750 PRINT"(CLR,5D0WN,GREY 1>" 

760 PRINT"MOMENTANE UHRZEIT EINGEBEN (HHMM 
SS):“:PRINT 

770 INPUT A*:IF LEN(A*)<>6 THEN 750 
780 C=56328 

790 POKE C+7,PEEK(C+7 > AND 127 
800 POKE C+6,PEEK(C+6)0R 12B 
810 H=VAL(LEFT*(A*,2)> 

820 ttejVAl (MID* (A*,3,2) ) 

830 S=v;.L (RIGHT* (A*,2) > 

840 IF H>23 THEN 750 
850 IF H=12 THEN 870 
860 IF H>11 THEN H=H+68 

870 POKE C+3,16*INT(H/10)+H—INT(H/10)*10 
880 IF M>59 THEN 750 

890 POKE C+2,16*INT(M/10)+M-INT(M/10>*10 
900 IF S>59 THEN 750 

910 POKE C+1,16*INT(S/10)+S-INT(S/10>*10 
920 POKE C,0 

930 INPUT"(2D0WN,3SPACE>JAHR EINGEBEN:(2SP 
ACE >19(2SPACE,6LEFT >";J A*:JA*=RIGHT*(J 
A*,2) 

940 PRINT"<CLR>" 

950 REM - ALTES ERGEBNIS - 

960 EI=1:GOSUB 3070 

970 PRINT"{RED,5DDWN,3SPACE>LETZTES WÄHLER 
GEBNIS" 

980 PRINT:PRINT:PRINT"{3SPACE >“WA* 

990 INPUT"(ORANGE,2D0WN,3SPACE>VON (JAHR): 
{2SPACE>19(2SPACE,6LEFT >";DA*:DA*=RIGH 
T * (DA* , 2 ) 

1000 ZE*(0 >=DA*:AS(0 > =0:AS*(0 > ="ALT" 

1010 PRINT:INPUT"{BLUE,2SPACE>CDU=(3SPACE> 
0.0 X{8LEFT>";CD*(0):CD(0)=VAL(CD*(0) 

) 

1020 PRINT:INPUT"<RED,2SPACE>SPD={3SPACE>0 
.0 X(8LEFT>“;SP*(0):SP(0)=VAL(SP*(0)> 
1030 PRINT:INPUT"{ORANGE,2SPACE>FDP={3SPAC 
E>0.0 X{8LEFT>";FD*(0):FD(0)=VAL(FD*( 
0)) 

1040 INPUT"(DOWN,GREEN,2SPACE>GRUENE={3SPA 
CE>0.0 X(8LEFT>";GR*(0):GR(0)=VAL(GRS 
(0) ) 

1050 INPUT"(DOWN,WHITE,2SPACE >ANDERE 3 (3SPA 
CE>0.0 X{8LEFT>";AN*(0):AN(0)=VAL(AN* 
(0)) 

1060 BF=CD(0)+SP(0)+FD(0)+GR(0)+AN(0):IF B 
F<99 OR BF>101 THEN 950 
1070 PRINT:PRINT:INPUT"{RED,2SPACE>ALTE SI 
TZVERTEILUNG (J/N)";SV*:IF SV*="J"THE 


<029> 

<080> 

< 194> 
<114> 

<034> 

< 122 > 
<047> 
< 060> 
<221 > 

<005> 

<209> 

< 191 > 
<009> 

< 136> 
<034> 

< 162> 
< 222 > 
<106> 
<130> 
< 210 > 
<034> 
<208> 
<195> 

<241 > 

<050> 

<134> 
<041 > 
<234> 

< 196> 
< 210 > 
<014> 
<227> 
<142> 
<031 > 
< 222 > 

< 191 > 
<209> 
<081 > 
<106> 
<149> 
<088> 
< 222 > 


<042> 
< 166> 
<049> 
<1B6> 

< 123> 
<094> 


< 123> 
<099> 


<028> 

<24B> 

<079> 


< 107> 


<237> 

<01B> 


Listing. »Wahlhochrechnung« - schneller als ARD und 
ZDF. Bitte verwenden Sie den Checksummer v. Seite 6. 
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C 64 



N GOSUB 3680 

<054 > 


R*(INT(SG/2)),3) 

<220> 

1080 

REM - EINGABE HOCHRECHNUNG - 

<185> 

1660 

+P22,30,2,2;6"CDU" 

<158> 

1090 

GOSUB 3070 

<01 4> 

1670 

+P21,48CD*(I) 

<22B> 

1100 

IF G*="E"THEN 3280 

<213> 

1680 

SQ-160/SG 

<217> 

1110 

1=1+1:PRINT"<CLR,RED>":DG=1 

< 166> 

1690 

FOR T=185 TO 185-INT(SQ*SU(I)>STEP-1: 


1120 

PRINT"<6D0WN,5SPACE,RVSON >F1{RVOFF,SP 



+L25,T TO 55,T:NEXT T 

< 159> 


ACE>= ARD" 

<065> 

1700 

+P22.60 STR*(SU(I)) 

< 154> 

1130 

PRINT:PRINT"I5SPACE,RVSON >F3{RVOFF,SP 


1710 

SU*=LEFT*(STR*(SU(I)—SU(0)),3):IF VAL 



ACE>= ZDF" 

<223> 


(SU*)>0 THEN SU*="+"+MID*(SU*,2,2) 

<100> 

1140 

GET IN*:IF IN*=""THEN 1140 

<081 > 

1720 

+P22.70SU* 

<030> 

1150 

IF IN*=CHR*(134)THEN AS**"ZDFAS=ZD+ 


1730 

«-P5,2,1,2; 2ZE* (I) 

< 160> 


1:ZD=AS:GOTO 1180 

<017> 

1740 

+P80,30,2,2"SPD" 

< 160> 

1160 

IF IN*=CHRS(133)THEN AS*="ARD":AS=AR+ 


1750 

+P80,48SP*(I) 

< 196> 


1 : AR=AS:GOTO 1180 

<00B> 

1760 

FOR T=185 TO 185-INT(SQ*SQ(I >> STEP-1: 


1170 

GOTO 1140 

<23B> 


+LS0.T TO 110,T:NEXT T 

<231 > 

1180 

HO*=STR*(AS>+”. HOCHRECHNUNG" 

< 192> 

1770 

+PB0.60 STR*(SD(I >) 

<239> 

1190 

PRINT " {CLR , 2D0WN , 3SPACE > "HO* " C3SPACE } 


1780 

SD*=LEFT*(STR*(SD(I ) —SD ( 0 )) ,3) : IF VAL 


"AS* 

< 140> 


(SD*>>0 THEN SD*="+"+MID*(SD*,2,2) 

< 138> 

1200 

PRINT : PRINT"{3SPACE>"WA* 

<136> 

1790 

+PB0.70SD* 

<064> 

1210 

PRINT : PRINT " {4SPACE , GREY 1 >" ZE* 

<064 > 

1800 

+P140 , 30 , 2 , 2 ;8" FDP " 

<249 > 

1220 

INPUT " (2D0WN , BLUE , 2SPACE>CDU={3SPACE > 


1810 

+P 144,48FD* ( I > 

<231 > 


0.0 ZI8LEFT5 "; CD* ( I ): CD ( I ) =VAL CCD* ( I ) 


1820 

FOR T=185 TO 185-INT(SO*SF ( I )) STEP-1 : 



> 

<244> 


+L140.T TO 170,T : NEXT T 

<053> 

1230 

PRINT:INPUT"<RED,2SPACE>SPD={3SPACE>0 


1B30 

+P144.60 STR*(SF ( I )) 

<255> 


.0 '/. {8LEFT > " ; SP* <I) :SP(I> = VAL ( SP* < I > ) 

<073> 

1840 

SF*=LEFT*(STR*(SF(I)-SF(0)),3):IF VAL 


1240 

PRINT:INPUT"{ORANGE,2SPACE>FDP={3SPAC 



(SF*> >0 THEN SF*=" + “+MID*(SF*,2,2) 

< 173> 


E>0.0 3t <8LEFT > " j FD* ( I > : FD ( I > -VAL ( FD* ( 


1850 

+P144.70SF* 

<091 > 


in 

< 158> 

1860 

+P200,30,1,2;5"GRUENE" 

<250> 

1250 

I NPUT {DOWN , GREEN , 2SP ACE JGRUENE- {3SPA 


1870 

+P206,48GR* ( I ) 

< 167> 


CEJ0.0 3t {BLEFT > " ; GR* (I) :GR(I) =V AL ( GR* 


1880 

FOR T=185 TO 185-INT(SQ*SE(I )) STEP-1: 



<I> > 

<050> 


+L200 , T TO 230,T:NEXT T 

<055> 

1260 

INPUT ” {DOWN.WHITE,2SPACE > ANDERE = {3SPA 


1890 

+P206.60 STR*(SE ( I )) 

<043> 


CE10.0 {8LEFT > " ; AN* < I ) : AN ( I ) =VAL ( AN* 


1900 

SE*=LEFT*(STR*(SE ( I ) -SE(0)),3) : IF VAL 



(11) 

<1B0> 


(SE*)>0 THEN SE*="+"+MID*(SE*,2,2) 

<246 > 

1270 

PRINT:PRINT : INPUT " {RED,3SPACE>SIT ZVER 


1910 

+P206.70SE* 

< 159> 


TEILUNG EINGEBEN (J/N)“;G* 

<036> 

1920 

+P266,30,1,2 ; 1 " ANDERE “ 

<082> 

1280 

IF G*="J"THEN GOSUB 1430:GOTO 1300 

<244> 

1930 

+P272,48AN*(I) 

<13B> 

1290 

GOSUB 3800 

< 120> 

1940 

FOR T=1S5 TO 185-INT ( SG*SA ( I )) STEP-1 : 


1300 

AS < I ) =AS:AS* ( 1 ) =AS*:ZE* ( I ) =ZE*:GOSUB 



+L266.T TO 296,T:NEXT T 

< 158> 


4070 

<019> 

1950 

+P272,60 STR*(SA(I)) 

<198> 

1310 

PR I NT " {CLR,4DOWN,3SPACE,RED >GRAFIKEN " 

<250> 

1960 

SA*=LEFT* ( STR* ( SA ( I ) —SA ( 0 )) ,3) : IF VAL 


1320 

PRINT : PRINT : PRINT “ {3SPACE,RVSON >F1{RV 



(SA*)>0 THEN SA*="+"+MID*(SA*,2,2) 

<103> 


OFF,SPAC£>= SITZE" <219> 

rmf 0 

+P272,70SA* 

<154> 

1330 

PRINT : PRINT"{3SPACE,RVSON >F3{RVOFF,SP 


1980 

+P10,192;15"WEITER MIT TASTE (A=AUSDR 



ACE>= GEWINN/VERLUST" 

<167> 


UCK) " 

<087> 

1340 

PRINT:PRINT"{3SPACE,RVS0N1F5{RVOFF,SP 


1990 

GET A*:IF A*=""THEN 1990 

<075> 


ACEJ- PROZENT“ 

<149> 

2000 

IF A*="A”THEN GOSUB 4650:GOTO 1990 

<235> 

1350 

PRINT:PRINT"{3SPACE,RVSON}F7{RVOFF,SP 


2010 

+T:RETURN 

<123> 


ACE>= WEITER" 

<223> 

2020 

REM - GRAFIK GEWINN/VERLUST - 

< 136> 

1360 

GET IN*:IF IN*=""THEN 1360 

<053> 

2030 

+G0: +C 

<117> 

1370 

IN=ASC(IN*)-132:IF IN<1 OR IN>4 THEN 


2040 

+P270,2,2,2;15 LEFT*(AS*,3) 

<049> 


1360 

<063> 

2050 

+P100.3HO*:+P110,12WA* 

<224> 

13B0 

ON IN GOSUB 1530,2020,2620,1400 

<220> 

2060 

+P1,4BDA* 

<050> 

1390 

GOTO 1310 

< 140> 

2070 

+P1,60JA* 

<190> 

1400 

IF CD(1+1)>0 THEN 1=1+1 

< 131 > 

2080 

FOR T=149 TO 151:+L10,T TO 320,T:NEXT 


1410 

GOTO 1090 

<113> 


T 

<041 > 

1420 

REM-EINGABE SITZE- 

< 169 > 

2090 

+P10,75"GEWINN + VERLUST (/.PUNKTE)“ 

<200> 

1430 

PRINT"{CLR>" 

< 14B> 

2100 

+P21,48;14CD*(0) 

<031 > 

1440 

PRINT:PRINT:PRINT“{3SPACE>"HO*"{3SPAC 


2110 

+P22,30,2,2;6"CDU" 

<100> 


EJ"AS* 

<203> 

2120 

+P21,60CD*(I) 

< 163> 

1450 

PRINT:PRINT"{3SPACEVWA* 

< 132> 

2130 

VV=0:VC=CD(I)-CD(0>:VS=SP(I)-SP(0):VF 


1460 

PRINT:PRINT:PRINT"{3SPACE,RED>S I T Z 



=FD(I)—FD(0) 

< 191 > 


E" 

< 170> 

2140 

VG=GR(I)-GR(0):VA=AN(I)-AN(0):VV=ABS( 


1470 

PRINT:PRINT:INPUT"{BLUE,2SPACEJCDU: "5 



VC) 

<041 > 


SU(I> 

<034> 

2150 

IF ABS(VS)>VV THEN VV=ABS(VS> 

<160> 

1480 

PRINT: INPUT" {RED,2SPACE>SPD:";SD(,I) 

<003> 

2160 

IF ABS(VF)>VV THEN VV=ABS(VF) 

<051 > 

1490 

PRINT:INPUT"{ORANGE,2SPACEJFDP:";SF(I 


2170 

IF ABS(VG)>VV THEN VV=ABS(VG) 

< 129> 


) 

< 108 > 

2180 

IF ABS(VA)>VV THEN VV=ABS(VA) 

<242> 

1500 

PRINT:INPUT"{GREEN,2SPACEJGRUENE:";SE 


2190 

IF VVO0 THEN VV=35/VV 

<227> 


<I) 

<127> 

2200 

CC=-1:IF VC<0 THEN CC=1 

<053> 

1510 

PRINT:INPUT"{WHITE,2SPACE>ANDERESA 


2210 

FOR T=150 TO 150-1NT(VV*VC>STEP CC:+L 



(I) 

<050> 


24,T TO 55,T:NEXT T 

<076> 

1520 

RETURN 

<052> 

2220 

VC4=LEFT♦(STR*(VC),4):IF VC<1 AND VC> 


1530 

REM - GRAFIK SITZE - 

<196> 


-1 THEN VC*=LEFT*(VC*,l)t"0"+MID*(VC* 


1540 

IF SG=0 THEN 2000 

<084> 


,2,2) 

<211 > 

1550 

+G0:+C 

< 147> 

2230 

IF VC>0 THEN VC*="+"+RIGHT*(VC*,3) 

<007> 

1560 

+P270,2,2,2;15 LEFT*(AS*,3) 

<079> 

2240 

+P25.90VC* 

<073> 

1570 

+P100,3HO*:+P110,12WA* 

<252> 

2250 

+P80.48;10SP*(0) 

<088> 

1500 

+P1,48JA* 

< 084> 

2260 

+P5,2,1,2;2ZE*(I) 

<1B2> 

1590 

+P1,59"S" 

< 0 ie> 

2270 

+P80,30,2,2"SPD“ 

<1B2> 

1600 

+P1,67"I" 

<071 > 

2280 

+P80,60SP*(I) 

<211> 

1610 

+P1 , 75 " T " 

<166> 

2290 

CC=—1:IF VS<0 THEN CC=1 

<207> 

1620 

+P1,83"Z" 

<252> 

2300 

FOR T=150 TO l50-1NT<VV*VS>STEP CC:«L 


1630 

<-Pl ,91”E" 

<027> 


B8,T TO 119,T:NEXT T 

<203> 

1640 

KOR T=1B4 TO 186:+L20.T TO 320,T:NEXT 


2310 

VS*=LEFT*(STR*(VS),4):IF VS<1 AND VS> 



T: +P1,181" 0” 

<212> 


-1 THEN VS*=LEFT*(VS*,l)+"0"+MID*(VS* 


1650 

+L23,105 TO 320,105: «-P1,101 RIGHT*(ST 



, 2 , 2 ) 

< 220 > 


<lcr-o 


156 


nlme.de 

!fera 
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2320 

IF VS>0 THEN VS*=”+"+RIGHT*(VS*,3) 

<004 > 


,T TO 286,T:NEXT T 

<246> 

2330 

+P85,90V5* 

<069> 

3000 

FP266,30,1,2; 1 •’ ANDERE " 

< 146> 

2340 

+P144,4B;7FD*<0> 

< 197> 

3010 

«-P272,60ANS (I > 

< 1BB> 

2350 

+P140,30,2,2;B"FDP" 

<035> 

3020 

FOR T= 185 TO (185-2*AN (I) ) STEP-1 : «-L290 


2360 

<-P144,60FD*(I) 

<003> 


,T TO 310,T:NEXT T 

<041 > 

2370 

CC=-1:IF VF<0 THEN CC=1 

<237> 

3030 

<-P10, 192; 15"WEITER MIT TASTE <A=AUSDR 


2300 

FOR T=150 TO 150—INT(W»VF)STEP CC: *-L 



UCK) M 

< 121 > 


145,T TO 175,T:NEXT T 

<248> 

3040 

GET A*:IF A*=""THEN 3040 

<233> 

2390 

VF*=LEFT*(STR*(VF>,4):IF VF<1 AND VF> 


3050 

IF A#="A"THEN GOSUB 4650:GOTO 3040 

< 197 > 


-1 THEN VF*=LEFT*(VF*,1)+"0"+MID*(VF* 


3060 

ET:RETURN 

<157> 


, 2 , 2 ) 

<193> 

3070 

REM-ZEIT- 

<074> 

2400 

IF VF>0 THEN VF*=" + "+RIGHT* <VFS,3> 

<001 > 

3080 

PRINT"{CLR}“ 

< 020 > 

2410 

+P145.90VF* 

<221 > 

3090 

H=PEEK(C+3):M=PEEK(C+2):S=PEEK<C+1> :T 


2420 

<-P206,48; 13GR*<0> 

<087> 


=PEEK(C) 

<062> 

2430 

«-P200, 30,1 , 2; 5 " GRUENE " 

<056> 

3100 

HH=1:IF H>32 THEN H=H-12B:HH=0 

< 115> 

2440 

+P206,60GR* (I> 

<215> 

3110 

H=INT(H/16)«10+H-INT(H/16)«16:ON HH G 


2450 

CC— lsIF VG<0 THEN CC=1 

<065> 


OTO 3140 

< 119> 

2460 

FOR T=150 TO 150—1 NT (W*VG) STEP CC: <-L 


3120 

IF H=12 THEN 3150 

< 0 B 2 > 


208,T TO 238,T:NEXT T 

< 131 > 

3130 

H=H+12 

<070> 

2470 

VG*=LEFT*<STR*(VG),4):IF VG<1 AND VG> 


3140 

IF H=12 THEN H=0 

<233> 


-1 THEN VG*=LEFT*(VG*,1>+"0"+MID*(VGS 


3150 

M=INT(M/16)»10+M-INT(M/16)»16 

<239> 


, 2 , 2 ) 

<124> 

3160 

S=1NT(S/16)*10+S-INT(S/16)*16 

< 197> 

2480 

IF VG>0 THEN VG*=“+"+RIGHT*(VG*,3> 

< 107> 

3170 

H*=STR*<H):IF LEN(H*)=2 THEN H*=" 0“+ 


2490 

«-P205,90VG* 

< 197> 


RIGHT*(H*,l) 

<159> 

2500 

+PZ7Z.48; 1ZAN*<0) 

< 181 > 

3180 

M*=STR*(M):IF LEN(M*>=2 THEN M*=" 0“+ 


2510 

«-P266,30,1,2 ; 1 “ ANDERE " 

< 164> 


RIGHT*(M*,1> 

<0B7> 

2520 

«-P272,60AN* < I > 

<206> 

3190 

S*=STR*(S):IF LEN(S*)=2 THEN S*=" 0"+ 


2530 

CC=—1:IF VA<0 THEN CC=1 

< 121 > 


RIGHT*(S*,1) 

<206> 

2540 

FOR T=150 TO 150—INT (W*VA)STEP CC: f-L 


3200 

ZE*=RIGHT*(H*,2)+"."+RIGHT*(M*,2)." 



272,T TO 302,T:NEXT T 

<024> 


+RIGHT*(S*,2) 

<221 > 

M 

SS 

s 

VA*=LEFT*CSTR*(VA),4):IF VA<1 AND VA> 


3210 

PRINT"TGREY 1,HOME,3D0WN,3SPACE >"ZE* 

<234> 


-1 THEN VA*=LEFT*(VA*,l)+"0"+MID*(VA* 


3220 

IF EI=1 THEN EI=0:RETURN 

<163> 


, 2 , 2 ) 

<073> 

3230 

PRINT:PRINT:PRINT“C3SPACE,ORANGE1HOCH 


2560 

IF VA>0 THEN VA*="+"+RIGHT*(VA*,3) 

<033> 


RECHNUNG <H> / ENDERGEBNIS <E> ?" 

<045> 

2570 

+P275,90VA4 

<199> 

3240 

PRINT:PRINT“<14SPACE>GRAFIKEN (G)" 

<081 > 

2580 

+P10.192;15"WEITER MIT TASTE (A=AUSDR 


3250 

GET G*:IF G*="H"OR G*="E"THEN EI=1 

<032> 


UCK) " 

< 181 > 

3260 

IF G*=“G"THEN DG=1:G0T0 460 

<190> 

2590 

GET A*: IF AS=""THEN 2590 

< 200 > 

3270 

GOTO 3090 

<211 > 

2600 

IF A*="A"THEN BOSUB 4650:GOTO 2590 

<059> 

3280 

REM - ENDERGEBNIS - 

< 108 > 

2610 

*-T: RETURN 

<217> 

3290 

PRINT"<CLR>":1=1+1 

< 143> 

2620 

REM - GRAFIK PROZENT - 

<021 > 

3300 

PRINT:PRINT:PRINT"{3SPACE,RED 5ENDERGE 


2630 

H30: «-C 

<211 > 


BNIS" 

<091 > 

2640 

FOR T=1B3 TO 185:i-C10,T TO 320,T;15:N 

S4SF» 

3310 i— T"<2D0WN,BLUE,2SPACE1CDU:<3SPACE> 



EXT T 

<164> 


0.0 X< 8 LEFT>”;CD*(I>:CD(I)=VAL(CD*(I> 


2650 

+P270,2,2,2 LEFT*(AS*,3> 

< 167> 


) 

<034> 

2660 

+P 100,3H0* : <-P 110,12WA* 

< 070> 

3320 

IF CD(I>=0 THEN CD*(I)="*":GOTO 3440 

<238> 

2670 

*-Pl,171" 5" 

<090>' 

3330 

PRINT:INPUT"<RED,2SPACE>SPD= «3SPACE >0 


2680 

«-P1 ,81 “50" 

< 038 > 


.0 7.<8LEFT>";SP*(I> : SP (I > =VAL (SP* (I) ) 

< 1 43 > 

2690 

+P1 ,91 "45" 

< 130> 

3340 

PRINT:INPUT"fORANGE,2SPACE>FDP=C3SPA0 


2700 

+P 1,101" 40 " 

< 131 >' 


E30.0 X{8CEFT1";FD*(I):FD(I)=VAL(FD*( 


2710 

+P1,4BDA* 

< 192> 


I) ) 

<228> 

2720 

+P1.60JA* 

<076> 

3350 

INPUT"IDOWN,GREEN,2BPACE >GRUENE= <3SPA 


2730 

H.20,105 TO 320,105 

< 148> 


CE30.0 V. C 8 LEFT>” ; GR* < I) : GR (I) =VAL (GR* 


2740 

H-20,95 TO 320,95 

<194> 


(I) ) 

< 120 > 

2750 

<-L20,B5 TO 320,85 

< 012 > 

3360 

INPUT"{DOWN,WHITE,2SPACEJANDERE={3SPA 


2760 

«-L20.175 TO 320,175 

<192> 


CEJ0.0 V. {BLEFT > "; AN* (I) :AN(I) = V AL (AN* 


2770 

I-P21,48; 14CDS(0> 

< 193> 


(I)) 

<227> 

2780 

FOR T=185 TO (185—2*CD (0) ) STEP—1: +L17, 


3370 

PRINT"{CLR>" 

<056> 


T TO 37,T:NEXT T 

<229> 

3380 

PRINT:PRINT:PRINT"{3SPACE,RED>S I T Z 


2790 

+P22,30,2,2;6"CDU" 

<016> 


E" 

<058> 

2800 

<-P21,60CD*(I) 

<079> 

3390 

PRINT:PRINT:INPUT“{BLUE,2SFACEJCDU:“; 


2810 

FOR T=185 TO (185—2*CD 11) ) ST EP— 1 s +L40, 



SU(I) 

<178> 


T TO 60,T:NEXT T 

<006> 

3400 

PRINT:INPUT“{RED,2SPACE >SPD:”;SD(I) 

<147> 

2820 

«-PB0.48; 10SP*(0> 

< 152> 

3410 

PRINT:INPUT"{ORANGE,2SPACEJFDP:";SF(I 


2830 

FOR T=185 T0<185—2*SP(0))STEP-1:+L/6, 



) 

<252> 


T TO 95,T:NEXT T 

<133> 

3420 

PRINT:INPUT"{GREEN,2SPACEJGRUENE:";SE 


2840 

*-P5,2,1,2; 2ZE* (I) 

<080> 


( 1 ) 

<015> 

2850 

+P80,30,2,2"SPD" 

<000> 

3430 

PRINT:INPUT"{WHITE,2SPACEJANDERE:“;SA 


2860 

+PB0,60SP* (I ) 

<029> 


(I) 

< 194> 

2870 

FOR T= 185 TO (1 B5-2*SP (I) ) STEP-1: +L99, 


3440 

AS*(I)="ENDERGEBNIS"s ZES(I)=ZE*:AS(I) 



T TO 119,T:NEXT T 

<088> 


=0 

< 194> 

2880 

+P144,4B;7FD*(0> 

<229> 

3450 

+F3450:PRINT:PRINT:PRIN T"{RED,3SPACE> 


2890 

FOR T=185 TO(185-2«FD(0)> STEP-1:1L137 



DISKETTE EINLEGEN!":CLOSE 1 

< 139> 


,T TO 157,T:NEXT T 

<071> 

3460 

PRINT:INPUT“{3SPACE >“;A* 

<031 > 

2900 

+P140,30,2,2; 8 "FDP" 

<077> 

3470 

OPEN 1,8,2,"@:WAHL "+WA*+",S,W“ 

<223> 

2910 

+P144,60FD*(I) 

<045> 

3480 

INPUT#15,FE,FE*:IF FE=0 THEN 3530 

<155> 

2920 

FOR T=185 T0<185-2»FD(I>)STEP-1:+L162 


3490 

IF FE=26 THEN PRINT:PRINT"DISKETTE GE 



,T TO 182,T:NEXT T 

<021 > 


SCHUETZT!":GOTO 3450 

< 111 > 

2930 

+P206,48; 13GR*<0> 

<089> 

3500 

IF FE-72 THEN PRINT:PRINT"DISKETTE VO 


2940 

FOR T= 185 TO < 185-2*GR (0) ) STEP-1: +L200 



LL!":GOTO 3450 

<132> 


,T TO 220,T:NEXT T 

< 001 > 

3510 

IF FE=74 THEN PRINT:PRINT"KEINE DISKE 


2950 

«-P200,30 , 1 , 2; 5 " GRUENE " 

<068> 


TTE EINGELEGT!":GOTO 3450 

< 138> 

2960 

<-P206,60GR*(I) 

<227> 

3520 

PRINT:PRINT"{2SPACE>FEHLER"FE": "FE*: 


2970 

FÜR T=185 rO(185-2*GK(l) )StEP-l:*-L22b 





2980 

,T TO 245,T;NEXT T 
<-P272,48; 12ANS<0) 

<201 > 
<153> 

Listing »Wahlhochrechnung« 


2990 

FOR T=185 TO(185-2*AN(0))STEP-1:H_266 


(Fortsetzung) 




1 
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3530 

3540 

3550 

3560 

3570 

35B0 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 


GOTO 3450 <151> 

PRINT#1,WA*:PRINT#1,I <001> 

PRINTBl,DA*:PRINT#1,JAS:PRINTBl,SG <191> 

FOR G=0 TO I <054> 

PRINT#1,CD*(G)sIF CD* <6)="*"THEN 3620 <065> 
PRINTBl,CD(G>:PRINT#1,SP*(G):PRINTBl, 

SP (G> 

PRINTBl,FD*(G):PRINT#1,FD(G) 

PRINTBl,GR*(G):PRINTBl,GR(G) 

PRINTBl,AN*(G):PRINTBl,AN(G) 
PRINT#1,SU(G):PRINT#1,SD(G):RRINT#1,S 
F(G>:PRINT#1,SE(G>:PRINT#1,SA(G) 

PRINT#1,AS <G>:PRINT#1,AS* <G> 


< 112 > 
< 176> 
<237> 
<047> 

<042> 
<173> 

PRINTBl,ZE*(G) : IF CD*(G>="*"THEN 3650 <184> 
NEXT 8 <152> 

CLOSE 1 <105> 

PRINT"<CLR,4D0WN,2SPACE,RED)F E R T I 
Gf ■ 

FOR G=1 TO 1000:NEXT:GOTO 460 

PRINT"<CLR>":REM - SITZE ALT - 

EI=1:GOSUB 3070 

PRINT:PRINT:PRINT"<3SPACE,RED1LETZTES 
WAHLERGEBNIS" 

PRINT:PRINT:PRINT“C3SPACE>“WA* 

PRINT:PRINT:PRINT"<3SPACE,RED>S I T Z 
E" 

PRINT:PRINT:INPUT"<BLUE,2SPACE>CDU: 

SU (0) 

PRINT:INPUT"{RED,2SPACE1SPD:";SD(0) 

PRINT:INPUT"{ORANGE,2SPACE1FDP:”;SF(0 
) 

PRINT:INPUT"{GREEN,2SPACE>GRUENE:";SE 
( 0 ) 

PRINT:INPUT"{WHITE,2SPACEJANDERE:";SA 
( 0 ) 

PRINT:INPUT"{GREY 1,2SPACEJGESAMTSIT Z 
E: "5 SG 
RETURN 

REM - SITZE AUSRECHNEN - 

HU=CD(I):HD=SP(I>:HF=FD(I):HE=GR(I):H 
A=AN(I) 

IF HU<5 THEN HU=0 
IF HD<5 THEN HD=0 
IF HF<5 THEN HF=0 
IF HE<5 THEN HE=0 
IF HA<5 THEN HA=0 
HG=HU+HD+HF+HE+HA 
SM=100/HG 

HU=HU*SM:HD=HD*SM:HF=HF*SM:HE=HE*SM:H 
A=HA*SM 
SM=SG/100 

SU (I)=HU*SM:SD <I)=HD»SM:SF(I)=HF*SM:S 
E(I)=HE*SM:SA(I)=HA»SM 
SZ=INT(SG—INT(SU(I))—INT(SD(I)>-INT(S 
F(I)>-INT(SE(I))-INT(SA(I> >):SW=0 
IF SZ=0 THEN SU(I> = INT(SU(I)):SD (I) =1 
NT(SD(I)):SF(I)= INT(SF(I>) 

IF SZ=0 THEN SE(I)=INT(SE(I)):SA(I)=I 
NT(SA(I) ):RETURN 

HU=INT(SU(I))-SU(I>:IF HU<SW THEN T=1 
:SW=HU 

HD=INT(SD <I)9—SD(I>:IF HD<SW THEN T=2 
:SW=HD 

HF=INT(SF(I))—SF(I>:IF HF<SW THEN T=3 
:SW=HF 

HE=INT(SE(I>)—SE(I):IF HE<SW THEN T=4 
:SW=HE 

HA=INT(SA(I))—SA(I):IF HA<SW THEN T=5 
:SW=HA 

DN T GOSUB 4020,4030,4040,4050,4060 
SZ=SZ—1:SW=0:GOTO 3930 
SU(I)=INT(SU(1)+1)iRETURN 
SD(I> =INT(SD(I)+1):RETURN 
SF (I) = I NT (SF (I) +1 > : RETURN 
SE(I)=INT(SE(I)+1>:RETURN 
SA(I)=INT(SA(I>+1>:RETURN 

REM - COMPUTER HOCHRECHNUNG - 

IF 1=1 THEN RETURN 
EI=1:GOSUB 3070 

CO=CO+l:1=1+1:AS(I)=CO:AS*(I)=“COMPUT 
ER":ZE*(I)=ZE* 

CD(I)=(CD(I—1)+CD(1—2))/2 
IF CD(I > =INT(CD(I))THEN CD*(I)=STR*(C 
D (I > ) +" ■ 0 IC“ : GOTO 4140 
CD*(I)=STR*(INT(CD(I)))+MID*(STR*(CD( 
I)-INT(CD(I))),2,2)+“ V 


< 155> 
< 102 > 
<250> 
< 122 > 

< 222 > 

<030> 

<144> 

< 163> 
<208> 

<057> 

<156> 

<079> 

<139> 

<036> 

<070> 


<069> 
<160> 
<119> 
<167> 
<159> 
<097> 
<221 > 
<204> 


< 116> 

< 158> 

<077> 

<1B7> 

<152> 

<023> 

<241 > 

<046> 

<251 > 

<083> 

<054> 

<207> 

<008> 

<060> 

<054> 

<096> 

<090> 

<036> 

<095> 

<007> 

< 012 > 

<173> 

< 139> 

<201 > 
<052> 


4140 CD(I1=VAL(CD*(I)>:CD*(I)=RIBHT*(CD*(I 
),LEN(CD*(I))—1) 

4150 SP(I)=(SP(I—11+SP(1—2))/2 
4160 IF SP(I> =INT(SP< I > >THEN SP*(I)=STR*(S 
P(I>>+".0 7.": GOTO 4180 
4170 SP*(I)=STR*(INT(SP(I)))+MID*(STR*(SP( 
I) — INT (SP(I)) > ,2,2)+" X" 

4180 SP(I>=VAL(SP*(I)):SP*(I)=RIGHT*<SP*(I 
),LEN(SP*(I)>-1> 

4190 FD(I> = (FD(I—1> +FD(1—2))/2 
4200 IF FD(I)=INT(FD(I))THEN FD*(I)=STR*(F 
D(I> > +".0 X":GOTO 4220 
4210 FD*(11=STR*(INT(FD <I)> > +MID*(STR*(FD( 
I>-INT(FD(I)>),2,2)+“ X" 

4220 FD(I)=VAL(FD*(I)):FD*(I)=RIGHT*(FD*(I 
),LEN(FD*(I))—1) 

4230 GR(I)=(GR(I—1)+GR(1—2))/2 
4240 IF GR(I) = INT(GR(I> >THEN GR*(I)=STR*(6 
R(I))+".0 X":GOTO 4260 
4250 GR*(I)=STR*(INT(GR(I)))+MID*(STR*(GR( 
I)-INT(GR(I))),2,2)+" X" 

4260 GR(I)=VAL(GR*(I>):GR*(I> =RIGHT*(GR*(I 
),LEN(GR*(I))-l> 

4270 AN(I)=(AN(I—1)+AN(1—2))/2 
4280 IF AN(I)=INT(AN(I))THEN AN*(I)=STR*(A 
N(I))+"-0 X":GOTO 4300 
4290 AN*(I)=STR*(INT(AN(I)>>+MID*(STR*(AN( 
I)-INT(AN(I)>),2,2)+" X" 

4300 AN(I)=VAL(AN*(I)):AN*(I)=RIGHT*(AN*(I 
),LEN(AN*(I))—1) 

4310 GOSUB 3800:1=1-1:RETURN 

4320 REM - DATEI EINLESEN - 

4330 +F4305 

4340 CLOSE 1:INPUT"{HOME,2D0WN1WAHLNAME (0 
=KATALOG>:•;WA*:PRINT:PRINT:IF WA*= n 0 
“THEN GOSUB 4530:GOTO 4340 
4350 PRINT"{CLR>" 

4360 OPEN 1,8,2,"WAHL "+WA*+",S,R" 

4370 INPUT#15,FE,FE* 

4380 IF FE=0 THEN 4420 

4390 IF FE=62 THEN PRINT:PRINT"{2SPACE1NIC 
HT VORHANDEN ! " : GOTO 4340 
«•.0 IF FE=74 THEN PRINT:PRINT"KEINE DISKE 
TTE EINGELEGT!":GOTO 4340 
4410 PRINT:PRINT" FEHLER"FE": "FE*:GOTO 43 
40 

4420 INPUTBl,WA*,I,DA*,JA*,SG 
4430 FOR 6=0 TO I 

4440 INPUTBl,CD*(G>:IF CD*(G> =“»"THEN 4470 
4450 INPUTBl,CD(G),SP*(G),SP(G>,FD*(G),FD( 
G),GR*(G>,GR(G),AN*(G),AN!G) 

4460 INPUTBl,SU(G),SD(G),SF(G),SE(G),SA(G) 
4470 INPUTBl,AS(G),AS*(G) 

4480 INPUTBl,ZE*(G):IF CD*(G)="*"THEN 4500 
4490 NEXT G 
4500 CLOSE 1 
4510 DG=1:RETURN 

4520 REM - DIRECTORY - 

4530 OPEN 1,8,4,"#":NT=18:NS=1 
4540 PRINTB15,"B-R:“;4;0;NT;NS:PRINTB15,"B 
—P:"; 4; 0 

4550 GETBl,NT*,NS*:IF NT*=“"THEN 4570 
4560 NT=ASC(NT* >:NS=ASC(NS*) 

4570 FOR T=0 TO 7:PRINTB15,"B-P:“4;T*32+2: 
GETBl,FT*:IF FT*=""AND NT*=""THEN CLO 
SE 1:RETURN 

4580 IF FT*=""THEN NEXT T:GOTO 4540 
4590 IF ASC(FT*)0129 THEN NEXT T:BOTO 454 

0 

4600 GETBl,A*,A* 

4610 A*=“":FOR TT=3 TO 18:GETBl,B*:A*=A*+B 
*:NEXT TT 

4620 IF LEFT*(A*,5)0"WAHL "THEN NEXT T:GO 
TO 4540 

4630 PRINT"{2SPACE>"RIGHT*(A*,11) 

4640 NEXT T: GOTO 4540 

4650 REM - BILDSCHIRMAUSDRUCK - 

4660 FF4610:FT:INPUT"{CLR,2D0WN,3SPACE> TAB 
ULATOR:“;TA 

4670 SYS 50944,TA,14:REM - DRUCKROUTINE 

WIRD GESTARTET - 

4680 FG0:RETURN 

© 64'er- 

Listing. »Wahlhochrechnung« (Schluß) 


<038> 

<243> 

< 116> 

< 161 > 

<242> 

<243> 

<097> 

<252> 

<226> 

<003> 

<216> 

<175> 

<033> 

<187> 

<073> 

< 166> 

<079> 

< 164> 

<004> 

< 008 > 


<146> 

<018> 

<196> 

< 200 > 

< 012 > 

< 028 > 

< 13B> 

<151> 

< 174> 

< 174> 
< 122 > 

< 220 > 
<236> 
<231 > 

< 171 > 
<240> 
<193> 
<049> 
<217> 

< 130> 

<246> 

< 136> 
<051 > 


<0B2> 

<024> 

<172> 
<241 > 

<040> 

< 118> 
<017> 
<238> 
<155> 

<055> 

<253> 

<016> 


158 
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Business- 
Grafik für 
jedermann 

Mit den beiden hier vorgestellten 
Programmen können Sie sehr einfach 
statistische Kurven in Form eines 
Kreis- oder Liniendiagramms auf dem 
Printer/Plotter 1520 zeichnen. 

Beide Programme »Kreisdiagramm« (Listing 1) und 
»Manager-Kurve« (Listing 2) sind in Basic geschrieben und 
werden folglich mit LOAD "Name", 8 geladen und mit RUN 
gestartet. Zu beiden Programmen finden Sie in Tabelle 1 und 
2 eine Aufschlüsselung nach Zeilennummern. Dadurch las¬ 
sen sich die Programme leicht den eigenen Erfordernissen 
anpassen. 


Kreisdiagramm 

Das Programm »Kreisdiagramm« (Listing 1) ermöglicht das 
Zeichnen und farbliche Gestalten von Kreisdiagrammen ver¬ 
schiedener Größen mit dem Plotter VC 1520. 

Um ein Kreisdiagramm zu zeichnen, ist wie folgt vorzuge¬ 
hen. 848H 

1. Laden und Starten des Programms mit LOAD- 
"Name",8:RUN 

2. Eingabe der Diagrammgröße (maximal 2) 

Der Radius des geplotteten Kreisdiagramms in »cm« beträgt 
das zweifache des eingegebenen Wertes. 

3. Eingabe der Diagrammfarbe (0 = schwarz etc.) 

Die Konturen des Diagramms und die eventuellen Texte wer¬ 
den in dieser Farbe geplottet. 

4. Eingabe der Überschrift 

5. Eingabe der Anzahl der Sektoren 

6. Eingabe, ob Prozent- oder Absolutwerte (»P« bezie¬ 
hungsweise »A«.) 

Bei Absolutwerten werden die Sektorengrößen anteilig 
berechnet. Bei Prozentwerten überprüft das Programm, ob 
die Summe der eingegebenen Werte ungleich 100% ist. 
Sollte das der Fall sein, wird eine Korrektur oder Neueingabe 
angeboten, bei Unterschreitung der Gesamtsumme der 
Restwert berechnet und als gleichwertiger Sektor bearbeitet. 

7. Eingabe, mit oder ohne Text 

Wenn die Eingabe mit Text erfolgen soll, werden die Sektoren 
am Rand mit einer laufenden Nummer versehen und die Texte 
mit »Nr.« unter dem Diagramm aufgelistet. 

8. Eingabe, ob Korrektur der Initialisierungsdaten 
Wenn ja, Neustart des Programms 

9. Eingabe der Daten zu den Sektoren 

- Prozent- beziehungsweise Absolut-Wert 

- Text, falls erwünscht 

- Farbeingabe (RETURN = keine farbliche Ausfüllung, sonst 
in der eingegebenen Farbe) 

- Linienabstandseingabe für Schraffierung, wenn Farbein¬ 
gabe (1 = lückenloses Ausmalen des Sektors mit der ange¬ 
gebenen Farbe). 

Aus Zeitgründen und wegen der Lebensdauer der Plotter¬ 
stifte empfiehlt es sich nicht, große Diagramme farblich ganz 
auszufüllen. 


RELIGIONEN 


1 17 x R0EH.-KflTH. CHRISTEN 

2 8 x EUANGELISCHE CHRISTEN 

3 4 x ORTHODOXE CHRISTEN 

4 14 x flOSLEnS 

5 12 x HINDUS 

6 6 x BUDDHISTEN 

7 2 X SCHINT0ISTEN 

8 0.4 x ISTRAELITEN 

9 36.6 x SONSTIGE 

Bild 1. Kreisdiagramm gezeichnet mit dem 
Plotter 1520 (Diagrammgröße 2) 




10. Eingabe, ob Korrektur einzelner Werte. 

Wenn ja, Eingabe der laufenden Nummer des zu korrigieren¬ 
den Wertes; wenn nein, setzt sich der Plotter-Zeichenstift in 
Bewegung. 

Zwei Beispiele für das Zeichnen von Kreisdiagrammen zeigen 
Bild 1 und 2. 
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Zeile 

Funktion 

10- 80 

Programmname; Name und Adresse des Autors 

90- 330 

Dateninitialisierung 

340- 600 

Dateneingabe 

610- 680 

Umrechnung der Werte in BogenmaB-WInkel 

690- 760 

Kreis zeichnen 

770 - 1220 

Zeichnen der Sektoren 

1230- 1340 

Texte und Programmende 

1350 - 1480 

Unterprogramm Sektorenfärbung im 1. Quadranten 

1490- 1620 

analog für II. Quadranten 

1630 - 1760 

analog für III. Quadranten 

1770 - 1900 

analog für IV. Quadranten 

1910 - 2080 

Unterprogramm Eingabe weiterer Sektorenbereiche 


Tabelle 1. Aufschlüsselung nach Zeilennummern für das 
Programm »Kreisdiagramm«. 


Manager-Kurve 


Mitdem Plotter-Programm »Manager-Kurve« (Listing 2) las¬ 
sen sich beliebige Linien in ein 8 x 16 cm großes Koordina¬ 
tensystem mit frei wählbarer Skala zeichnen. Das Diagramm 
wird anschließend beschriftet. 

Um eine »Manager-Kurve« zu zeichnen, ist wie folgt vorzu¬ 
gehen. 

1. Laden und Starten des Programms mit LOAD- 
"Name",8:RUN 

2. Im Menü wählt man die Farbe für Skala und Beschriftung, 
stellt das Menü auf »Neues Diagramm« und drückt RETURN 
zur Ausführung. 

3. Eingabe der Ober- und Untergrenze der Y-Skala. Eingabe 
der Ober- und Untergrenze der X-Skala. Da die X-Achse dop¬ 
pelt so lang ist wie die Y-Achse, ergeben gleiche Ober- und 
Untergrenzen für X- und Y-Skala eine 1/2-fache Überhöhung. 
Eingabe der Überschrift: Zum Zeichnen des Diagramms ist 
RETURN zu drücken. Auch eine Korrektur der Daten (N) oder 
ein direkter Rücksprung ins Menü (M) ist möglich. 

4. Bei der Menü-Anzeige nach dem Zeichnen des Diagramms 
wähle man »Neue Linie« und stelle Farbe, Linienart (unterbro¬ 
chene/durchgezogene Linie) und Verfahrensweise zum 
Zeichnen eines Punktes (mit/ohne Markierungskreuz) ein. 
RETURN führt zur 

5. Koordinaten- und Texteingabe der Punkte. Aus Gründen 
der Übersichtlichkeit empfiehlt es sich nicht, zu vielen Punk¬ 
ten lange Texte einzugeben. In diesem Fall ist die Anbringung 
von Fußnoten günstiger, die dann manuell oder mit einem 
entsprechenden Programm neben das Diagramm gesetzt, 
erklärt werden. 

Liegt ein Punkt außerhalb des Diagramms, kann bis zur Zei¬ 
chengrenze des Plotters die Linie gezogen werden. Jedoch 
läßt sich kein Text eingeben. 

Wahlweise ist 

- Ausführung der Anweisung (= Plotten der Linie), danach 
Eingabe eines neuen Punktes (RETURN), 

- Ausführung der Anweisung, danach Rücksprung ins Menü 
(SHIFT-RETURN), 

- direkter Sprung ins Menü (M) oder 

- Korrektur der Daten (N) 
möglich. 

6. Im Menü lassen sich Farbe, Linienart und Markierungs¬ 
kreuz einstellen. Auch kann die Linie am letzten Punkt weiter¬ 
gezeichnet, oder eine neue Linie begonnen werden. 
Entscheidet man sich für ein neues Diagramm oder für 
Programmende, wird das alte Diagramm beschriftet und zur 
neuen Diagramm-Dateneingabe gesprungen beziehungs¬ 
weise das Programm beendet. 

Zwei Beispiele für eine Managerkurve zeigen Bild 3 und 4. 

(Franz Strobel/ah) 



10- 70 

Programmname; Name und Adresse des Autors 

80- 150 

Initialisierung des Plotters und Dimensionierung von 
Strings und Variablen 

160- 470 

Menü 

480- 1410 

Neues Diagramm 

1420-1920 

Linie zeichnen 

1930-2100 

Diagramm am Ende durch Beschriftung vervollstän¬ 
digen (Unterprogramm) 

2110 

Programmende durch Plotterreset. 


Tabelle 2. Aufschlüsselung nach Zeilennummern für das 
Programm »Manager Kurve«. 


10 

REM 

********************* 

<025> 

20 

REM 

*#» 

MANAGER - KURVE 

* 

<062> 

30 

REM 

*«# 

VON 

* 

<114> 

40 

REM 

##* 

FRANZ STROBL 

* 

<091 > 

50 

REM 

*** 

STARENWEG 12 

* 

<030> 

60 

REM 

*** 

D—8050 FREISING 

* 

<227> 

70 

REM 




<085> 

80 

REM 

*** 



<198> 

90 

REM 


INITIALISIERUNG 


<242> 

100 REM *** 


<218> 

110 OPEN 1, 

6,1:OPEN 2,6,2:OPEN 4,6:0PEN 3, 



6,2 

1: OPEN 44,6,4: OPEN 5, 

6,5: OPEN 7,6,7 

<192> 


120 PRINT#44,1 s PRINT*t4: PRINTH4: PRINT#4: PRI 

Listing 1. Programm »Kreisdiagramm«. Bitte beachten 
Sie die Eingabehinweise auf Seite 6 


160 


S4of-onllne.de 

B4er-online.net 
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NT#3,1 

< 20 S> 

790 IF XA>=XE THEN 770 

<090> 

130 

DXM T*(100> 

<107> 

800 DX=XE-XA 

<005> 

140 

F*(0)="SCHWARZ":F*(1)="BLAU":F*(2)="GR 


810 PRINT.5*DX/DY"-FACH UEBERHOEHT" 

<009> 


UEN":F*<3>="R0T" 

<223> 

820 PRINT"<DOWN>RETURN = FUEHRT DIE ANWEIS 


150 

I*(0)="NEIN":I*(1)="JA":F=0:L=0:G=0:E= 


UNG AUS" 

<095> 


0:W=0:M=0:D=.5 

<066> 

830 PRINT"M< 6 SPACE>= ZURUECK INS MENUE" 

< 012 > 

160 

REM *** 

< 022 > 

840 PRINT"N£ 6 SPACE>= KORREKTUR DER DATEN" 

<104> 

170 

REM »#* MENUE 

<034> 

850 GET A*:IF A*=""THEN B50 

<251 > 

1 B 0 

REM *** 

<042> 

860 IF A*="N"THEN 520 

<186> 

190 

REM MENUE-ANZEIGE 

<036> 

870 IF A*=”M"THEN D1=0:GOTO 200 

<074> 

200 

PRINT" {CLR}LINIENDIAGRAMM CDÜWN J“ 

<024> 

B00 IF ASC(AS)013 THEN 850 

< 122 > 

210 

PRINT-'NEUES DIAGRAMM CD) I7SFACE > " , I* (D 


890 Z=0 

<129> 


* 2 ) 

<017> 

900 FOR B=XA TO XE STEP DX/4 

<107> 

220 

PRINT"NEUE LINIE (L><11SPACE»",I*(L*2> 

< 111 > 

910 IF B=0 THEN N3-1 

<113> 

230 

PRINT"LINIE WEITERZEICHNEN (W) ",I*(W* 


920 X*(Z)=STR*(B):Z=Z+1 

<201 > 


2 ) 

<237> 

930 NEXT B 

<196> 

240 

PRINT"ENDE (E)U7SPACEV*,I*<E*2) 

<085> 

940 REM EINTRAGUNG SKALENWERTE X IN BESCHR 


250 

PRINT"FARBE (F)<16SPACE>",F*(F*4) 

< 1 40> 

IFTUNGSVARIABLE T*(X) 

<227> 

260 

PRINT"MARKIERUNG (M)UlSPACEJ",IS(M*2) 

<207> 

950 Z=0 

< 189> 

270 

PRINT"GESTRICHELTE LINIE <G><3SPACE>", 


960 FOR TZ=21 TO 61 STEP 10 

< 199> 


I*(G*2) 

<030 > 

970 FOR B=0 TO LEN(X*(Z)) 

<224> 

280 

PRINT"£DOWN»RETURN FUEHRT DIE ANWEISUN 


980 T#(TZ+B)=MID*(X*(Z>,1+B,1)+RIGHT*(TS(T 



G AUS" 

<244> 

Z+B),38) 

<201 > 

290 

REM MENUE-EINGABE 

<252> 

990 NEXT B 

< 000 > 

300 

GET A*:IF A*=“"TUEN 300 

<239> 

1000 Z=Z+1 

<050> 

310 

IF A*="F"THEN F=F+.25:F=F—INT(F):GOTO 


1010 NEXT TZ 

<073> 


200 

<225> 

1020 REM EINGABE UEBERSCHRIFT UND AUSWERTU 


320 

IF A*="W"THEN W=W+.5:W=W-INT(W):E=0:L= 


NG 

<250> 


0:D=0:GQTO 200 

<196> 

1030 T1INPUT“UEBERSCHRIFT";T1S 

<124> 

330 

IF A*="L"THEN L=L+.5:L=L—INT(L):E=0:D= 


1040 L1=LEN(T1*>:IF L1=0 THEN 1110 

<098 > 


0:W=0:GOTO 200 

<195> 

1050 IF LI>40 THEN PRINT"TEXT ZU LANG":GDT 


340 

IF AS="M"THEN M=M+.5:M=M—INT<M):E=0:GO 


0 1030 

<017> 


TO 200 

< 161 > 

1060 REM EINTRAGUNG UEBERSCHRIFT IN BESCHR 


350 

IF A*="E"THEN E=E+.5:E=E-INT<E>:L=0:D= 


IFTUNGSVARIABLE T*(X> 

<014> 


0:W=0:M=0:G=0 s GOTO 200 

<101 > 

1070 FOR B=38 TO 37+L1 

<255> 

360 

IF A*="D"THEN D=D+.5:D=D-INT(D>:L=0:E= 


1080 T*(B)=LEFT*(T#(B),38)+MID*<Tl#,B-37,1 

< 14B> 


0:W=0:GOTO 200 

<069> 

) ■ 

370 

IF A*="G"THEN G=G+.5:E=0:D=0:G=G-INT<G 


1090 NEXT B 

< 102 > 


):GOTO 200 

< 196> 

1100 REM PLOTTERINITIALISIERUNG ZUM ZEICHN 


380 

IF ASC(A*>=13 THEN 410 

< 1B7> 

EN DES DIAGRAMMS 

< 153> 

390 

GOTO 300 

< 0 B 0 > 

1110 PRINT#1,"M",0,-200 

<129> 

400 

REM MENUE-AUSFUEHRUNG 

<222> 

1120 PRINT#4,CHR*(13> 

<076> 

410 

IF E=.5 THEN GQSUB 1960:CLOSE l:CLOSE 

S4€R 

Orll30 >•>« NT#1, "M",18,0: PRINT#1 , " I “ 

<06B> 


2:CLOSE 4:CL0SE 44iCLOSE 5:GOTO 2110 

<005> 

1 1 40 REM Y-ACHSE 

<079> 

420 

PRINT#2,F*4 

<104> 

1150 PRINT#1,"J",400,0 

<1B3> 

430 

PRINT#5,S*8 

<172> 

.1160 FOR B=400 TO 0 STEP-100 

< 169> 

440 

IF W=.5 THEN W=0:IF C*="J"AND Dl=l THE 


1170 PRINT#1,"R",B,5 

<057> 


N 1490 

<143> 

1180 PRINT#l,“J“,B,-5 

<072> 

450 

IF L=.5 AND Dl=l THEN 1460 

<089> 

1190 NEXT B 

< 202 > 

460 

IF D=.5 THEN GOSUB 1960:GOTO 520 

<138> 

1200 REM X-ACHSE 

< 131 > 

470 

GOTO 300 

< 160> 

1210 FOR B=0 TO—800 STEP-200 

< 210 > 

480 

REM *** 

<0B8> 

1220 PRINT41, "R" 5,B 

<062> 

490 

REM *** NEUES DIAGRAMM 

< 171 > 

1230 PRINTttl, "J",5,B 

<194> 

500 

REM *** 

<108> 

1240 NEXT B 

<252> 

510 

REM INITIALISIERUNG 

<060> 

1250 PRINT#1,"R",0,-800 

<174> 

520 

PRINTttl ,“M",0,-200: PRINT44:F1=F: Dl = 1 :N 


1260 PRINTttl, "J“, 0,0 

<069> 


1=0:N3=0:PRINT#2,F*4 

<0B3> 

1270 REM ACHSE X=0 (MIT BESCHRIFTUNG), FAL 


530 

FOR B=0 TO 100:TS(B)="{39SPACEJ":NEXT 


LS NOTWENDIG 

<216> 


B 

< 100> 

1280 IF XA>=0 OR XE<=0 THEN 1350 

<041 > 

540 

REM EINGABE Y-SKALA UND AUSWERTUNG 

<055> 

1290 FX=800*XA/DX: PRINTttl, "R",-5, FX 

<035> 

550 

PRINT"CCLR »SKALA:":PRINT"HOEHE (Y):" 

<089> 

1300 PRINTttl, "J", 400, FX 

<039> 

560 

INPUT“ANFANG“;YA 

<099> 

1310 IF N3=l THEN 1350 

<092> 

570 

INPUT"ENDE“;YE 

<092> 

1320 N2=INT(22—FX/20):IF LEFT*(T*(N2),1)<> 


5B0 

IF YA>=YE THEN 560 

<254> 

" "THEN 1350 

<060> 

590 

DY=YE—YA 

<132> 

1330 T*(N2)="0"+RIGHTS(T*(N2),3B) 

<093> 

600 

Z=0 

<093> 

1340 REM ACHSE Y=0 (MIT BESCHRIFTUNG), FAL 


610 

FOR B=YA TO YE STEP DY/4 

< 120 > 

LS NOTWENDIG 

<033> 

620 

IF B=0 THEN Nl=l 

<075> 

1350 IF YA>=0 OR YE<=0 THEN 1410 

< 114 > 

630 

Y*(Z)=STR*<B>:Z=Z+1 

<169> 

1360 FY=-400*YA/DY: PRINTtt 1, “R" , FY, 5 

<166> 

640 

NEXT B 

< 1 60> 

1370 PRINTttl, “J" ,FY,—800 

<091 > 

650 

REM EINTRAGUNG SKALENWERTE Y IN BESCHR 


1380 IF Nl=l THEN 1410 

< 116> 


IFTUNGSVARIABLE T*(X> 

<192> 

1390 N2=INT(1+FY/12):IF MID*(Tt(20),N2,1)< 


660 

Z=0 

<153> 

>'• "THEN 1410 

<231 > 

670 

FOR TS=1 TO 33 STEP B 

< 115> 

1400 T*(20)=LEFT*(T*(20),N2)+"0"+RIGHT*(T* 


680 

L1=LEN(Y$(Z) ) 

<119> 

(20),38-N2) 

<001 > 

(OB 

707.I7-CC, TO ,7i 

/ i no\ 

1110 l,cn r 

<0?E> 


20+L1,1)+RIGHT*<T$(TZ),38-TS) 

<099 > 

1430 REM *** LINIE ZEICHNEN 

<022> 

710 

NEXT TZ 

<027> 

1440 REM **# 

<032> 

720 

Z=Z+1 

<024> 

1450 REM ZEICHENTYP “R“ ODER “J" 

< 144> 

730 

NEXT TS 

< 191 > 

1460 IF L=.5 THEN C*="R":GOTO 1490 

< 125> 

740 

REM EINGABE X-SKALA UND AUSWERTUNG 

<251 > 

1470 C*=”J" 

<008> 

750 

PRINT " LAENGE (X):“ 

<097> 

1480 REM KOORDINATEN- UND TEXTEINGABE MIT 


760 

PRINT"-SKALA IST IN X-RICHTUNG DOPPELT 


AUSWERTUNG 

< 135> 


SO LANG WIE IN Y—RICHTUNG" 

< 182> 

1490 INPUT " ICLRJLAENGENWERT ( X )"; X 

<064> 

770 

INPUT“ANFANG" : XA 

<039> 

1500 INPUT " HOEHENWERT (Y)";Y 

<223> 

7B0 

INPUT“ENDE";XE 

<044> 

1510 IF X<=XE AND X>=XA AND Y<=YE AND Y>=Y 
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A THEN 1560 

<223> 

1820 

IF MID*(T*(TZ) ,TS,1)0" "THEN B=TZ-1+ 


1520 

PRINT"PUNKT LIEBT NICHT INNERHALB DES 



LEN(TI*): V=V+1:NEXT B:GOTO 1840 

<0B5> 


DIA-" 

< 220 > 

1830 

NEXT B:V=0 

< 129> 

1530 

PRINT"GRAMMS. SOLL TROTZDEM DIE LINIE 


1840 

IF V=1 THEN TS=TS+1:GOTO 1810 

<045> 


GE—" 

<024> 

1850 

IF V=2 THEN TS=TS—2:GOTO 1810 

<135> 

1540 

PRINT"ZEICHNET WERDEN, DRUECKEN SIE R 


1860 

IF V=3 THEN TS=TS+3:GOTO 1810 

< 193> 


ETURN" 

<158> 

1870 

IF V=4 THEN PRINT"TEXT NICHT MOEGLICH 


1550 

Ti*=••": GOTO 1580 

< 104> 


“:FOR B=0 TO 300:NEXT B:GOTO 1910 

< 108> 

1560 

T1S=“":INPUT"TEXT"; TI S 

<235> 

1880 

FOR B=TZ TO TZ—1+LEN(TI*) 

<205> 

1570 

IF LEN(TIS)>20 THEN PRINT"TEXT ZU LAN 


1890 

T*(B)=LEFT*(T*(B),TS-1)+MID*(TI*,B+l- 



B“:Tl$="":GOTO 1560 

<088> 


TZ,1> +RIGHTS(TS(B),39-TS) 

< 134> 

1580 

PRINT"CDOWNJRETURN = FUEHRT DIE ANWEI 


1900 

NEXT B 

<150> 


SUNB AUS" 

<093> 

1910 

IF ASC(A*)=141 THEN W=.5:L=0:GOTO 200 

< 135> 

1590 

PRINT"SH/RET = AUSFUEHRUNG, DANACH IN 


1920 

GOTO 1470 

< 114> 


S MENUE" 

< 200 > 

1930 

REM *** 

<014> 

1600 

PRINT"M<6SPACE5= ZURUECK INS MENUE" 

< 020 > 

1940 

REM *** DIAGRAMM AM ENDE DURCH BESCHR 


1610 

PRINT"N< 6 SPACE}= KORREKTUR DER DATEN" 

< 112 > 


IFTUNG VERVOLLSTAENDIGEN 

<136> 

1620 

GET A*:IF A*=""THEN 1620 

< 147> 

1950 

REM *** 

<034> 

1630 

IF AS="N"THEN 1490 

<08B> 

1960 

IF D1=0 THEN RETURN 

< 220 > 

1640 

IF A*="M"THEN W=0.5:L=0:GOTO 200 

<075> 

1970 

PRINT#2,Fl*4:PRINTtt5,0 

<090> 

1650 

IF ASC(A*X>13 AND ASC (AS) 0141 THEN 


1980 

PRINTttl,"M",0,410 

<021 > 


1620 

<135> 

1990 

FOR T=1 TO 80 

<066> 

1660 

REM PLOTTERKOORDINATEN UND AUSFUEHRUN 


2000 

IF T*(T)=" C39SPACEVTHEN PRINTtt4: NEXT 



G 

<245> 


T:RETURN 

<057> 

1670 

FX——800* CX —XA>/DX 

<093> 

2010 

IF RIGHT*(T*(T>,38)="C38SPACE)"THEN 2 


1680 

FY=400* <Y-YA)/DY 

<229> 


060 

<004 > 

1690 

PRINTttl,CS,FY,FX 

<057> 

2020 

IF RIGHT*(T*(T),29)="I29SPACE)"THEN 2 


1700 

REM MARKIERUNGSKREUZ 

<013> 


070 

<038> 

1710 

IF M=0 THEN 1760 

<103> 

2030 

IF RIGHT*(T*(T),19)="<19SPACE>"THEN 2 


1720 

PRINT#5,0:PRINTttl,"R",FY+3,FX 

< 111 > 


080 

<056> 

1730 

PRINTttl , " J" ,FY-3,FX: PRINTttl , "R" ,FY,FX 


2040 

IF RIGHT*(T*(T),10>="<10SPACE>"THEN 2 



+3 

<107> 


090 

<194> 

1740 

PRINTttl , "J",FY,FX-3: PRINTttl , "R" ,FY,FX 

<213> 

2050 

PRINT44,T*(T):NEXT T:RETURN 

<079> 

1750 

PRINT tt5,G*8 

< 222 > 

2060 

PR I NT tt4 ,LEFT*(T*(T> ,1) : NEXT T: RETURN 

<017> 

1760 

IF T1S=""THEN 1910 

<039> 

2070 

PRINTS4,LEFT*(T*(T),10):NEXT T:RETURN 

<023> 

1770 

REM EINTRAGUNG TEXT IN FREIEN PLATZ D 


2080 

PRINT44,LEFT*(T*(T),20):NEXT T:RETURN 

<013> 


ER BESCHRIFTUN 6 SVARIAULE T*<X) 

<084> 

2090 

PRINT84,LEFT*(T*(T),29):NEXT T 

< 212 > 

1780 

TS=INT(2+FY/12) 

<154> 

2100 

RETURN 

<126> 

1790 

TZ=INT(21—FX/20) 

<084> 

2110 

PRINT#7:CLOSE 7:END 

< 13B> 

1800 

V=0 

<00/> 




1810 

FOR B=TZ TO TZ-1+LEN(T1$) 

- ft- 

<135> 

© G-4' 

vr Listing 1. Kreisdiagramm (Schluß) 


10 REM *********************** 

< 151 > 

320 

GET D*:IF DSO"J"AND D#<>"N“THEN 

320 


<108> 

20 REM *** KREISDIAGRAMM * 

<226> 

330 

IF D*="J"THEN RUN 



< 124 > 

30 REM *** FUER PLOTTER 1520 * 

<241 > 

340 

REM *** 



<204 > 

40 REM *** VON * 

< 124 > 

350 

REM *** DATENEINGABE 



<098> 

50 REM *»* FRANZ STROBL * 

< 101 > 

360 

REM *** 



<224 > 

60 REM *** STARENWEG 12 * 

<040*? 

370 

S=0 



<089> 

70 REM *** D—8050 FREISING * 

<237> 

380 

FOR Rl=l TD AS 



<004 > 

80 REM *********************** 

<221 > 

390 

PRINT RI;:INPUT". WERT";W(R1) 



<046> 

90 REM *** 

<208> 

400 

GOSUB 1940 



< 118> 

100 REM *** DATENINITIALISIERUNG 

<160> 

410 

S=S+W(R1> 



<073> 

110 REM *** 

<228> 

420 

NEXT RI 



<0B5> 

120 PRINT"ICLRJKREISDIAGRAMM":INPUT"GROESS 


430 

IF G*="A"OR S<=100 THEN 500 



<012> 

E (MAX. 2) "; A 

<193> 

440 

REM REM SUMME DER PROZENTWERTE > 

100 


<153> 

130 IF A>2 OR A<=0 THEN 120 

<097> 

450 

PR INT "SUMME DER PROZENTWERTE > 100" 


<026 > 

140 OPEN 1,6,1:OPEN 2,6,2:0PEN 3,6,3:0PEN 


460 

PRINT“NEUEINGABE (N) ODER KORREKTUR 

!K 


4,6 

<064> 


)?" 



< 133> 

150 DEF FN K(Y)=SQR((A*A*10000-Y*Y)) 

<092> 

470 

GET ES:IF E*<>"N"AND ES< >"K"THEN 

470 


< 160> 

160 INPUT"DIAGRAMMFARBE (0 - 3>";F1 

< 190> 

480 

IF ES="N"THEN RUN 



<028> 

170 IF F1<0 OR F1>3 THEN 160 

<067> 

490 

GOTO 540 



<004> 

180 PRINTtt2,Fl 

<125> 

500 

PRINT"WERTE KORRIGIEREN? (J/N)“ 



<ii0> 

190 INPUT"UEBERSCHRIFT (BIS 20 ZEICHEN)";U 


510 

GET K*:IF KSO"J"AND KSO“N"THEN 

510 


< 1 04 > 

*:IF LEN(US)>20 THEN 190 

<220> 

520 

IF KS="N"THEN 600 



<168> 

200 PRINT#3,2:PRINTtt4,U* 

<167> 

530 

REM KORREKTUR EINES WERTES 



<023> 

210 PRINTtt3,0 

< 149> 

540 

INPUT"WELCHEN WERT";K:IF K>AS OR 

K< 1 

T 


220 INPUT"ANZAHL DER SEKTOREN ( < 100)" ; AS 

< 159> 


HEN 430 



<026> 

230 IF AS>100 OR AS<1 OR AS<>INT(AS)THEN 2 


550 

S=S—W(K) 



<060/ 

20 

<221 > 

560 

PRINT K;:INPUT". WERT“;W(K) 



<071> 

240 DIM W(AS+1>,T*(AS+1>,S(AS+1>,F*(AS+1) 

<072> 

570 

R1=K:GOSUB 1940 



<236/ 

250 PRINT"PROZENT- ODER ABSOLUT-WERTE (P/A 


580 

S=S+W(R1> 



<245> 

) ?"; 

<025> 

590 

GOTO 430 



<082 > 

260 GET B*:IF G*=" "OR (G*<>“P"AND G*0"A")T 


600 

IF S<100 AND GS="P"THEN PRINT"REST:" 

A 


HEN 260 

<138> 


S=AS+1:R1=AS:W(RI> =100-S:PRINT"WERT:"W 


270 PRINT 6* 

<242> 


(RI):GOSUB 1940 



<070> 

280 PRINT"MIT TEXTEINGABE? (J/N)"; 

<092> 

610 

REM *** 



<220> 

290 GET T*:IF T*< >"J"AND T*<>"N"THEN 290 

<101> 

620 

REM *** UMRECHNUNG DER WERTE IN BOGENM 


300 PRINT t* 

<120> 


ASS-WINKEL 



<003> 

310 PRINT"SOLLEN DIE DATEN KORRIGIERT WERD 


630 

REM *** 



<240> 

EN (J/N)?" 

< 174> 

640 

IF GS="P"THFN F=.02*i:GOTO 660 



<208> 

Listing 2. Programm »Manager-Kurve« 
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C 64 


Statistik 


650 

F=£*2/S 

<133> 


0 

<1B3> 

660 

FÜR R2=l TO AS 

<046> 

1390 

DEF FN L(Y> =Y*XL/YL 

<127> 

670 

W(R2)=W(R2)*F 

<135> 

1400 

IF YR=0 THEN DEF FN R(Y)=250:GOTO 142 


6S0 

NEXT R2 

<107> 


0 

<196> 

690 

REM *** 

<044> 

1410 

DEF FN R<Y)=Y*XR/YR 

<0BB> 

700 

REM *** KREIS ZEICHEN 

< 121 > 

1420 

FOR H1=YL TO 0 STEP-S(R4) 

<219> 

710 

REM *** 

<064> 

1430 

HX=FN L(Hl):HA=FN R(Hl):HB=FN K(H1> 

< 137> 

720 

PRINT81 , "fl" ,240,-120*A: PRINT81 , "I “ 

<093> 

1440 

IF HA>HB THEN HA=HB 

<052> 

730 

PRINT#1,"R",0,A*100 

<206> 

1450 

PRI NT# 1, "R“ , HX ,H1 

<114> 

740 

FÜR R3=0 TD 2 STEP.05 

< 120 > 

1460 

PRINT#1," J ",HA,H1 

<030> 

750 

PRINT#1,"J",A*100*SIN(R3*i>,A*100»COS( 


1470 

NEXT Hl 

<039> 


R3*£> 

<069> 

14B0 

RETURN 

< 012 > 

760 

NEXT R3 

<203> 

1490 

REM *** 

<082> 

770 

REM *** 

< 126> 

1500 

REM *** FARBE II. QUADRANT 

<I63> 

780 

REM *** ZEICHNEN DER SEKTOREN 

< 011 > 

1510 

REM *** 

< 102 > 

790 

REM *** 

<146> 

1520 

IF YL=0 THEN DEF FN L(Y)=250:GOTO 154 


B 00 

S1=0:X1=0:Y1=A*100 

<030> 


0 

< 100 > 

810 

FOR R4=l TO AS 

<230> 

1530 

DEF FN L(Y)=Y*XL/YL 

< 011 > 

820 

S0=S1:X0=X1:Y0=Y1 

<05B> 

1540 

IF YR=0 THEN DEF FN R(Y)=250:GOTO 156 


830 

S1=S1+W(R4) 

<115> 


0 

<115> 

B40 

X1=A*100*SIN <S1):Y1=A*100*COS <S1) 

<020 > 

1550 

DEF FN R(Y)=Y*XR/YR 

<230> 

850 

PRINT#1,“R",0,0:PRINTH1,"J",X1,Y1 

<245> 

1560 

FOR H2=0 TO YR STEP-S(R4) 

<084> 

860 

REM QUADRANTENBESCHRIFTUNG 

<118> 

1570 

HX=FN R(H2):HA=FN L(H2):HB=FN K(H2> 

<18B> 

870 

IF T*="N"THEN 940 

< 124> 

1580 

IF HA>HB THEN HA=HB 

< 194> 

880 

IF Sl<=±/2 THEN PRINT#!,“R“,Xl-4,Yl+10 


1590 

PRINT#i,"R",HX,H2 

<032> 


:GOTO 920 

< 191 > 

1600 

PRINT#1,"J",HA,H2 

<204> 

890 

IF S1<=£THEN PRINT#1,"R",X1+ 6 ,Y1— 6 :GOT 


1610 

NEXT H2 

< 197> 


0 920 

<104> 

1620 

RETURN 

<154> 

900 

IF Sl<=3#±/2 THEN PRINT#1,"R",XI— 8 ,Yl— 


1630 

REM *** 

<224> 


12:GOTO 920 

<104> 

1640 

REM *** FARBE III. QUADRANT 

< 172> 

910 

PRINT#1,“R“,X1-1B,Y1 

<041 > 

1650 

REM *** 

<244> 

920 

PRINT84 ,R4; : PRINT#1, "M" ,240, -120»A: PRI 


1660 

IF YL=0 THEN DEF FN L(Y>=-250:GOTO 16 



NT#1," I" 

<079> 


80 

<203> 

930 

REM FARBE DES SEKTORS 

<206> 

1670 

DEF FN L(Y)=Y*XL/YL 

< 153> 

940 

IF F*(R4)=“"THEN 1260 

<165> 

1680 

IF YR=0 THEN DEF FN R(Y)=-250:GOTO 17 


950 

PRINT#2,F*(R4> 

< 1 B 0 > 


00 

< 148> 

960 

Q0=INT(2*S0/£) :IF Q0=4 THEN Q0=3 

< 222 > 

1690 

DEF FN R(Y)=Y*XR/YR 

<114> 

970 

Q1=INT(2*S1/£):IF Ql=4 THEN Ql=3 

<054> 

1700 

FOR H3=0 TO YL STEP—S(R4 > 

<228> 

980 

Q=Q1-Q0 

<177> 

1710 

HX=FN L(H3):HA=FN R (H3)-. HB=-FN K(H3) 

<060> 

990 

IF 0=0 THEN 1210 

<162> 

1720 

IF HA<HB THEN HA=HB 

<142> 

1000 

IF Q=1 THEN 1150 

<21 1 > 

1730 

PRINT#1,"R",HA,H3 

< 112 > 

1010 

IF Q=2 THEN 1090 

<004> 

1740 

PRINT#1, H J",HX,H3 

< 212 > 

1 \DZ*ß 

1030 

Ktn 4 QUADRANTEN 

XL=X0:YL=Y0:XR=A*100:YR=0:GOSUB 1380 


1760 Ktl', URN 

<03B> 

1040 

XL=A»100:YL=0:XR=0:YR=-100*A:BOSUB 15 


1770 

REM *** 

<108> 


20 

<240> 

1780 

REM *** FARBE IV. QUADRANT 

<142> 

1050 

XL=0:VL=-100*A:X R=-100*A:YR=0:GOSUB 1 


1790 

REM *** 

< 12 B> 


660 

<215> 

1800 

IF YL=0 THEN DEF FN L(Y)=-250:GOTO 18 


1060 

XL=-100*A:YL=0:XR=X1:YR=Y1:GOSUB 1800 

< 210 > 


20 

<215> 

1070 

GOTO 1260 

<218> 

1810 

DEF FN L(Y)=Y*XL/YL 

<039> 

1080 

REM 3 QUADRANTEN 

< 020 > 

1820 

IF YR=0 THEN DEF FN R(Y)=-100*A:GOTO 


1090 

IF Ql=3 THEN XL=X0:YL=Y0;XR=0:YR=—100 



1840 

< 141 > 


»A:GOSUB 1520:GOTO 1050 

<108> 

1830 

DEF FN R(Y)=Y*XR/YR 

< 000 > 

1100 

XL=X0:YL=Y0:XR=A»100:YR=0:GOSUB 13B0 

<148> 

1840 

FOR H4=YR TO 0 STEP-S(R4> 

<1B2> 

1110 

XL=A*100:YL=0:XR-0:YR=-100*A:BOSUB 15 


1850 

HX=FN R(H4):HA=FN L(H4):HB=-FN K(H4> 

< 144 > 


20 

<054> 

1860 

IF HA<HB THEN HA=HB 

<028> 

1120 

XL=0:YL=—100*A:XR=X1:YR=Y1:GOSUB 1660 

<245> 

1870 

PRINT#1,"R",HA,H4 

<030> 

1130 

GOTO 1260 

< 022 > 

1880 

PRINT#1,"J",HX,H4 

<130> 

1140 

REM 2 QUADRANTEN 

<072> 

1890 

NEXT H4 

<255> 

1150 

IF Ql=3 THEN XL=X0:YL=Y0:XR=-100*A:YR 


1900 

RETURN 

<180> 


=0:BOSUB 1660:GOTO 1060 

<060> 

1910 

REM *** 

<250> 

1160 

IF Ql=2 THEN XL=X0:YL=Y0:XR=0:YR=-100 


1920 

REM *** EINGABE WEITERER SEKTORENDATE 



*A:GOSUB 1520:GOTO 1120 

<074> 


N 

<033> 

1170 

XL=X0:YL=Y0:XR=A*100:YR=0:GOSUB 1380 

<218> 

1930 

REM *** 

<014> 

1180 

XL=A*100:YL=0:XR=X1:YR=Y1:GOSUB 1520 

<240> 

1940 

IF T$="N"THEN 1970 

<04B> 

1190 

GOTO 1260 

<082> 

1950 

INPUT"C4SPACEJTEXT (BIS 36 ZEICHEN"sT 


1200 

REM 1 QUADRANT 

<095> 


4 (RI) 

< 174> 

1210 

XL=X0:YL=Y0:XR=X1:YR=Y1 

<081 > 

1960 

IF LEN(T*<R1>)>36 THEN 1950 

<165> 

1220 

Q1=Q1+1:ON Ql GOSUB 1380,1520,1660,18 


1970 

PRINT"(4SPACEJFARBE (S/B/G/R/RETURN)? 



00 

< 110 > 


“; 

<025> 

1230 

REM *** 

<076> 

1980 

GET F*:IF F*=""THEN 1980 

<108> 

1240 

REM *** TEXTE UND PROGRAMMENDE 

< 104> 

1990 

IF F*="S“THEN F*(R1)=“0":GOTO 2050 

<040> 

1250 

REM *** 

<096> 

2000 

IF F$="B“THEN F*(RI>=”1":GOTO 2050 

< 174> 

1260 

PRINT#2,F1sNEXT R4 

<208> 

2010 

IF F*="G"THEN F*(RI)="2":GOTO 2050 

<062> 

1270 

PRINT#1 , “M" ,0,—240*A 

<056> 

2020 

IF F*="R"THEN F#(RI)="3":GOTO 2050 

< 210 > 

1280 

PRINT#4:IF T*="N"THEN 1340 

<062> 

2030 

IF ASC(F*)=13 THEN F$(Rl>="":PRINT:RE 


1290 

PRINT#3,1:PRINT#2,F1:PRINT#4 

<192> 


TURN 

<087> 

1300 

FOR R5=l TO AS 

< 22 B> 

2040 

GOTO 19B0 

<091 > 

1310 

IF R5<10 THEN PRINT#4," 

<082> 

2050 

PRINT F* 

<23&> 

1320 

PRINT#4,R5;:PRINT#4,T*(R5) 

<074> 

2060 

INPUT"C4SPACE>LINIENABSTAND SCHRAFFIE 


1330 

NEXT R5:PR1NT#4:PRINT#4 

<237> 


RUNG"?S(RI) 

< 141 > 

1340 

PRINT#4:CLQSE 1:CLOSE 2:CLOSE 3:CL0SE 


2070 

IF S (R1X1 THEN 2050 

<147> 


4: END 

<081 > 

2080 

RETURN 

<037> 

1350 

REM *•** 

<19B> 




1360 

REM *** FARBE I. QUADRANT 

<219> 

© &*' 

er 


1370 

REM *** 

< 21 B> 




1380 

IF YL=0 THEN DEF FN L(Y)=250:GOTO 140 


Listing 2. »Manager-Kurve« (Schluß) 
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